--- a/Icon.st Tue Jan 27 17:59:25 1998 +0100
+++ b/Icon.st Tue Jan 27 18:04:27 1998 +0100
@@ -141,7 +141,6 @@
icon := Image fromFile:('bitmaps/' , aName , '.xbm').
].
icon isNil ifTrue:[
- ('Icon [info]: no icon named ' , aName) infoPrintCR.
^ nil
].
icon := icon on:Screen default.
@@ -195,6 +194,6 @@
!Icon class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.16 1998-01-27 16:59:25 tz Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.17 1998-01-27 17:04:27 tz Exp $'
! !
Icon initialize!