--- a/Tools_MethodCategoryList.st	Sun Jul 29 13:20:13 2012 +0200
+++ b/Tools_MethodCategoryList.st	Wed Aug 01 17:31:47 2012 +0200
@@ -1708,10 +1708,13 @@
 !MethodCategoryList methodsFor:'special'!
 
 addAdditionalProtocol:aProtocol forClass:aClass
+    "those are simulated - in ST/X, empty categories do not really exist; 
+     (because the category is an attribute of the method)
+     However, during browsing, it makes sense. Therefore, empty categories are
+     remembered here"
+
     |categories|
 
-    "/ those are simulated - in ST/X, empty categories do not
-    "/ really exist; however, during browsing, it makes sense.
     AdditionalEmptyCategoriesPerClassName isNil ifTrue:[
         AdditionalEmptyCategoriesPerClassName := Dictionary new.
     ].
@@ -1723,13 +1726,20 @@
     categories add:aProtocol.
     aClass changed:#organization.                                                       "/ not really ... to force update
     Smalltalk changed:#methodCategoryAdded with:(Array with:aClass with:aProtocol).     "/ not really ... to force update
+
+    "Modified (comment): / 01-08-2012 / 17:30:36 / cg"
 !
 
 additionalProtocolForClass:aClass
-    "/ those are simulated - in ST/X, empty categories do not
-    "/ really exist; however, during browsing, it makes sense.
+    "those are simulated - in ST/X, empty categories do not really exist; 
+     (because the category is an attribute of the method)
+     However, during browsing, it makes sense. Therefore, empty categories are
+     remembered here"
+
     AdditionalEmptyCategoriesPerClassName isNil ifTrue:[ ^ #() ].
     ^ AdditionalEmptyCategoriesPerClassName at:aClass name ifAbsent:[ #() ].
+
+    "Modified (comment): / 01-08-2012 / 17:29:16 / cg"
 !
 
 clearLastSelectedProtocol
@@ -1741,10 +1751,12 @@
 !
 
 removeAdditionalProtocol:aListOfProtocols forClass:aClass
-    |categories|
+    "those are simulated - in ST/X, empty categories do not really exist; 
+     (because the category is an attribute of the method)
+     However, during browsing, it makes sense. Therefore, empty categories are
+     remembered here"
 
-    "/ those are simulated - in ST/X, empty categories do not
-    "/ really exist; however, during browsing, it makes sense.
+    |categories|
 
     AdditionalEmptyCategoriesPerClassName isNil ifTrue:[^ self].
 
@@ -1757,31 +1769,41 @@
 
     aClass changed:#organization.                      "/ not really ... to force update
     Smalltalk changed:#methodCategoriesRemoved with:(Array with:aClass with:aListOfProtocols).     "/ not really ... to force update
+
+    "Modified (comment): / 01-08-2012 / 17:29:59 / cg"
 !
 
 removeAllAdditionalProtocol
-    "/ those are simulated - in ST/X, empty categories do not
-    "/ really exist; however, during browsing, it makes sense.
+    "those are simulated - in ST/X, empty categories do not really exist; 
+     (because the category is an attribute of the method)
+     However, during browsing, it makes sense. Therefore, empty categories are
+     remembered here"
+
     AdditionalEmptyCategoriesPerClassName := nil
 
-
+    "Modified (comment): / 01-08-2012 / 17:30:05 / cg"
 !
 
 removeAllAdditionalProtocolForClass:aClass
-    "/ those are simulated - in ST/X, empty categories do not
-    "/ really exist; however, during browsing, it makes sense.
+    "those are simulated - in ST/X, empty categories do not really exist; 
+     (because the category is an attribute of the method)
+     However, during browsing, it makes sense. Therefore, empty categories are
+     remembered here"
+
     AdditionalEmptyCategoriesPerClassName notNil ifTrue:[
         AdditionalEmptyCategoriesPerClassName removeKey:aClass name ifAbsent:nil
     ].
 
-
+    "Modified (comment): / 01-08-2012 / 17:30:10 / cg"
 !
 
 renameAdditionalProtocol:oldName to:newName forClass:aClass
-    |categories|
+    "those are simulated - in ST/X, empty categories do not really exist; 
+     (because the category is an attribute of the method)
+     However, during browsing, it makes sense. Therefore, empty categories are
+     remembered here"
 
-    "/ those are simulated - in ST/X, empty categories do not
-    "/ really exist; however, during browsing, it makes sense.
+    |categories|
 
     AdditionalEmptyCategoriesPerClassName isNil ifTrue:[^ self].
     categories := AdditionalEmptyCategoriesPerClassName at:aClass name ifAbsent:nil.
@@ -1791,6 +1813,8 @@
 
     aClass changed:#organization.                      "/ not really ... to force update
     Smalltalk changed:#methodCategoryRenamed with:(Array with:aClass with:oldName with:newName).     "/ not really ... to force update
+
+    "Modified (comment): / 01-08-2012 / 17:30:16 / cg"
 ! !
 
 !MethodCategoryList::CachedMethodInfo class methodsFor:'initialization'!
@@ -1980,11 +2004,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.79 2012-06-05 22:02:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.80 2012-08-01 15:31:47 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.79 2012-06-05 22:02:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.80 2012-08-01 15:31:47 cg Exp $'
 ! !
 
 MethodCategoryList initialize!