[squeak-dev] The Trunk: Monticello-mt.709.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Mar 5 14:18:19 UTC 2020
Marcel Taeumel uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-mt.709.mcz
==================== Summary ====================
Name: Monticello-mt.709
Author: mt
Time: 5 March 2020, 3:18:18.385454 pm
UUID: b673c2ef-3e00-9044-b28c-ddeab13a9e79
Ancestors: Monticello-cmm.708
Complete the "#classHierarchy -> #browseClassHierarchy" rename-method refactoring, which was started in 2018 for the ObjectExplorer.
=============== Diff against Monticello-cmm.708 ===============
Item was added:
+ ----- Method: MCCodeTool>>browseClassHierarchy (in category 'menus') -----
+ browseClassHierarchy
+ "Create and schedule a class list browser on the receiver's hierarchy."
+
+ self systemNavigation
+ spawnHierarchyForClass: self selectedClassOrMetaClass
+ selector: self selectedMessageName "OK if nil"!
Item was removed:
- ----- Method: MCCodeTool>>classHierarchy (in category 'menus') -----
- classHierarchy
- "Create and schedule a class list browser on the receiver's hierarchy."
-
- self systemNavigation spawnHierarchyForClass: self selectedClassOrMetaClass
- selector: self selectedMessageName "OK if nil"!
Item was changed:
----- Method: MCCodeTool>>classListMenu: (in category 'menus') -----
classListMenu: aMenu
aMenu addList: #(
-
('browse full (b)' browseMethodFull)
+ ('browse hierarchy (h)' browseClassHierarchy)
- ('browse hierarchy (h)' classHierarchy)
('browse protocol (p)' browseFullProtocol)
" -
('printOut' printOutClass)
('fileOut' fileOutClass)
" -
('show hierarchy' methodHierarchy)
" ('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...' findMethodInChangeSets)).
^aMenu!
Item was changed:
----- Method: MCCodeTool>>methodListKey:from: (in category 'menus') -----
methodListKey: aKeystroke from: aListMorph
aKeystroke caseOf: {
[$b] -> [self browseMethodFull].
+ [$h] -> [self browseClassHierarchy].
- [$h] -> [self classHierarchy].
[$p] -> [self browseFullProtocol].
[$o] -> [self fileOutMessage].
[$c] -> [self copySelector].
[$C] -> [self copyReference].
[$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:#(
('browse full (b)' browseMethodFull)
('fileOut (o)' fileOutMessage))]]
ifNotNil: [
aMenu addList:#(
('browse full (b)' browseMethodFull)
+ ('browse hierarchy (h)' browseClassHierarchy)
- ('browse hierarchy (h)' classHierarchy)
('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
!
More information about the Squeak-dev
mailing list
|