[squeak-dev] The Trunk: Morphic-cbr.392.mcz

Tobias Pape Das.Linux at gmx.de
Mon Apr 5 08:14:14 UTC 2010


Please imagine that some people do not use the Main Docking bar
(e.g., when fiddling with polymorph).
Thus, would you mind making the help menu dependent on the
docking bar pref?

So Long,
	-Tobias

Am 2010-04-04 um 22:18 schrieb commits at source.squeak.org:

> Chris Muller uploaded a new version of Morphic to project The Trunk:
> http://source.squeak.org/trunk/Morphic-cbr.392.mcz
> 
> ==================== Summary ====================
> 
> Name: Morphic-cbr.392
> Author: cbr
> Time: 26 March 2010, 1:38:37.423 am
> UUID: d2ec5332-d31e-40e5-a5b4-f896cea50f20
> Ancestors: Morphic-mha.391
> 
> I find it irksome that we have two help menus (one in the main docking bar, one in the world menu.) I also find it irksome that there's so much stuff in the help menu that's in the world menu that's not really help-related.
> 
> I moved the stuff that's actually help (except for "world menu help" which really isn't that helpful) out of the world menu and into the docking bar. I took everything else that wasn't already exposed somewhere and put it in the Extras menu on the docking bar.
> 
> I moved telemorphic up to the top of the world menu because I don't know what it's for, because it pops a submenu that wants self to be an instance of TheWorldMenu, and because I didn't really care to mess with transplanting it.
> 
> =============== Diff against Morphic-mha.391 ===============
> 
> Item was changed:
>  ----- Method: TheWorldMenu>>buildWorldMenu (in category 'construction') -----
>  buildWorldMenu
>  	"Build the menu that is put up when the screen-desktop is clicked on"
>  	| menu |
>  	menu := MenuMorph new defaultTarget: self.
>  	menu commandKeyHandler: self.
>  	self colorForDebugging: menu.
>  	menu addStayUpItem.
>  	self makeConvenient: menu.
>  	Smalltalk at: #ServiceGUI ifPresent:[:sgui|
>  		sgui worldMenu: menu.
>  		sgui onlyServices ifTrue: [^ menu].
>  	].
>  	self addProjectEntries: menu.
>  	myWorld addUndoItemsTo: menu.
>  	self addRestoreDisplay: menu.
>  	self addUtilities: menu.
>  	self addObjectsAndTools: menu.
>  	self addPrintAndDebug: menu.
>  	self addSaveAndQuit: menu.
>  	^ menu!
> 
> Item was changed:
>  ----- Method: TheWorldMainDockingBar>>extrasMenuOn: (in category 'construction') -----
>  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 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].
>  			] ]!
> 
> Item was changed:
>  ----- Method: TheWorldMenu>>addUtilities: (in category 'construction') -----
>  addUtilities: menu
>  	Preferences simpleMenus ifFalse: [
>  		self
>  			fillIn: menu
>  			from: {
>  				{ 'open...'. { self. #openWindow } }.
>  				{ 'windows...'. { self. #windowsDo } }.
>  				{ 'changes...'. { self. #changesDo } }
>  			} ].
>  	self
>  		fillIn: menu
>  		from: {
> + "			{ 'help...'. { self. #helpDo }. 'puts up a menu of useful items for updating the system, determining what version you are running, and much else' }."
> - 			{ 'help...'. { self. #helpDo }. 'puts up a menu of useful items for updating the system, determining what version you are running, and much else' }.
>  			{ 'appearance...'. { self. #appearanceDo }. 'put up a menu offering many controls over appearance.' }
>  		}.
>  	Preferences simpleMenus ifFalse: [
>  		self
>  			fillIn: menu
>  			from: {
>  				{ 'do...'. { Utilities. #offerCommonRequests }. 'put up an editible list of convenient expressions, and evaluate the one selected.' }
>  			} ]!
> 
> Item was changed:
>  ----- Method: TheWorldMainDockingBar>>helpMenuOn: (in category 'construction') -----
>  helpMenuOn: aDockingBar
> 
>  	aDockingBar addItem: [ :it |
>  		it	contents: 'Help' translated;
>  			addSubMenu: [ :menu |  'Todo'.
>  				menu addItem:[:item|
>  					item
>  						contents: 'Online Resources' translated;
>  						help: 'Online resources for Squeak' translated;
>  						target: self;
>  						selector: #showSqueakResources ].
>  				menu addItem:[:item|
>  					item
>  						contents: 'Keyboard Shortcuts' translated;
>  						help: 'Keyboard bindings used in Squeak' translated;
>  						target: Utilities;
>  						selector: #openCommandKeyHelp ].
> + 				menu addItem:[:item|
> + 					item
> + 						contents: 'Font Size Summary' translated;
> + 						help: 'Font size summary from the old Squeak 3.10.2 help menu.' translated;
> + 						target: TextStyle;
> + 						selector: #fontSizeSummary ].
> + 				menu addItem:[:item|
> + 					item
> + 						contents: 'Useful Expressions' translated;
> + 						help: 'Useful expressions from the old Squeak 3.10.2 help menu.' translated;
> + 						target: Utilities;
> + 						selector: #openStandardWorkspace ].
>  			]].!
> 
> Item was changed:
>  ----- Method: TheWorldMenu>>addObjectsAndTools: (in category 'construction') -----
>  addObjectsAndTools: menu
>  	self
>  		fillIn: menu
>  		from: {
>  			nil.
>  			{ 'objects (o)'. { #myWorld. #activateObjectsTool }. 'A tool for finding and obtaining many kinds of objects' }.
>  			{ 'new morph...'. { self. #newMorph }. 'Offers a variety of ways to create new objects' }.
>  			nil.
>  			{ 'authoring tools...'. { self. #scriptingDo }. 'A menu of choices useful for authoring' }.
>  			{ 'playfield options...'. { self. #playfieldDo }. 'A menu of options pertaining to this object as viewed as a playfield' }.
>  			{ 'flaps...'. { self. #flapsDo }. 'A menu relating to use of flaps.  For best results, use "keep this menu up"' }.
>  			{ 'projects...'. { self. #projectDo }. 'A menu of commands relating to use of projects' }.
> + 			{ 'telemorphic...' . {self. #remoteDo}.  'commands for doing multi-machine "telemorphic" experiments'}.
>  			nil
>  		}!
> 




More information about the Squeak-dev mailing list