[Pkg] The Trunk: MorphicExtras-fbs.118.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jul 25 07:41:05 UTC 2013


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

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

Name: MorphicExtras-fbs.118
Author: fbs
Time: 25 July 2013, 8:39:57.689 am
UUID: 7cd98303-7403-4c49-b7d2-179eb5c22903
Ancestors: MorphicExtras-fbs.117

SmalltalkImage current -> Smalltalk.

=============== Diff against MorphicExtras-fbs.117 ===============

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 := SimpleButtonMorph new target: SmalltalkImage current.
  	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: 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;
- 	aButton := SimpleButtonMorph new target: SmalltalkImage current; 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 "!

Item was changed:
  ----- Method: ProjectNavigationMorph>>quitSqueak (in category 'the actions') -----
  quitSqueak
  	"Obtain a confirmation from the user, and if the answer is true, quite Squeak summarily"
  
  	(self confirm: 'Are you sure you want to Quit Squeak?' translated) ifFalse: [^ self].
  	
+ 	Smalltalk snapshot: false andQuit: true
- 	SmalltalkImage current snapshot: false andQuit: true
  !



More information about the Packages mailing list