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