--- a/Icon.st	Sun May 12 22:35:18 1996 +0200
+++ b/Icon.st	Mon May 13 10:30:42 1996 +0200
@@ -38,10 +38,11 @@
     The Icon class keeps track of already loaded Images and caches
     them for later reuse.
     Icons are accessed by a symbolic name, so there is no need to
-    remember their names (they must have been remembered under that name
+    remember their names (they must have been registered under that name
     before - of course).
 
     Icon was mostly added for ST-80 Compatibility:
+
     Images are returned via the #constantNamed: message which is used by 
     some ST-80 PD classes and returns corresponding ST/X icons.
     Notice, that ST/X does not provide Icon instances - Icon only consists
@@ -54,7 +55,7 @@
 
     You can grab those icons from manchester or from the PrimeTime Freeware 
     (PTF) CD. A copy of those bitmaps (from the PTF-CD) is found in 
-    goodies/bitmaps/st80bitmaps.
+    'goodies/bitmaps/st80bitmaps'.
 
     CAVEAT:
         masks are not yet implemented
@@ -89,22 +90,31 @@
 !
 
 replacementNames
-    "return an ST-80 constant name to ST/X file name translation."
+    "return an ST-80 constant name to ST/X file name translation.
+     This was added for ST-80 compatibility, to support code which uses
+     things like 'Icon constantNamed:#categoryBrowser'."
 
     ^ #( 
-	#(file             FBrowser)
-	#(debugger         Debugger)
-	#(systembrowser    SBrowser)
-	#(classbrowser     SBrowser)
-	#(categoryBrowser  SBrowser)
-	#(hierarchyBrowser SBrowser)
-	#(methodBrowser    SBrowser)
-	#(launcher         SmalltalkX)
-	#(workspace        SmalltalkX)
-	#(transcript       SmalltalkX)
-	#(inspector        Inspector)
-	#(default          SmalltalkX)
+        #(file             FBrowser)
+        #(debugger         Debugger)
+        #(systembrowser    SBrowser)
+        #(classbrowser     SBrowser)
+        #(categoryBrowser  SBrowser)
+        #(hierarchyBrowser SBrowser)
+        #(methodBrowser    SBrowser)
+        #(launcher         SmalltalkX)
+        #(workspace        SmalltalkX)
+        #(transcript       SmalltalkX)
+        #(inspector        Inspector)
+        #(default          SmalltalkX)
        )
+
+    "
+     Icon constantNamed:#categoryBrowser
+     Icon constantNamed:#default
+    "
+
+    "Modified: 13.5.1996 / 10:29:43 / cg"
 ! !
 
 !Icon class methodsFor:'accessing'!
@@ -160,6 +170,6 @@
 !Icon class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.10 1996-04-25 16:21:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.11 1996-05-13 08:30:42 cg Exp $'
 ! !
 Icon initialize!