Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.550.mcz
==================== Summary ====================
Name: Morphic-cmm.550 Author: cmm Time: 21 June 2011, 4:48:23.406 pm UUID: f355eac5-f4b3-4324-b2c9-c6571e6e348c Ancestors: Morphic-cmm.549, Morphic-cbr.458, Morphic-spd.469, Morphic-spd.507
Integrated Morphic-cbr.458, Morphic-spd.469, and Morphic-spd.507.
=============== Diff against Morphic-cmm.549 ===============
Item was changed: ----- Method: LineMorph class>>from:to:color:width: (in category 'instance creation') ----- from: startPoint to: endPoint color: lineColor width: lineWidth
+ ^ self vertices: {startPoint. endPoint} - ^ PolygonMorph vertices: {startPoint. endPoint} color: Color black borderWidth: lineWidth borderColor: lineColor!
Item was changed: ----- Method: TextMorph>>autoFit: (in category 'accessing') ----- autoFit: trueOrFalse + "Whether I automatically adjust my size to fit text as it changes" + self isAutoFit = trueOrFalse ifTrue: [^ self]. + self autoFitOnOff.! - self autoFitOnOff!
Item was changed: ----- Method: TextMorph>>wrapFlag: (in category 'accessing') ----- wrapFlag: aBoolean + "Whether contained text will adjust its bounds as I change shape: + | wrapFlag | TextMorph grows | TextMorph shrinks | + | true | wrapped lines fill new space | long lines wrap to fit | + | false | wrapped lines stay same | long lines are cut off |" - "Change whether contents are wrapped to the container."
aBoolean == wrapFlag ifTrue: [^ self]. wrapFlag := aBoolean. self composeToBounds!
Item was changed: ----- Method: TheWorldMainDockingBar>>extrasMenuOn: (in category 'submenu - extras') ----- extrasMenuOn: aDockingBar
aDockingBar addItem: [ :it| it contents: 'Extras' translated; addSubMenu: [:menu| menu addItem:[:item| item contents: 'Recover Changes' translated; help: 'Recover changes after a crash' translated; icon: MenuIcons smallHelpIcon; target: ChangeList; selector: #browseRecentLog]. menu addLine. menu addItem:[:item| item contents: 'Window Colors' translated; help: 'Changes the window color scheme' translated; addSubMenu:[:submenu| self windowColorsOn: submenu]]. menu addItem:[:item| item contents: 'Set Author Initials' translated; help: 'Sets the author initials' translated; target: Utilities; selector: #setAuthorInitials]. menu addItem:[:item| item contents: 'Restore Display (r)' translated; help: 'Redraws the entire display' translated; target: World; selector: #restoreMorphicDisplay]. menu addItem:[:item| item contents: 'Rebuild Menus' translated; help: 'Rebuilds the menu bar' translated; target: TheWorldMainDockingBar; selector: #updateInstances]. menu addItem:[:item| item contents: 'Toggle Fullscreen' translated; help: 'Switches fullscreen mode on and off' translated; target: Project current; selector: #toggleFullScreen]. menu addLine. menu addItem:[:item| item contents: 'Start Profiler' translated; help: 'Starts the profiler' translated; target: self; selector: #startMessageTally]. menu addItem:[:item| item contents: 'Collect Garbage' translated; help: 'Run the garbage collector and report space usage' translated; target: Utilities; selector: #garbageCollectAndReport]. menu addItem:[:item| item contents: 'Purge Undo Records' translated; help: 'Save space by removing all the undo information remembered in all projects' translated; target: CommandHistory; selector: #resetAllHistory]. menu addItem:[:item| item contents: 'VM statistics' translated; help: 'Virtual Machine information' translated; target: self; selector: #vmStatistics]. menu addLine. menu addItem:[:item| item contents: 'Graphical Imports' translated; help: 'View the global repository called ImageImports; you can easily import external graphics into ImageImports via the FileList' translated; target: (Imports default); selector: #viewImages]. menu addItem:[:item| item contents: 'Standard Graphics Library' translated; help: 'Lets you view and change the system''s standard library of graphics' translated; target: ScriptingSystem; selector: #inspectFormDictionary]. menu addItem:[:item| item contents: 'Annotation Setup' translated; help: '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' translated; target: Preferences; selector: #editAnnotations]. + menu addItem:[:item| + item + contents: 'Browse My Changes' translated; + help: 'Browse all of my changes since the last time #condenseSources was run.' translated; + target: SystemNavigation new; + selector: #browseMyChanges]. ] ]!
Item was changed: ----- Method: TheWorldMenu>>changesMenu (in category 'construction') ----- changesMenu "Build the changes menu for the world."
| menu | menu := self menu: 'changes...'. self fillIn: menu from: { { 'file out current change set' . { ChangeSet current . #verboseFileOut}. 'Write the current change set out to a file whose name reflects the change set name and the current date & time.'}. { 'create new change set...' . { ChangeSet . #newChangeSet}. 'Create a new change set and make it the current one.'}. { 'browse changed methods' . { ChangeSet . #browseChangedMessages}. 'Open a message-list browser showing all methods in the current change set'}. { 'check change set for slips' . { self . #lookForSlips}. 'Check the current change set for halts, references to the Transcript, etc., and if any such thing is found, open up a message-list browser detailing all possible slips.'}.
nil. { 'simple change sorter' . {self. #openChangeSorter1}. 'Open a 3-paned changed-set viewing tool'}. { 'dual change sorter' . {self. #openChangeSorter2}. 'Open a change sorter that shows you two change sets at a time, making it easy to copy and move methods and classes between them.'}. { 'find a change sorter (C)' . { #myWorld . #findAChangeSorter: }. 'Brings an open change sorter to the front, creating one if necessary, and makes it the active window'}. nil. { 'browse recent submissions (R)' . { Utilities . #browseRecentSubmissions}. 'Open a new recent-submissions browser. A recent-submissions browser is a message-list browser that shows the most recent methods that have been submitted. If you submit changes within that browser, it will keep up-to-date, always showing the most recent submissions.'}. + { 'browse my changes' . { SystemNavigation new . #browseMyChanges }. + 'Browse all of my changes since the last time #condenseSources was run.'}. - nil. { 'recently logged changes...' . { self . #browseRecentLog}.'Open a change-list browser on the latter part of the changes log. You can use this browser to recover logged changes which were not saved in your image, in the event of a crash or other interruption.'}.
{ 'recent log file...' . { Smalltalk . #writeRecentToFile}. 'Create a file holding the logged changes (going as far back as you wish), and open a window on that file.'}.
nil. { 'save world as morph file' . {self. #saveWorldInFile}. 'Save a file that, when reloaded, reconstitutes the current World.'}. nil. }. ^ menu!
packages@lists.squeakfoundation.org