Tools__MethodCategoryList.st
branchjv
changeset 12229 5c129972b1fd
parent 12205 f210b6224ef0
child 12254 b1237f76f501
--- 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!
-