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

commits at source.squeak.org commits at source.squeak.org
Mon Sep 7 22:23:47 UTC 2009


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 } ]]]!




More information about the Squeak-dev mailing list