Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1179.mcz
==================== Summary ====================
Name: Morphic-mt.1179 Author: mt Time: 15 June 2016, 8:28:59.901896 am UUID: 798fffba-733f-3444-840e-84baabd04da4 Ancestors: Morphic-mt.1178
Add the world's Do-menu to the world main docking bar. Can be hidden via preferences.
=============== Diff against Morphic-mt.1178 ===============
Item was added: + ----- Method: TheWorldMainDockingBar class>>showDoMenuInWorldMainDockingBar (in category 'preferences') ----- + showDoMenuInWorldMainDockingBar + + <preference: 'Show ''Do'' menu in world main docking bar' + category: 'docking bars' + description: 'Whether world''s main docking bar should show the ''Do'' menu.' + type: #Boolean> + ^ self getMenuPreference: #showDoMenuInWorldMainDockingBar ifAbsent: [true] + !
Item was added: + ----- Method: TheWorldMainDockingBar class>>showDoMenuInWorldMainDockingBar: (in category 'preferences') ----- + showDoMenuInWorldMainDockingBar: aBoolean + + self + setMenuPreference: #showDoMenuInWorldMainDockingBar + to: aBoolean. + !
Item was added: + ----- Method: TheWorldMainDockingBar>>doMenuOn: (in category 'construction') ----- + doMenuOn: aDockingBar + + aDockingBar addItem: [ :item | + item + contents: 'Do' translated; + subMenuUpdater: self + selector: #listCommonRequestsOn: ]!
Item was added: + ----- Method: TheWorldMainDockingBar>>listCommonRequestsOn: (in category 'submenu - do') ----- + listCommonRequestsOn: aMenu + + | strings | + strings := Utilities commonRequestStrings contents. + + strings asString linesDo: [:aString | + aString = '-' + ifTrue: [aMenu addLine] + ifFalse: [aMenu add: (aString ifEmpty: [' ']) target: Utilities selector: #eval: argument: aString]]. + + aMenu addLine. + aMenu add: 'edit this list' translated target: Utilities action: #editCommonRequestStrings.!
Item was changed: ----- Method: TheWorldMainDockingBar>>menusOn: (in category 'construction') ----- menusOn: aDockingBar
self class showMainMenuInWorldMainDockingBar ifTrue: [ self squeakMenuOn: aDockingBar].
self class showProjectsMenuInWorldMainDockingBar ifTrue: [ self projectsMenuOn: aDockingBar].
self class showToolsMenuInWorldMainDockingBar ifTrue: [ self toolsMenuOn: aDockingBar].
self class showAppsMenuInWorldMainDockingBar ifTrue: [ self appsMenuOn: aDockingBar].
+ self class showDoMenuInWorldMainDockingBar ifTrue: [ + self doMenuOn: aDockingBar]. + self class showExtrasMenuInWorldMainDockingBar ifTrue: [ self extrasMenuOn: aDockingBar].
self class showWindowsMenuInWorldMainDockingBar ifTrue: [ self windowsMenuOn: aDockingBar].
self class showHelpMenuInWorldMainDockingBar ifTrue: [ self helpMenuOn: aDockingBar].!
Item was changed: (PackageInfo named: 'Morphic') postscript: '"Fixes the event handling that occurs in the same control flow after loading this code." HandMorph allInstancesDo: [:ea | ea initForEvents].
"Deploy mouse-wheel event handling to existing scrollpanes and hands." Project allMorphicProjects do: [:morphicProject | morphicProject world handsDo: [:hand | hand addKeyboardCaptureFilter: hand]]. ScrollPane allSubInstancesDo: [:ea | + ea addKeyboardCaptureFilter: ea]. + + "Add Do-menu." + TheWorldMainDockingBar updateInstances.'! - ea addKeyboardCaptureFilter: ea].'!