[squeak-dev] The Trunk: Morphic-mt.1179.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Jun 15 06:29:54 UTC 2016
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].'!
More information about the Squeak-dev
mailing list
|