newStyle info & error messages
authorClaus Gittinger <cg@exept.de>
Fri, 10 Jan 1997 18:59:45 +0100
changeset 358 6b9671f01908
parent 357 4bcb93f5892e
child 359 6fdd7d3119a8
newStyle info & error messages
Icon.st
--- a/Icon.st	Fri Jan 10 18:32:24 1997 +0100
+++ b/Icon.st	Fri Jan 10 18:59:45 1997 +0100
@@ -141,7 +141,7 @@
                 icon := Image fromFile:('bitmaps/' , aName , '.xbm').
             ].
             icon isNil ifTrue:[
-                ('Icon [info]: no icon named ' , aName) infoPrintNL.
+                ('Icon [info]: no icon named ' , aName) infoPrintCR.
                 ^ nil
             ].
             icon := icon on:Screen default.
@@ -158,7 +158,7 @@
      Icon constantNamed:#SBrowser     
     "
 
-    "Modified: 10.1.1997 / 15:45:44 / cg"
+    "Modified: 10.1.1997 / 17:52:06 / cg"
 !
 
 constantNamed:aName put:anImage
@@ -172,6 +172,6 @@
 !Icon class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.13 1997-01-10 15:10:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.14 1997-01-10 17:59:45 cg Exp $'
 ! !
 Icon initialize!