--- a/Icon.st Fri Jan 10 15:48:27 1997 +0100
+++ b/Icon.st Fri Jan 10 16:10:28 1997 +0100
@@ -141,7 +141,7 @@
icon := Image fromFile:('bitmaps/' , aName , '.xbm').
].
icon isNil ifTrue:[
- ('ICON: no icon named ' , aName) infoPrintNL.
+ ('Icon [info]: no icon named ' , aName) infoPrintNL.
^ nil
].
icon := icon on:Screen default.
@@ -158,7 +158,7 @@
Icon constantNamed:#SBrowser
"
- "Modified: 23.4.1996 / 11:40:24 / cg"
+ "Modified: 10.1.1997 / 15:45:44 / cg"
!
constantNamed:aName put:anImage
@@ -172,6 +172,6 @@
!Icon class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.12 1996-05-20 07:26:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.13 1997-01-10 15:10:28 cg Exp $'
! !
Icon initialize!