[etoys-dev] Etoys: MorphicExtras-kfr.66.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys:
http://source.squeak.org/etoys/MorphicExtras-kfr.66.mcz

==================== Summary ====================

Name: MorphicExtras-kfr.66
Author: kfr
Time: 16 March 2012, 10:16:12 pm
UUID: 3c6e419b-67c2-e345-afc4-c121baabc0f4
Ancestors: MorphicExtras-kfr.65

Fix vertical resize of supplies flap SQ-1046

=============== Diff against MorphicExtras-kfr.65 ===============

Item was changed:
  ----- Method: Flaps class>>newSuppliesFlapFromQuads:positioning:withPreviousEntries: (in category 'predefined flaps') -----
  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: (sugarNavigator ifTrue: [#top] ifFalse: [#bottom]) color: Color red lighter.
  	aFlapTab position: (0 @ ActiveWorld sugarAllowance).
  	aFlapTab setBalloonText: aFlapTab balloonTextForFlapsMenu.
  	aFlapTab applyThickness: 20.
  
  	aWidth := ActiveWorld width.
  	aStrip extent: ActiveWorld width @ (76 * (1 + (1350 // aWidth))).
  	aStrip beFlap: true.
  	aStrip autoLineLayout: true.
+ 	aStrip vResizeToFit: 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"!