--- a/Tools__MethodCategoryList.st Wed Apr 11 17:14:22 2012 +0100
+++ b/Tools__MethodCategoryList.st Fri Apr 13 14:15:47 2012 +0100
@@ -13,7 +13,7 @@
"{ NameSpace: Tools }"
-BrowserList subclass:#MethodCategoryList
+Tools::BrowserList subclass:#MethodCategoryList
instanceVariableNames:'variableFilter filterClassVars lastSelectedProtocols classes
leafClasses protocolList rawProtocolList selectedProtocolIndices
lastGeneratedProtocols packageFilterOnInput
@@ -35,7 +35,7 @@
privateIn:MethodCategoryList
!
-Method variableSubclass:#MissingMethod
+Method subclass:#MissingMethod
instanceVariableNames:'selector'
classVariableNames:''
poolDictionaries:''
@@ -1578,7 +1578,9 @@
"/ selectedProtocolsHolder value:nil.
"/ selectedProtocolsHolder value:newSelection.
selectedProtocolsHolder setValue:newSelection.
+ selectedProtocolsHolder removeDependent:self.
selectedProtocolsHolder changed:#value.
+ selectedProtocolsHolder addDependent:self.
] ifFalse:[
prevSelection := selectedProtocolsHolder value.
selectedProtocolsHolder value:nil.
@@ -1607,7 +1609,7 @@
listValid := true.
"Created: / 05-02-2000 / 13:42:11 / cg"
- "Modified: / 08-08-2011 / 18:49:31 / cg"
+ "Modified: / 23-03-2012 / 15:53:41 / cg"
! !
!MethodCategoryList methodsFor:'private-info'!
@@ -1990,17 +1992,16 @@
!MethodCategoryList class methodsFor:'documentation'!
version
- ^ '$Id: Tools__MethodCategoryList.st 7952 2012-03-21 17:50:14Z vranyj1 $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.78 2012/03/23 14:57:29 cg Exp $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.77 2011/09/23 18:56:37 cg Exp §'
+ ^ '§Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.78 2012/03/23 14:57:29 cg Exp §'
!
version_SVN
- ^ '$Id: Tools__MethodCategoryList.st 7952 2012-03-21 17:50:14Z vranyj1 $'
+ ^ '$Id: Tools__MethodCategoryList.st 7978 2012-04-13 13:15:47Z vranyj1 $'
! !
+MethodCategoryList::CachedMethodInfo initialize!
MethodCategoryList initialize!
-MethodCategoryList::CachedMethodInfo initialize!
-