[Pkg] The Trunk: System-cmm.770.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Oct 16 19:37:32 UTC 2015
Chris Muller uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cmm.770.mcz
==================== Summary ====================
Name: System-cmm.770
Author: cmm
Time: 16 October 2015, 2:36:57.194 pm
UUID: 207f82b0-5028-4424-9dbe-0b25a9b2e841
Ancestors: System-topa.769
- When using the inheritance (i) command, make sure the initial selection within the opened MessageSet is the method on which it was invoked.
=============== Diff against System-topa.769 ===============
Item was changed:
----- Method: SystemNavigation>>browseMessageList:name:autoSelect: (in category 'browse') -----
browseMessageList: messageListOrBlock name: labelString autoSelect: autoSelectString
"Create and schedule a MessageSet browser on the message list. If messageListOrBlock is a block, then evaluate it to get the message list."
| messageList title |
messageList := messageListOrBlock isBlock
ifTrue: [ Cursor wait showWhile: messageListOrBlock ]
ifFalse: [ messageListOrBlock ].
messageList size = 0 ifTrue: [
^self inform: 'There are no', String cr, labelString ].
title := messageList size > 1
ifFalse: [ labelString ]
ifTrue: [ labelString, ' [', messageList size printString, ']' ].
+ ^ ToolSet
- ToolSet
browseMessageSet: messageList
name: title
autoSelect: autoSelectString!
Item was changed:
----- Method: SystemNavigation>>methodHierarchyBrowserForClass:selector: (in category 'browse') -----
+ methodHierarchyBrowserForClass: aClass selector: selectorSymbol
- methodHierarchyBrowserForClass: aClass selector: sel
"Create and schedule a message set browser on all implementors of the
currently selected message selector. Do nothing if no message is selected."
"SystemNavigation default
methodHierarchyBrowserForClass: ParagraphEditor
selector: #isControlActive"
-
| list aClassNonMeta isMeta tab |
aClass ifNil: [^ self].
aClass isTrait ifTrue: [^ self].
+ selectorSymbol ifNil: [^ self].
- sel ifNil: [^ self].
aClassNonMeta := aClass theNonMetaClass.
isMeta := aClassNonMeta ~~ aClass.
list := OrderedCollection new.
tab := ''.
aClass allSuperclasses reverseDo:
[:cl |
+ (cl includesSelector: selectorSymbol) ifTrue:
+ [list addLast: tab , cl name, ' ', selectorSymbol].
- (cl includesSelector: sel) ifTrue:
- [list addLast: tab , cl name, ' ', sel].
tab := tab , ' '].
aClassNonMeta allSubclassesWithLevelDo:
[:cl :level | | theClassOrMeta stab |
theClassOrMeta := isMeta ifTrue: [cl class] ifFalse: [cl].
+ (theClassOrMeta includesSelector: selectorSymbol) ifTrue:
- (theClassOrMeta includesSelector: sel) ifTrue:
[stab := ''. 1 to: level do: [:i | stab := stab , ' '].
+ list addLast: tab , stab , theClassOrMeta name, ' ', selectorSymbol]]
- list addLast: tab , stab , theClassOrMeta name, ' ', sel]]
startingLevel: 0.
+ (self browseMessageList: list name: 'Inheritance of ' , selectorSymbol
+ ) model
+ deselectAll ;
+ selectReference: (aClass>>selectorSymbol) methodReference!
- self browseMessageList: list name: 'Inheritance of ' , sel
-
- !
More information about the Packages
mailing list