--- a/Tools__MethodList.st Wed Dec 24 14:43:19 2014 +0100
+++ b/Tools__MethodList.st Mon Dec 29 12:16:33 2014 +0100
@@ -1573,31 +1573,31 @@
|s idx|
s := self
- listEntryForMethod:aMethod
- selector:aMethod selector
- class:aMethod mclass
- showClass:lastShowClass
- showCategory:lastShowCategory
- classFirst:lastShowClassFirst
- suppressInheritanceInfo:false.
+ listEntryForMethod:aMethod
+ selector:aMethod selector ? '*unbound*'
+ class:aMethod mclass
+ showClass:lastShowClass
+ showCategory:lastShowCategory
+ classFirst:lastShowClassFirst
+ suppressInheritanceInfo:false.
idx := methodList identityIndexOf:aMethod.
idx == 0 ifTrue:[
- aMethod isWrapped ifTrue:[
- idx := methodList identityIndexOf:aMethod originalMethod.
- idx == 0 ifTrue:[
- "/ aMethod (wrapped) has changed its status, but is not in the list.
- ^ self.
- ].
- ]
+ aMethod isWrapped ifTrue:[
+ idx := methodList identityIndexOf:aMethod originalMethod.
+ idx == 0 ifTrue:[
+ "/ aMethod (wrapped) has changed its status, but is not in the list.
+ ^ self.
+ ].
+ ]
].
idx == 0 ifTrue:[
- "/ method was not previously shown; try to avoid a full update
- (self isMethodToBeShown:aMethod) ifTrue:[
- self invalidateList
- ].
+ "/ method was not previously shown; try to avoid a full update
+ (self isMethodToBeShown:aMethod) ifTrue:[
+ self invalidateList
+ ].
] ifFalse:[
- self browserNameList at:idx put:s.
+ self browserNameList at:idx put:s.
]
"Modified: / 17-08-2011 / 15:05:02 / cg"
@@ -1901,10 +1901,10 @@
!MethodList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.109 2014-11-29 18:12:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.110 2014-12-29 11:16:33 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.109 2014-11-29 18:12:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.110 2014-12-29 11:16:33 cg Exp $'
! !