Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.551.mcz
==================== Summary ====================
Name: Morphic-cmm.551 Author: cmm Time: 21 June 2011, 8:20:55.16 pm UUID: b16faf40-0f35-435b-aa1b-ac5eadc6661b Ancestors: Morphic-cmm.550
- Reverted LineMorph class>>from:to:color:width: - PolygonMorph can cover all kinds of polygons, including lines.. - Full-screen toggle option has been moved out from the menu (from multiple places) and onto the bar directly, just to the right of the clock. For one-click access (instead of two). - Changed balloon-help nomenclature of +expand to remove "full-screen", since it is not truly full-screen, just expanded from its current state.
=============== Diff against Morphic-cmm.550 ===============
Item was changed: ----- Method: LineMorph class>>from:to:color:width: (in category 'instance creation') ----- from: startPoint to: endPoint color: lineColor width: lineWidth
+ ^ PolygonMorph vertices: {startPoint. endPoint} - ^ self vertices: {startPoint. endPoint} color: Color black borderWidth: lineWidth borderColor: lineColor!
Item was changed: ----- Method: SystemWindow>>collapseOrExpand (in category 'resize/collapse') ----- collapseOrExpand "Collapse or expand the window, depending on existing state" | cf | isCollapsed ifTrue: ["Expand -- restore panes to morphics structure" isCollapsed := false. self activate. "Bring to frint first" Preferences collapseWindowsInPlace ifTrue: [fullFrame := fullFrame align: fullFrame topLeft with: self getBoundsWithFlex topLeft] ifFalse: [collapsedFrame := self getBoundsWithFlex]. + collapseBox ifNotNil: [collapseBox setBalloonText: 'collapse this window' translated]. - collapseBox ifNotNil: [collapseBox setBalloonText: 'collapse this window']. self setBoundsWithFlex: fullFrame. paneMorphs reverseDo: [:m | self addMorph: m unlock. self world startSteppingSubmorphsOf: m]. self addPaneSplitters] ifFalse: ["Collapse -- remove panes from morphics structure" isCollapsed := true. fullFrame := self getBoundsWithFlex. "First save latest fullFrame" paneMorphs do: [:m | m delete; releaseCachedState]. self removePaneSplitters. self removeCornerGrips. model modelSleep. cf := self getCollapsedFrame. (collapsedFrame isNil and: [Preferences collapseWindowsInPlace not]) ifTrue: [collapsedFrame := cf]. self setBoundsWithFlex: cf. + collapseBox ifNotNil: [collapseBox setBalloonText: 'expand this window' translated ]. + expandBox ifNotNil: [expandBox setBalloonText: 'expand this window' translated ]. - collapseBox ifNotNil: [collapseBox setBalloonText: 'expand this window']. - expandBox ifNotNil: [expandBox setBalloonText: 'expand to full screen']. self sendToBack]. self layoutChanged!
Item was changed: ----- Method: SystemWindow>>contractToOriginalSize (in category 'resize/collapse') ----- contractToOriginalSize self bounds: self unexpandedFrame. self unexpandedFrame: nil. + expandBox ifNotNil: [expandBox setBalloonText: 'expand this window' translated].! - expandBox ifNotNil: [expandBox setBalloonText: 'expand to full screen' translated].!
Item was changed: ----- Method: SystemWindow>>createExpandBox (in category 'initialization') ----- createExpandBox ^ (self createBox: self class expandBoxImage) actionSelector: #expandBoxHit; + setBalloonText: 'expand this window' translated! - setBalloonText: 'expand to full screen' translated!
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: TheWorldMainDockingBar>>projectsMenuOn: (in category 'construction') ----- projectsMenuOn: aDockingBar
aDockingBar addItem: [ :item | item contents: 'Projects' translated; addSubMenu: [ :menu | self newProjectMenuItemOn: menu; saveProjectMenuItemOn: menu; loadProjectMenuItemOn: menu; previousProjectMenuItemOn: menu; + jumpToProjectMenuItemOn: menu ] ] - jumpToProjectMenuItemOn: menu; - toggleFullScreenMenuItemOn: menu ] ] !
Item was removed: - ----- Method: TheWorldMainDockingBar>>toggleFullScreenMenuItemOn: (in category 'submenu - projects') ----- - toggleFullScreenMenuItemOn: menu - - menu addItem: [ :item | - item - contents: 'Toggle Full Screen' translated; - help: 'Switch back and forth from full screen mode' translated; - icon: MenuIcons smallFullscreenOnIcon; - target: Project current; - selector: #toggleFullScreen ]!
Item was changed: ----- Method: TheWorldMainDockingBar>>toggleFullScreenOn: (in category 'right side') ----- + toggleFullScreenOn: aDockingBar + | toggleMorph | + toggleMorph := (SketchMorph withForm: MenuIcons smallFullscreenOffIcon) setBalloonText: 'toggle full screen mode' translated; + + on: #mouseDown + send: #value + to: + [ Project current toggleFullScreen. + toggleMorph form: MenuIcons smallFullscreenOffIcon ] ; - toggleFullScreenOn: aDockingBar
+ on: #mouseEnter + send: #value + to: [toggleMorph form: MenuIcons smallFullscreenOnIcon]; + + on: #mouseLeave + send: #value + to: [toggleMorph form: MenuIcons smallFullscreenOffIcon]; + yourself. + aDockingBar addMorphBack: toggleMorph! - | toggleMorph toggleColor toggleColorOver | - toggleColor := Color "transparent" lightOrange. - toggleColorOver := Color orange. - (toggleMorph := Morph new) - extent: 18 @ 18; flag: #rhi; "*** 18 = MAGIC NUMBER? ***" - borderWidth: 0; - color: toggleColor; - setBalloonText: 'toggle full screen mode'; - on: #mouseDown send: #value to: [Project current toggleFullScreen]; - on: #mouseEnter send: #value to: [toggleMorph color: toggleColorOver]; - on: #mouseLeave send: #value to: [toggleMorph color: toggleColor]. - aDockingBar addMorphBack: toggleMorph.!
Item was changed: ----- Method: TheWorldMainDockingBar>>windowMenuFor:on: (in category 'submenu - windows') ----- windowMenuFor: window on: menu - menu addItem: [ :item | item + contents: 'Close' translated ; - contents: 'Close'; target: window; selector: #delete ]; addItem: [ :item | item + contents: 'Close all like this' translated ; - contents: 'Close all like this'; target: self; selector: #closeAllWindowsLike:; arguments: { window } ]; addItem: [ :item | item + contents: 'Close all but this' translated ; - contents: 'Close all but this'; target: self; selector: #closeAllWindowsBut:; arguments: { window } ]; addItem: [ :item | item + contents: 'Expand or Contract' translated ; - contents: 'Toggle Full Screen'; target: window; selector: #expandBoxHit ]!
packages@lists.squeakfoundation.org