--- a/Icon.st	Mon Sep 18 12:35:20 1995 +0200
+++ b/Icon.st	Sat Sep 23 13:31:09 1995 +0200
@@ -23,7 +23,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/Icon.st,v 1.2 1995-07-03 02:47:44 claus Exp $
+$Header: /cvs/stx/stx/libview2/Icon.st,v 1.3 1995-09-23 11:30:33 claus Exp $
 "
 !
 
@@ -35,6 +35,8 @@
     If you like the original icons, install the xbm files in the bitmap
     directory under a name foo.xbm, where foo corresponds to the icons
     name symbol (i.e. for Icon constantNamed:#foo, a 'foo.xbm' file is required).
+    Caveat:
+	masks are not yet implemented
 "
 !
 
@@ -55,7 +57,7 @@
 !Icon class methodsFor:'initialization'!
 
 replacementNames
-    "return a constant name to ST/X name translation."
+    "return an ST-80 constant name to ST/X file name translation."
 
     ^ #( 
 	#(file             FBrowser)
@@ -93,7 +95,7 @@
 !Icon class methodsFor:'instance creation'!
 
 constantNamed:aName put:anIcon
-    KnownIcons at:aName put:icon
+    KnownIcons at:aName put:anIcon
 !
 
 constantNamed:aName
@@ -111,6 +113,7 @@
 		('ICON: no icon named ' , aName) errorPrintNL.
 		^ nil
 	    ].
+	    icon := icon on:Screen default.
 	].
 	KnownIcons at:aName put:icon.
     ].
@@ -121,6 +124,7 @@
      Icon constantNamed:#debugger     
      Icon constantNamed:#systembrowser     
      Icon constantNamed:#SBrowser     
+     Icon constantNamed:#SBrowser     
     "
 ! !
 

--- a/Make.proto	Mon Sep 18 12:35:20 1995 +0200
+++ b/Make.proto	Sat Sep 23 13:31:09 1995 +0200
@@ -1,4 +1,4 @@
-# $Header: /cvs/stx/stx/libview2/Make.proto,v 1.1 1995-08-29 17:45:43 claus Exp $
+# $Header: /cvs/stx/stx/libview2/Make.proto,v 1.2 1995-09-23 11:31:09 claus Exp $
 #
 # -------------- no need to change anything below ----------
 
@@ -31,6 +31,7 @@
 
 OBJS= \
 	  ClrValue.$(O)                 \
+	  Icon.$(O)                     \
 	  DObject.$(O)                  \
 	  InputView.$(O)          	\
 	  Model.$(O)                          \