[squeak-dev] The Trunk: Tools-ar.125.mcz

Andreas Raab uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ar.125.mcz

==================== Summary ====================

Name: Tools-ar.125
Author: ar
Time: 7 September 2009, 3:22:56 am
UUID: 5fb549b5-0ac4-ff4a-a364-ac5603171386
Ancestors: Tools-dtl.124

Fix CustomMenu references. There is one last reference left in StringHolder>>offerMenuFrom:shifted: but it will require going through its callers so leave that for another day.

=============== Diff against Tools-dtl.124 ===============

Item was changed:
  ----- Method: Debugger>>contextStackMenu:shifted: (in category 'context stack menu') -----
  contextStackMenu: aMenu shifted: shifted
  "Set up the menu appropriately for the context-stack-list, either shifted or unshifted as per the parameter provided"
 
+ ^ shifted ifFalse:[
+ aMenu addList: {
+ {'fullStack (f)'. #fullStack}.
+ {'restart (r)'. #restart}.
+ {'proceed (p)'. #proceed}.
+ {'step (t)'. #doStep}.
+ {'step through (T)'. #stepIntoBlock}.
+ {'send (e)'. #send}.
+ {'where (w)'. #where}.
+ {'peel to first like this'. #peelToFirst}.
+ #-.
+ {'return entered value'. #returnValue}.
+ #-.
+ {'toggle break on entry'. #toggleBreakOnEntry}.
+ {'senders of... (n)'. #browseSendersOfMessages}.
+ {'implementors of... (m)'. #browseMessages}.
+ {'inheritance (i)'. #methodHierarchy}.
+ #-.
+ {'versions (v)'. #browseVersions}.
+ {'inst var refs...'. #browseInstVarRefs}.
+ #-.
+ {'inst var defs...'. #browseInstVarDefs}.
+ {'class var refs...'. #browseClassVarRefs}.
+ {'class variables'. #browseClassVariables}.
+ #-.
+ {'class refs (N)'. #browseClassRefs}.
+ {'browse full (b)'. #browseMethodFull}.
+ {'file out '. #fileOutMessage}.
+ #-.
+ {'mail out bug report'. #mailOutBugReport}.
+ {'more...'. #shiftedYellowButtonActivity}.
+ }.
+ ] ifTrue: [
+ aMenu addList: {
+ {'browse class hierarchy'. #classHierarchy}.
+ {'browse class'. #browseClass}.
+ {'browse method (O)'. #openSingleMessageBrowser}.
+ {'implementors of sent messages'. #browseAllMessages}.
+ {'change sets with this method'. #findMethodInChangeSets}.
+ #-.
+ {'inspect instances'. #inspectInstances}.
+ {'inspect subinstances'. #inspectSubInstances}.
+ #-.
+ {'revert to previous version'. #revertToPreviousVersion}.
+ {'remove from current change set'. #removeFromCurrentChanges}.
+ {'revert & remove from changes'. #revertAndForget}.
+ #-.
+ {'more...'. #unshiftedYellowButtonActivity}.
+ }
+ ].!
- ^ shifted ifFalse:
- [self selectedContext selector = #doesNotUnderstand: ifTrue:
- [aMenu
- add: 'implement in...'
- subMenu: (self populateImplementInMenu: (Smalltalk isMorphic ifTrue: [MenuMorph new defaultTarget: self] ifFalse: [CustomMenu new]))
- target: nil
- selector: nil
- argumentList: #(nil)].
- aMenu labels:
- 'fullStack (f)
- restart (r)
- proceed (p)
- step (t)
- step through (T)
- send (e)
- where (w)
- peel to first like this
- return entered value
- toggle break on entry
- senders of... (n)
- implementors of... (m)
- inheritance (i)
- versions (v)
- inst var refs...
- inst var defs...
- class var refs...
- class variables
- class refs (N)
- browse full (b)
- file out
- mail out bug report
- more...'
- lines: #(8 9 13 15 18 21)
- selections: #(fullStack restart proceed doStep stepIntoBlock send where peelToFirst returnValue toggleBreakOnEntry
- browseSendersOfMessages browseMessages methodHierarchy browseVersions
- browseInstVarRefs browseInstVarDefs
- browseClassVarRefs browseClassVariables browseClassRefs
- browseMethodFull fileOutMessage mailOutBugReport
- shiftedYellowButtonActivity)]
-
- ifTrue: [aMenu labels:
- 'browse class hierarchy
- browse class
- browse method (O)
- implementors of sent messages
- change sets with this method
- inspect instances
- inspect subinstances
- revert to previous version
- remove from current change set
- revert & remove from changes
- more...'
- lines: #(5 7 10)
- selections: #(classHierarchy browseClass
- openSingleMessageBrowser browseAllMessages findMethodInChangeSets
- inspectInstances inspectSubInstances
- revertToPreviousVersion
- removeFromCurrentChanges revertAndForget
- unshiftedYellowButtonActivity)]
-
- !

Item was changed:
  ----- Method: CodeHolder>>offerWhatToShowMenu (in category 'what to show') -----
  offerWhatToShowMenu
  "Offer a menu governing what to show"
+ | builder menuSpec item |
+ builder := ToolBuilder default.
+ menuSpec := builder pluggableMenuSpec new.
+ self contentsSymbolQuints do: [:aQuint | aQuint == #-
+ ifTrue: [menuSpec addSeparator]
+ ifFalse: [
+ item := menuSpec add: (self perform: aQuint third)
+ target: self selector: aQuint second argumentList: #().
+ item help: aQuint fifth.
+ ].
+ ].
+ builder runModal: (builder open: menuSpec).!
- | aMenu |
- Smalltalk isMorphic
- ifTrue: [aMenu := MenuMorph new defaultTarget: self.
- aMenu addTitle: 'What to show' translated.
- aMenu addStayUpItem.
- self addContentsTogglesTo: aMenu.
- aMenu popUpInWorld]
- ifFalse: [aMenu := CustomMenu new.
- self addContentsTogglesTo: aMenu.
- aMenu title: 'What to show' translated.
- aMenu invokeOn: self.
- self changed: #contents ]!

Item was removed:
- ----- Method: CodeHolder>>addContentsTogglesTo: (in category 'what to show') -----
- addContentsTogglesTo: aMenu
- "Add updating menu toggles governing contents to aMenu."
- self contentsSymbolQuints
- do: [:aQuint | aQuint == #-
- ifTrue: [aMenu addLine]
- ifFalse: [Smalltalk isMorphic
- ifTrue: [aMenu
- addUpdating: aQuint third
- target: self
- action: aQuint second.
- aMenu balloonTextForLastItem: aQuint fifth]
- ifFalse: [aMenu
- add: (('<yes>*' match: (self perform: aQuint third)) ifTrue: ['*'] ifFalse: ['']), aQuint fourth
- target: self
- selector: #contentsSymbol:
- argumentList: { aQuint first } ]]]!