Frank Shearar uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-fbs.675.mcz
==================== Summary ====================
Name: Morphic-fbs.675 Author: fbs Time: 25 July 2013, 8:37:01.098 am UUID: e58172c6-7e48-dc42-a66c-9b3459c2d346 Ancestors: Morphic-fbs.674
SmalltalkImage current -> Smalltalk.
=============== Diff against Morphic-fbs.674 ===============
Item was changed: ----- Method: TheWorldMainDockingBar>>aboutSqueak (in category 'menu actions') ----- aboutSqueak UserDialogBoxMorph + inform: Smalltalk systemInformationString withCRs - inform: SmalltalkImage current systemInformationString withCRs title: 'About Squeak:' at: World center. !
Item was changed: ----- Method: TheWorldMainDockingBar>>quitSqueak (in category 'menu actions') ----- quitSqueak
+ ^Smalltalk - ^SmalltalkImage current snapshot: ( UserDialogBoxMorph confirm: 'Save changes before quitting?' translated orCancel: [ ^self ] at: World center) andQuit: true
!
Item was changed: ----- Method: TheWorldMainDockingBar>>save (in category 'menu actions') ----- save
+ Smalltalk snapshot: true andQuit: false! - SmalltalkImage current snapshot: true andQuit: false!
Item was changed: ----- Method: TheWorldMainDockingBar>>saveAndQuitSqueak (in category 'menu actions') ----- saveAndQuitSqueak
+ Smalltalk snapshot: true andQuit: true! - SmalltalkImage current snapshot: true andQuit: true!
Item was changed: ----- Method: TheWorldMainDockingBar>>saveAsNewVersion (in category 'menu actions') ----- saveAsNewVersion
+ Smalltalk saveAsNewVersion! - SmalltalkImage current saveAsNewVersion!
Item was changed: ----- Method: TheWorldMainDockingBar>>saveImage (in category 'menu actions') ----- saveImage
+ Smalltalk saveSession! - SmalltalkImage current saveSession!
Item was changed: ----- Method: TheWorldMainDockingBar>>saveImageAs (in category 'menu actions') ----- saveImageAs
+ Smalltalk saveAs! - SmalltalkImage current saveAs!
Item was changed: ----- Method: TheWorldMainDockingBar>>vmStatistics (in category 'menu actions') ----- vmStatistics "Open a string view on a report of vm statistics"
+ (StringHolder new contents: Smalltalk vmStatisticsReportString) - (StringHolder new contents: SmalltalkImage current vmStatisticsReportString) openLabel: 'VM Statistics'!
Item was changed: ----- Method: TheWorldMenu>>addSaveAndQuit: (in category 'construction') ----- addSaveAndQuit: menu self fillIn: menu from: { nil. + { 'save'. { Smalltalk. #saveSession }. 'save the current version of the image on disk' }. + { 'save as...'. { Smalltalk. #saveAs }. 'save the current version of the image on disk under a new name.' }. + { 'save as new version'. { Smalltalk. #saveAsNewVersion }. 'give the current image a new version-stamped name and save it under that name on disk.' }. - { 'save'. { SmalltalkImage current. #saveSession }. 'save the current version of the image on disk' }. - { 'save as...'. { SmalltalkImage current. #saveAs }. 'save the current version of the image on disk under a new name.' }. - { 'save as new version'. { SmalltalkImage current. #saveAsNewVersion }. 'give the current image a new version-stamped name and save it under that name on disk.' }. { 'save and quit'. { self. #saveAndQuit }. 'save the current image on disk, and quit out of Squeak.' }. { 'quit'. { self. #quitSession }. 'quit out of Squeak.' } }!
Item was changed: ----- Method: TheWorldMenu>>helpMenu (in category 'construction') ----- helpMenu "Build the help menu for the world." | menu |
menu := self menu: 'help...'.
self fillIn: menu from: { + {'about this system...'. {Smalltalk. #aboutThisSystem}. 'current version information.'}. - {'about this system...'. {SmalltalkImage current. #aboutThisSystem}. 'current version information.'}. {'update code from server'. {Utilities. #updateFromServer}. 'load latest code updates via the internet'}. {'preferences...'. {self. #openPreferencesBrowser}. 'view and change various options.'}. {'set language...' . {Project. #chooseNaturalLanguage}. 'choose the language in which tiles should be displayed.'} . nil. {'command-key help'. { Utilities . #openCommandKeyHelp}. 'summary of keyboard shortcuts.'} }.
self addGestureHelpItemsTo: menu.
self fillIn: menu from: { {'world menu help'. { self . #worldMenuHelp}. 'helps find menu items buried in submenus.'}. "{'info about flaps' . { Utilities . #explainFlaps}. 'describes how to enable and use flaps.'}." {'font size summary' . { TextStyle . #fontSizeSummary}. 'summary of names and sizes of available fonts.'}. {'useful expressions' . { Utilities . #openStandardWorkspace}. 'a window full of useful expressions.'}. {'annotation setup...' . { Preferences . #editAnnotations}. 'Click here to get a little window that will allow you to specify which types of annotations, in which order, you wish to see in the annotation panes of browsers and other tools'}. nil. {'graphical imports' . { Imports default . #viewImages}. 'view the global repository called ImageImports; you can easily import external graphics into ImageImports via the FileList'}. {'standard graphics library' . { ScriptingSystem . #inspectFormDictionary}. 'lets you view and change the system''s standard library of graphics.'}. nil. {'telemorphic...' . {self. #remoteDo}. 'commands for doing multi-machine "telemorphic" experiments'}. {#soundEnablingString . { Preferences . #toggleSoundEnabling}. 'turning sound off will completely disable Squeak''s use of sound.'}. nil.
{'set author initials...' . { Utilities . #setAuthorInitials }. 'supply initials to be used to identify the author of code and other content.'}. {'vm statistics' . { self . #vmStatistics}. 'obtain some intriguing data about the vm.'}. nil. {'purge undo records' . { CommandHistory . #resetAllHistory }. 'save space by removing all the undo information remembered in all projects.'}. {'space left' . { self . #garbageCollect}. 'perform a full garbage-collection and report how many bytes of space remain in the image.'}. }.
^menu
!
Item was changed: ----- Method: TheWorldMenu>>quitSession (in category 'commands') ----- quitSession
+ Smalltalk - SmalltalkImage current snapshot: (UserDialogBoxMorph confirm: 'Save changes before quitting?' translated orCancel: [^ self] at: World center) andQuit: true!
Item was changed: ----- Method: TheWorldMenu>>saveAndQuit (in category 'commands') ----- saveAndQuit
+ Smalltalk snapshot: true andQuit: true! - SmalltalkImage current snapshot: true andQuit: true!
Item was changed: ----- Method: TheWorldMenu>>vmStatistics (in category 'commands') ----- vmStatistics "Open a string view on a report of vm statistics"
+ (StringHolder new contents: Smalltalk vmStatisticsReportString) - (StringHolder new contents: SmalltalkImage current vmStatisticsReportString) openLabel: 'VM Statistics'!
packages@lists.squeakfoundation.org