[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