'From etoys2.1 of 26 July 2007 [latest update: #1590] on 4 September 2007 at 11:21:33 pm'! "Change Set: nonSugarSuppliesTab-yo Date: 4 September 2007 Author: Yoshiki Ohshima Make Red old Supplies tab show when sugarNavigator is false."! !Flaps class methodsFor: 'predefined flaps' stamp: 'yo 9/4/2007 22:25'! newSuppliesFlapFromQuads: quads positioning: positionSymbol withPreviousEntries: aCollection "Answer a fully-instantiated flap named 'Supplies' to be placed at the bottom of the screen. Use #center as the positionSymbol to have it centered at the bottom of the screen, or #right to have it placed off near the right edge." | aFlapTab aStrip aWidth sugarNavigator | sugarNavigator _ Preferences sugarNavigator. aStrip _ PartsBin newPartsBinWithOrientation: #leftToRight andColor: Color gray muchLighter from: quads withPreviousEntries: aCollection. self twiddleSuppliesButtonsIn: aStrip. aFlapTab _ (sugarNavigator ifTrue: [SolidSugarSuppliesTab] ifFalse: [FlapTab]) new referent: aStrip beSticky. aFlapTab setName: 'Supplies' translated edge: #top color: Color red lighter. aFlapTab position: (0 @ (sugarNavigator ifTrue: [SugarNavTab someInstance height] ifFalse: [aFlapTab height])). aFlapTab setBalloonText: aFlapTab balloonTextForFlapsMenu. aFlapTab applyThickness: 20. aWidth := ActiveWorld width. aStrip extent: ActiveWorld width @ (76 * (1 + (1350 // aWidth))). aStrip beFlap: true. aStrip autoLineLayout: true. sugarNavigator ifTrue: [ aFlapTab useSolidTab. aFlapTab height: 20; color: (Color r: 0.804 g: 0.804 b: 0.804). ] ifFalse: [ aFlapTab color: Color red lighter ]. ^ aFlapTab "Flaps replaceGlobalFlapwithID: 'Supplies' translated"! !