Yeah, that sucks. I didn't think about that. I will see about getting help back into the world menu, but I want the menu to contain the same stuff, and a uniform method of generating it. <br><br><div>Give me a few hours.</div>
<div><br><div class="gmail_quote">On Sat, Mar 27, 2010 at 5:13 PM, Chris Muller <span dir="ltr"><<a href="mailto:asqueaker@gmail.com">asqueaker@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
Not everyone uses the docking bar, that's why it's a preference. Now<br>
I don't have access to help...<br>
<div><div></div><div class="h5"><br>
<br>
On Sat, Mar 27, 2010 at 1:05 PM, <<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a>> wrote:<br>
> Andreas Raab uploaded a new version of Morphic to project The Trunk:<br>
> <a href="http://source.squeak.org/trunk/Morphic-ar.397.mcz" target="_blank">http://source.squeak.org/trunk/Morphic-ar.397.mcz</a><br>
><br>
> ==================== Summary ====================<br>
><br>
> Name: Morphic-ar.397<br>
> Author: ar<br>
> Time: 27 March 2010, 11:04:49.708 am<br>
> UUID: 1c064185-bddc-0b4f-905c-db24a1f4313c<br>
> Ancestors: Morphic-tfel.396, Morphic-cbr.392<br>
><br>
> Merging Morphic-cbr.392:<br>
><br>
> 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.<br>
><br>
> 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.<br>
><br>
> 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.<br>
><br>
> =============== Diff against Morphic-tfel.396 ===============<br>
><br>
> Item was changed:<br>
> ----- Method: TheWorldMenu>>buildWorldMenu (in category 'construction') -----<br>
> buildWorldMenu<br>
> "Build the menu that is put up when the screen-desktop is clicked on"<br>
> | menu |<br>
> menu := MenuMorph new defaultTarget: self.<br>
> menu commandKeyHandler: self.<br>
> self colorForDebugging: menu.<br>
> menu addStayUpItem.<br>
> self makeConvenient: menu.<br>
> Smalltalk at: #ServiceGUI ifPresent:[:sgui|<br>
> sgui worldMenu: menu.<br>
> sgui onlyServices ifTrue: [^ menu].<br>
> ].<br>
> self addProjectEntries: menu.<br>
> myWorld addUndoItemsTo: menu.<br>
> self addRestoreDisplay: menu.<br>
> self addUtilities: menu.<br>
> self addObjectsAndTools: menu.<br>
> self addPrintAndDebug: menu.<br>
> self addSaveAndQuit: menu.<br>
> ^ menu!<br>
><br>
> Item was changed:<br>
> ----- Method: TheWorldMainDockingBar>>extrasMenuOn: (in category 'construction') -----<br>
> extrasMenuOn: aDockingBar<br>
><br>
> aDockingBar addItem: [ :it|<br>
> it contents: 'Extras' translated;<br>
> addSubMenu: [:menu|<br>
> menu addItem:[:item|<br>
> item<br>
> contents: 'Recover Changes' translated;<br>
> help: 'Recover changes after a crash' translated;<br>
> icon: MenuIcons smallHelpIcon;<br>
> target: ChangeList;<br>
> selector: #browseRecentLog].<br>
> menu addLine.<br>
> menu addItem:[:item|<br>
> item<br>
> contents: 'Window Colors' translated;<br>
> help: 'Changes the window color scheme' translated;<br>
> addSubMenu:[:submenu| self windowColorsOn: submenu]].<br>
> menu addItem:[:item|<br>
> item<br>
> contents: 'Set Author Initials' translated;<br>
> help: 'Sets the author initials' translated;<br>
> target: Utilities;<br>
> selector: #setAuthorInitials].<br>
> menu addItem:[:item|<br>
> item<br>
> contents: 'Restore Display (r)' translated;<br>
> help: 'Redraws the entire display' translated;<br>
> target: World;<br>
> selector: #restoreMorphicDisplay].<br>
> menu addItem:[:item|<br>
> item<br>
> contents: 'Rebuild Menus' translated;<br>
> help: 'Rebuilds the menu bar' translated;<br>
> target: TheWorldMainDockingBar;<br>
> selector: #updateInstances].<br>
> menu addLine.<br>
> menu addItem:[:item|<br>
> item<br>
> contents: 'Start Profiler' translated;<br>
> help: 'Starts the profiler' translated;<br>
> target: self;<br>
> selector: #startMessageTally].<br>
> menu addItem:[:item|<br>
> item<br>
> contents: 'Collect Garbage' translated;<br>
> help: 'Run the garbage collector and report space usage' translated;<br>
> target: Utilities;<br>
> selector: #garbageCollectAndReport].<br>
> menu addItem:[:item|<br>
> item<br>
> + contents: 'Purge Undo Records' translated;<br>
> + help: 'Save space by removing all the undo information remembered in all projects' translated;<br>
> + target: CommandHistory;<br>
> + selector: #resetAllHistory].<br>
> + menu addItem:[:item|<br>
> + item<br>
> contents: 'VM statistics' translated;<br>
> help: 'Virtual Machine information' translated;<br>
> target: self;<br>
> selector: #vmStatistics].<br>
> + menu addLine.<br>
> + menu addItem:[:item|<br>
> + item<br>
> + contents: 'Graphical Imports' translated;<br>
> + help: 'View the global repository called ImageImports; you can easily import external graphics into ImageImports via the FileList' translated;<br>
> + target: (Imports default);<br>
> + selector: #viewImages].<br>
> + menu addItem:[:item|<br>
> + item<br>
> + contents: 'Standard Graphics Library' translated;<br>
> + help: 'Lets you view and change the system''s standard library of graphics' translated;<br>
> + target: ScriptingSystem;<br>
> + selector: #inspectFormDictionary].<br>
> + menu addItem:[:item|<br>
> + item<br>
> + contents: 'Annotation Setup' translated;<br>
> + 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;<br>
> + target: Preferences;<br>
> + selector: #editAnnotations].<br>
> ] ]!<br>
><br>
> Item was changed:<br>
> ----- Method: TheWorldMenu>>addUtilities: (in category 'construction') -----<br>
> addUtilities: menu<br>
> Preferences simpleMenus ifFalse: [<br>
> self<br>
> fillIn: menu<br>
> from: {<br>
> { 'open...'. { self. #openWindow } }.<br>
> { 'windows...'. { self. #windowsDo } }.<br>
> { 'changes...'. { self. #changesDo } }<br>
> } ].<br>
> self<br>
> fillIn: menu<br>
> from: {<br>
> + " { 'help...'. { self. #helpDo }. 'puts up a menu of useful items for updating the system, determining what version you are running, and much else' }."<br>
> - { 'help...'. { self. #helpDo }. 'puts up a menu of useful items for updating the system, determining what version you are running, and much else' }.<br>
> { 'appearance...'. { self. #appearanceDo }. 'put up a menu offering many controls over appearance.' }<br>
> }.<br>
> Preferences simpleMenus ifFalse: [<br>
> self<br>
> fillIn: menu<br>
> from: {<br>
> { 'do...'. { Utilities. #offerCommonRequests }. 'put up an editible list of convenient expressions, and evaluate the one selected.' }<br>
> } ]!<br>
><br>
> Item was changed:<br>
> ----- Method: TheWorldMainDockingBar>>helpMenuOn: (in category 'construction') -----<br>
> helpMenuOn: aDockingBar<br>
><br>
> aDockingBar addItem: [ :it |<br>
> it contents: 'Help' translated;<br>
> addSubMenu: [ :menu | 'Todo'.<br>
> menu addItem:[:item|<br>
> item<br>
> contents: 'Online Resources' translated;<br>
> help: 'Online resources for Squeak' translated;<br>
> target: self;<br>
> selector: #showSqueakResources ].<br>
> menu addItem:[:item|<br>
> item<br>
> contents: 'Keyboard Shortcuts' translated;<br>
> help: 'Keyboard bindings used in Squeak' translated;<br>
> target: Utilities;<br>
> selector: #openCommandKeyHelp ].<br>
> + menu addItem:[:item|<br>
> + item<br>
> + contents: 'Font Size Summary' translated;<br>
> + help: 'Font size summary from the old Squeak 3.10.2 help menu.' translated;<br>
> + target: TextStyle;<br>
> + selector: #fontSizeSummary ].<br>
> + menu addItem:[:item|<br>
> + item<br>
> + contents: 'Useful Expressions' translated;<br>
> + help: 'Useful expressions from the old Squeak 3.10.2 help menu.' translated;<br>
> + target: Utilities;<br>
> + selector: #openStandardWorkspace ].<br>
> ]].!<br>
><br>
> Item was changed:<br>
> ----- Method: TheWorldMenu>>addObjectsAndTools: (in category 'construction') -----<br>
> addObjectsAndTools: menu<br>
> self<br>
> fillIn: menu<br>
> from: {<br>
> nil.<br>
> { 'objects (o)'. { #myWorld. #activateObjectsTool }. 'A tool for finding and obtaining many kinds of objects' }.<br>
> { 'new morph...'. { self. #newMorph }. 'Offers a variety of ways to create new objects' }.<br>
> nil.<br>
> { 'authoring tools...'. { self. #scriptingDo }. 'A menu of choices useful for authoring' }.<br>
> { 'playfield options...'. { self. #playfieldDo }. 'A menu of options pertaining to this object as viewed as a playfield' }.<br>
> { 'flaps...'. { self. #flapsDo }. 'A menu relating to use of flaps. For best results, use "keep this menu up"' }.<br>
> { 'projects...'. { self. #projectDo }. 'A menu of commands relating to use of projects' }.<br>
> + { 'telemorphic...' . {self. #remoteDo}. 'commands for doing multi-machine "telemorphic" experiments'}.<br>
> nil<br>
> }!<br>
><br>
><br>
><br>
</div></div><br><br>
<br></blockquote></div><br></div>