Etoys: MorphicExtras-kfr.66.mcz

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"!

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev