[squeak-dev] The Trunk: Tools-cmm.300.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Mar 15 22:19:09 UTC 2011


Chris Muller uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-cmm.300.mcz

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

Name: Tools-cmm.300
Author: cmm
Time: 15 March 2011, 5:18:48.154 pm
UUID: 631d2af2-75e3-44ef-991a-349ce9fdab0e
Ancestors: Tools-dtl.299

- Fix to allow Services to hook into the IDE menus.

=============== Diff against Tools-dtl.299 ===============

Item was changed:
  ----- Method: Browser>>classListMenu:shifted: (in category 'class functions') -----
  classListMenu: aMenu shifted: shifted
  	"Set up the menu to apply to the receiver's class list, honoring the #shifted boolean"
+ 	self 
+ 		menuHook: aMenu 
+ 		named: #classListMenu 
+ 		shifted: shifted.
+ 	Preferences useOnlyServicesInMenu ifTrue:[^aMenu].
- 	(self menuHook: aMenu named: #classListMenu shifted: shifted) ifTrue:[^aMenu].
  	shifted ifTrue:[^ self shiftedClassListMenu: aMenu].
  	aMenu addList: #(
  		-
  		('browse full (b)'			browseMethodFull)
  		('browse hierarchy (h)'		spawnHierarchy)
  		('browse protocol (p)'		browseFullProtocol)
  		-
  		('printOut'					printOutClass)
  		('fileOut'					fileOutClass)
  		-
  		('show hierarchy'			hierarchy)
  		('show definition'			editClass)
  		('show comment'			editComment)
  		-
  		('inst var refs...'			browseInstVarRefs)
  		('inst var defs...'			browseInstVarDefs)
  		-
  		('class var refs...'			browseClassVarRefs)
  		('class vars'					browseClassVariables)
  		('class refs (N)'				browseClassRefs)
  		-
  		('rename class ...'			renameClass)
  		('copy class'				copyClass)
  		('remove class (x)'			removeClass)
  		-
  		('find method...'				findMethod)
  		-
  		('more...'					offerShiftedClassListMenu)).
  	^ aMenu
  !

Item was changed:
  ----- Method: Browser>>codePaneMenu:shifted: (in category 'code pane') -----
  codePaneMenu: aMenu shifted: shifted 
+ 	self 
+ 		menuHook: aMenu 
+ 		named: #codePaneMenu 
+ 		shifted: shifted.
+ 	Preferences useOnlyServicesInMenu ifTrue:[^aMenu].
- 	(self menuHook: aMenu named: #codePaneMenu shifted: shifted) ifTrue:[^aMenu].
  	^super codePaneMenu: aMenu shifted: shifted.!

Item was changed:
  ----- Method: Browser>>messageCategoryMenu: (in category 'message category functions') -----
  messageCategoryMenu: aMenu
+ 	self 
+ 		menuHook: aMenu 
+ 		named: #messageCategoryMenu 
+ 		shifted: false.
+ 	Preferences useOnlyServicesInMenu ifTrue:[^aMenu].
- 	(self menuHook: aMenu named: #messageCategoryMenu shifted: false) ifTrue:[^aMenu].
  	^ aMenu labels:
  'browse
  printOut
  fileOut
  reorganize
  alphabetize
  remove empty categories
  categorize all uncategorized
  new category...
  rename...
  remove'
  		lines: #(3 8)
  		selections:
  		#(buildMessageCategoryBrowser printOutMessageCategories fileOutMessageCategories
  		editMessageCategories alphabetizeMessageCategories removeEmptyCategories
  		categorizeAllUncategorizedMethods addCategory renameCategory removeMessageCategory)
  !

Item was changed:
  ----- Method: Browser>>messageListMenu:shifted: (in category 'message functions') -----
  messageListMenu: aMenu shifted: shifted 
  	"Answer the message-list menu"
+ 	self 
+ 		menuHook: aMenu 
+ 		named: #messageListMenu 
+ 		shifted: shifted.
+ 	Preferences useOnlyServicesInMenu ifTrue:[^aMenu].
- 	(self menuHook: aMenu named: #messageListMenu shifted: shifted) ifTrue:[^aMenu].
  	shifted ifTrue: [^ self shiftedMessageListMenu: aMenu].
  	aMenu addList: #(
  			('what to show...'			offerWhatToShowMenu)
  			('toggle break on entry'		toggleBreakOnEntry)
  			-
  			('browse full (b)' 			browseMethodFull)
  			('browse hierarchy (h)'			classHierarchy)
  			('browse method (O)'			openSingleMessageBrowser)
  			('browse protocol (p)'			browseFullProtocol)
  			-
  			('fileOut'				fileOutMessage)
  			('printOut'				printOutMessage)
  			('copy selector (c)'						copySelector)
  			('copy reference'						copyReference)
  			-
  			('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)
  			-
  			('remove method (x)'			removeMessage)
  			('explore method'			exploreMethod)
  			('inspect method'			inspectMethod)
  			-
  			('more...'				shiftedYellowButtonActivity)).
  	^ aMenu!

Item was changed:
  ----- Method: Browser>>systemCategoryMenu: (in category 'system category functions') -----
  systemCategoryMenu: aMenu
+ 	self 
+ 		menuHook: aMenu 
+ 		named: #systemCategoryMenu 
+ 		shifted: false.
+ 	Preferences useOnlyServicesInMenu ifTrue:[^aMenu].
  
- 	(self menuHook: aMenu named: #systemCategoryMenu shifted: false) ifTrue:[^aMenu].
- 
  	^ aMenu labels:
  'find class... (f)
  recent classes... (r)
  browse all
  browse
  printOut
  fileOut
  reorganize
  alphabetize
  update
  add item...
  rename...
  remove' 
  	lines: #(2 4 6 8)
  	selections:
  		#(findClass recent browseAllClasses buildSystemCategoryBrowser
  		printOutSystemCategory fileOutSystemCategory
  		editSystemCategories alphabetizeSystemCategories updateSystemCategories
  		addSystemCategory renameSystemCategory removeSystemCategory )!

Item was changed:
  ----- Method: CodeHolder>>menuHook:named:shifted: (in category 'misc') -----
  menuHook: aMenu named: aSymbol shifted: aBool
+ 	"Provide a hook for supplemental menu items.  Answer the appropriately-enhanced menu."
+ 	^ aMenu!
- 	"Provide a hook for supplemental menu items. The return value indicates
- 	whether to only use the supplemental menu or wether to add the regular
- 	menu items to the menu. The only known user is ServiceGUI."
- 	^false!




More information about the Squeak-dev mailing list