--- 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
"
! !