[squeak-dev] The Trunk: Morphic-ar.397.mczCasey Ransberger casey.obrien.r at gmail.comSun Mar 28 07:03:24 UTC 2010
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. Give me a few hours. On Sat, Mar 27, 2010 at 5:13 PM, Chris Muller <asqueaker at gmail.com> wrote: > Not everyone uses the docking bar, that's why it's a preference. Now > I don't have access to help... > > > On Sat, Mar 27, 2010 at 1:05 PM, <commits at source.squeak.org> wrote: > > Andreas Raab uploaded a new version of Morphic to project The Trunk: > > http://source.squeak.org/trunk/Morphic-ar.397.mcz > > > > ==================== Summary ==================== > > > > Name: Morphic-ar.397 > > Author: ar > > Time: 27 March 2010, 11:04:49.708 am > > UUID: 1c064185-bddc-0b4f-905c-db24a1f4313c > > Ancestors: Morphic-tfel.396, Morphic-cbr.392 > > > > Merging Morphic-cbr.392: > > > > 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-tfel.396 =============== > > > > 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 > > }! > > > > > > > > > > -------------- next part -------------- An HTML attachment was scrubbed... URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20100328/8eaae926/attachment.htm
More information about the Squeak-dev mailing list |