[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
|