Chris Muller uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-cmm.618.mcz==================== Summary ====================
Name: Monticello-cmm.618
Author: cmm
Time: 16 October 2015, 2:39:05.3 pm
UUID: d1d36117-e8d3-4403-a16d-db1e9167a713
Ancestors: Monticello-eem.617
Recover hot-key $O from MCCodeTool because it is now redundant with $i. $O is a global key for accessing a Monticello browser.
=============== Diff against Monticello-eem.617 ===============
Item was changed:
----- Method: MCCodeTool>>methodListKey:from: (in category 'menus') -----
methodListKey: aKeystroke from: aListMorph
aKeystroke caseOf: {
[$b] -> [self browseMethodFull].
[$h] -> [self classHierarchy].
- [$O] -> [self openSingleMessageBrowser].
[$p] -> [self browseFullProtocol].
[$o] -> [self fileOutMessage].
[$c] -> [self copySelector].
[$n] -> [self browseSendersOfMessages].
[$m] -> [self browseMessages].
[$i] -> [self methodHierarchy].
[$v] -> [self browseVersions]}
otherwise: []!
Item was changed:
----- Method: MCCodeTool>>methodListMenu: (in category 'menus') -----
methodListMenu: aMenu
"Build the menu for the selected method, if any."
self selectedMessageName
ifNil: [items notEmpty ifTrue:
[aMenu addList:#(('fileOut (o)' fileOutMessage))]]
ifNotNil: [
aMenu addList:#(
('browse full (b)' browseMethodFull)
('browse hierarchy (h)' classHierarchy)
- ('browse method (O)' openSingleMessageBrowser)
('browse protocol (p)' browseFullProtocol)
-
('fileOut (o)' fileOutMessage)
('printOut' printOutMessage)
('copy selector (c)' copySelector)
('copy reference (C)' copyReference)).
aMenu addList: #(
-
('browse senders (n)' browseSendersOfMessages)
('browse implementors (m)' browseMessages)
('inheritance (i)' methodHierarchy)
('versions (v)' browseVersions)
('change sets with this method' findMethodInChangeSets)
" ('x revert to previous version' revertToPreviousVersion)"
('remove from current change set' removeFromCurrentChanges)
" ('x revert & remove from changes' revertAndForget)"
('add to current change set' adoptMessageInCurrentChangeset)
" ('x copy up or copy down...' copyUpOrCopyDown)"
" ('x remove method (x)' removeMessage)"
"-"
).
].
" aMenu addList: #(
('x inst var refs...' browseInstVarRefs)
('x inst var defs...' browseInstVarDefs)
('x class var refs...' browseClassVarRefs)
('x class variables' browseClassVariables)
('x class refs (N)' browseClassRefs)
).
"
^ aMenu
!
Item was removed:
- ----- Method: MCCodeTool>>openSingleMessageBrowser (in category 'menus') -----
- openSingleMessageBrowser
- | msgName mr |
- "Create and schedule a message list browser populated only by the currently selected message"
-
- (msgName := self selectedMessageName) ifNil: [^ self].
-
- mr := MethodReference
- class: self selectedClassOrMetaClass
- selector: msgName.
-
- self systemNavigation
- browseMessageList: (Array with: mr)
- name: mr asStringOrText
- autoSelect: nil!
Locked
