Icon.st
changeset 84 31752ae049fa
parent 77 e846c6f3ac50
child 105 2e1c39cafe2e
--- a/Icon.st	Sun Jul 02 18:18:00 1995 +0200
+++ b/Icon.st	Mon Jul 03 04:47:44 1995 +0200
@@ -23,7 +23,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/Icon.st,v 1.1 1995-05-19 16:40:37 claus Exp $
+$Header: /cvs/stx/stx/libview2/Icon.st,v 1.2 1995-07-03 02:47:44 claus Exp $
 "
 !
 
@@ -106,7 +106,7 @@
 	    icon := Image fromFile:('bitmaps/' , nm , '.xbm').
 	].
 	icon isNil ifTrue:[
-	    icon := Image fromFile:('bitmaps/' , name , '.xbm').
+	    icon := Image fromFile:('bitmaps/' , aName , '.xbm').
 	    icon isNil ifTrue:[
 		('ICON: no icon named ' , aName) errorPrintNL.
 		^ nil
@@ -120,6 +120,7 @@
      Icon constantNamed:#file     
      Icon constantNamed:#debugger     
      Icon constantNamed:#systembrowser     
+     Icon constantNamed:#SBrowser     
     "
 ! !