'From etoys2.1 of 26 July 2007 [latest update: #1573] on 31 August 2007 at 4:44:47 pm'!
"Change Set:		sugarBtnBorder-yo
Date:			31 August 2007
Author:			Yoshiki Ohshima

Fix the background color problem introduced by the canvas tranclucent change."!


!SugarLibrary commentStamp: '<historical>' prior: 0!
THIS CLASS HAS NO COMMENT!!

Sugar button no haikei shoku ga okashii.!


!SugarLibrary methodsFor: 'icon images' stamp: 'yo 8/31/2007 16:37'!
imageFor: aString color: aColor grayOutColor: grayOutColor

	| icon g h orig w height ret f |
	icon _ self iconAt: aString.
	icon unhibernate.
	grayOutColor ifNotNil: [
		f _ Form extent: icon extent depth: 32.
		f fillColor: grayOutColor.
		icon displayOn: f at: 0@0 rule: 37.
		icon _ f.
	].

	orig _ Form new hackBits: icon bits.
	height _ icon width * icon height.

	g _ Form extent: icon extent depth: 32.
	h _ Form new hackBits: g bits.

	w _ WarpBlt current toForm: h.
	w sourceForm: orig.
	w cellSize: 1.
	w combinationRule: Form over.
	w copyQuad: {1@0. 1@height. 2@height. 2@0} toRect: (0@0 corner: 4@(height + 1)).
	ret _ (Form extent: icon extent depth: 32) fillColor: aColor.
	g displayOn: ret at: 0 rule: 34.
	^ ret asFormOfDepth: 16
! !


!SugarNavigatorBar methodsFor: 'buttons creation' stamp: 'yo 8/31/2007 16:42'!
setupSuppliesFlap

	| i f |
	sugarLib ifNil: [^ self].
	supplies _ Flaps globalFlapTabWithID: 'Supplies' translated.
	supplies ifNotNil: [
		i _ sugarLib imageFor: 'supplies' color: color.
		f _ Form extent: 75@75 depth: 16.
		f fillColor: color.
		i displayOn: f at: (f extent - i extent)//2 rule: Form over.
		supplies sugarNavTab: self icon: f.
	].
! !

"Postscript:
"
SugarLibrary clearDefault.
Flaps disableGlobalFlaps: false.
Flaps enableEToyFlaps.
!