[squeak-dev] The Trunk: MorphicExtras-fbs.129.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Dec 6 22:41:44 UTC 2013


Frank Shearar uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-fbs.129.mcz

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

Name: MorphicExtras-fbs.129
Author: fbs
Time: 6 December 2013, 10:41:15.87 pm
UUID: e7cf5f25-44eb-f945-89db-a302ca134ffc
Ancestors: MorphicExtras-fbs.128

Use the new updater API.

=============== Diff against MorphicExtras-fbs.128 ===============

Item was changed:
  ----- Method: Flaps class>>newSqueakFlap (in category 'predefined flaps') -----
  newSqueakFlap
  	"Answer a new default 'Squeak' flap for the left edge of the screen"
  
  	| aFlap aFlapTab aButton aClock buttonColor anOffset bb aFont |
  	aFlap := PasteUpMorph newSticky borderWidth: 0.
  	aFlapTab := FlapTab new referent: aFlap.
  	aFlapTab setName: 'Squeak' translated edge: #left color: Color brown lighter lighter.
  	aFlapTab position: (0 @ ((Display height - aFlapTab height) // 2)).
  	aFlapTab setBalloonText: aFlapTab balloonTextForFlapsMenu.
  
  	aFlap cellInset: 14 at 14.
  	aFlap beFlap: true.
  	aFlap color: (Color brown muchLighter lighter "alpha: 0.3").
  	aFlap extent: 150 @ self currentWorld height.
  	aFlap layoutPolicy: TableLayout new.
  	aFlap wrapCentering: #topLeft.
  	aFlap layoutInset: 2.
  	aFlap listDirection: #topToBottom.
  	aFlap wrapDirection: #leftToRight.
  
  	"self addProjectNavigationButtonsTo: aFlap."
  	anOffset := 16.
  
  	aClock := ClockMorph newSticky.
  	aClock color: Color red.
  	aClock showSeconds: false.
  	aClock font: (TextStyle default fontAt: 3).
  	aClock step.
  	aClock setBalloonText: 'The time of day.  If you prefer to see seconds, check out my menu.' translated.
  	aFlap addCenteredAtBottom: aClock offset: anOffset.
  
  	buttonColor :=  Color cyan muchLighter.
  	bb := SimpleButtonMorph new target: Smalltalk.
  	bb color: buttonColor.
  	aButton := bb copy.
  	aButton actionSelector: #saveSession.
  	aButton setBalloonText: 'Make a complete snapshot of the current state of the image onto disk.' translated.
  	aButton label: 'save' translated font: (aFont := ScriptingSystem fontForTiles).
  	aFlap addCenteredAtBottom: aButton offset: anOffset.
  
+ 	aButton := bb copy target: MCMcmUpdater.
- 	aButton := bb copy target: Utilities.
  	aButton actionSelector: #updateFromServer.
  	aButton label: 'load code updates' translated font: aFont.
  	aButton color: buttonColor.
  	aButton setBalloonText: 'Check the Squeak server for any new code updates, and load any that are found.' translated.
  	aFlap addCenteredAtBottom: aButton offset: anOffset.
  
  	aButton := SimpleButtonMorph new target: Smalltalk; actionSelector: #aboutThisSystem;
  		label: 'about this system' translated font: aFont.
  	aButton color: buttonColor.
  	aButton setBalloonText: 'click here to find out version information' translated.
  	aFlap addCenteredAtBottom: aButton offset: anOffset.
  
  	aFlap addCenteredAtBottom: (Preferences themeChoiceButtonOfColor: buttonColor font: aFont) offset: anOffset.
  
  	aButton := TrashCanMorph newSticky.
  	aFlap addCenteredAtBottom: aButton offset: anOffset.
  	aButton startStepping.
  
  	^ aFlapTab
  
  "Flaps replaceGlobalFlapwithID: 'Squeak' translated "!



More information about the Squeak-dev mailing list