Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.571.mcz
==================== Summary ====================
Name: Morphic-cmm.571 Author: cmm Time: 20 August 2011, 2:30:06.341 pm UUID: 34d25112-deac-451e-ac1e-aa9a27f95f25 Ancestors: Morphic-cmm.570, Morphic-jmg.569
- Merged. - Show seconds on DockingBar clock because it's useful for quick-and-rough timings as well as to know if the UI process is available. It is not distracting. - Make the docking bar dropEnabled:, so that custom buttons can be dropped there.
=============== Diff against Morphic-cmm.570 ===============
Item was changed: ----- Method: DockingBarMorph>>initialize (in category 'initialize-release') ----- initialize "initialize the receiver" super initialize. - "" selectedItem := nil. activeSubMenu := nil. fillsOwner := true. avoidVisibleBordersAtEdge := true. autoGradient := Preferences gradientMenu. + self + setDefaultParameters ; + beFloating ; + beSticky ; + layoutInset: 0 ; + dropEnabled: true. - "" - self setDefaultParameters. - "" - self beFloating; beSticky. - "" - self layoutInset: 0. Project current world activeHand addKeyboardListener: self!
Item was changed: ----- Method: TheWorldMainDockingBar>>clockOn: (in category 'right side') ----- clockOn: aDockingBar - aDockingBar + addMorphBack: ClockMorph new ; - addMorphBack: ( - ClockMorph new - showSeconds: false; - yourself); addDefaultSpace!
Item was added: + ----- Method: TheWorldMainDockingBar>>methodFinderMenuItemOn: (in category 'submenu - tools') ----- + methodFinderMenuItemOn: menu + + menu addItem: [:item | + item + contents: 'Method Finder' translated; + help: 'Open the Method Finder' translated; + icon: (self colorIcon: Preferences methodFinderWindowColor); + target: StandardToolSet; + selector: #openSelectorBrowser]!
Item was changed: ----- Method: TheWorldMainDockingBar>>toolsMenuOn: (in category 'construction') ----- toolsMenuOn: aDockingBar
aDockingBar addItem: [ :item | item contents: 'Tools' translated; addSubMenu: [ :menu | self browserMenuItemOn: menu; workspaceMenuItemOn: menu; transcriptMenuItemOn: menu; + testRunnerMenuItemOn: menu; + methodFinderMenuItemOn: menu. - testRunnerMenuItemOn: menu. menu addLine. self monticelloBrowserMenuItemOn: menu; monticelloConfigurationsMenuItemOn: menu; simpleChangeSorterMenuItemOn: menu; dualChangeSorterMenuItemOn: menu. menu addLine. self processBrowserMenuItemOn: menu; preferenceBrowserMenuItemOn: menu; fileListMenuItemOn: menu. ] ]!