Tools__MethodList.st
branchjv
changeset 12205 f210b6224ef0
parent 12170 6c9c4b7981ee
child 12229 5c129972b1fd
--- a/Tools__MethodList.st	Wed Mar 21 14:05:42 2012 +0000
+++ b/Tools__MethodList.st	Wed Mar 21 17:50:14 2012 +0000
@@ -13,7 +13,7 @@
 
 "{ NameSpace: Tools }"
 
-BrowserList subclass:#MethodList
+Tools::BrowserList subclass:#MethodList
 	instanceVariableNames:'classes selectedMethodNameIndices methodList lastSelectedMethods
 		browserNameList variableFilter filterClassVars updateProcess
 		lastShowClass lastShowCategory lastShowClassFirst
@@ -1696,16 +1696,16 @@
         "/JV:
         l := LabelAndIcon icon:icn string:s.
         l image:redefIcon.
-        icn ifNil:[l offset: 13].
+        icn isNil ifTrue:[l offset: 13].
         l gap:1.
         ^ l
     ].
     ^ s
 
     "Created: / 22-10-1996 / 19:51:00 / cg"
-    "Modified: / 30-04-2010 / 11:54:32 / cg"
     "Modified: / 15-08-2009 / 13:13:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 17-11-2011 / 20:51:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-03-2012 / 19:06:09 / cg"
 ! !
 
 !MethodList methodsFor:'private-watching'!
@@ -1755,14 +1755,13 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Tools__MethodList.st 7911 2012-02-22 09:55:48Z vranyj1 $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.62 2012/03/07 18:06:39 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.61 2011/11/17 20:06:05 vrany Exp §'
+    ^ '§Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.62 2012/03/07 18:06:39 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: Tools__MethodList.st 7911 2012-02-22 09:55:48Z vranyj1 $'
+    ^ '$Id: Tools__MethodList.st 7952 2012-03-21 17:50:14Z vranyj1 $'
 ! !
-