DisplaySurface.st
changeset 1177 e89408c15bb5
parent 1134 520b75563476
child 1216 c01819586102
--- a/DisplaySurface.st	Fri Jan 10 19:00:38 1997 +0100
+++ b/DisplaySurface.st	Fri Jan 10 19:04:32 1997 +0100
@@ -132,7 +132,7 @@
          a dithered color or bitmap or pixmap
         "
         bgPixmap isNil ifTrue:[
-            'DSURFACE: background not convertable - ignored' errorPrintNL.
+            'DisplaySurface [warning]: background not convertable - ignored' errorPrintCR.
             ^ self
         ].
 
@@ -183,7 +183,7 @@
         device setWindowBackgroundPixmap:(bgPixmap id) in:drawableId.
     ]
 
-    "Modified: 12.12.1996 / 14:08:33 / cg"
+    "Modified: 10.1.1997 / 17:48:55 / cg"
 !
 
 viewBackground
@@ -285,7 +285,7 @@
                 cursor isNil ifTrue:[ ^ self].
                 id := cursor id.
                 id isNil ifTrue:[
-                    'DSURFACE: nil cursorId ignored; shape=' errorPrint. cursor shape errorPrintNL.
+                    'DisplaySurface [warning]: nil cursorId ignored; shape=' errorPrint. cursor shape errorPrintCR.
                     ^ self
                 ].
                 device setCursor:id in:drawableId.
@@ -313,7 +313,7 @@
     "
 
     "Created: 14.12.1995 / 21:28:00 / cg"
-    "Modified: 12.12.1996 / 14:08:22 / cg"
+    "Modified: 10.1.1997 / 17:48:22 / cg"
 !
 
 withCursor:aCursor do:aBlock
@@ -1700,10 +1700,10 @@
     device setLastCopyBuffer:nil.
     device setCopyBuffer:something.
     (device setSelection:something owner:drawableId) ifFalse:[
-        'DSURFACE: selection failed' errorPrintNL
+        'DisplaySurface [warning]: selection failed' errorPrintCR
     ]
 
-    "Modified: 12.12.1996 / 14:09:17 / cg"
+    "Modified: 10.1.1997 / 17:48:34 / cg"
 !
 
 setTextSelection:something
@@ -1719,10 +1719,10 @@
         s := s asStringWithCRsFrom:1 to:(s size) compressTabs:false withCR:false
     ].
     (device setTextSelection:s owner:drawableId) ifFalse:[
-        'DSURFACE: selection failed' errorPrintNL
+        'DisplaySurface [warning]: selection failed' errorPrintCR
     ]
 
-    "Modified: 12.12.1996 / 14:08:38 / cg"
+    "Modified: 10.1.1997 / 17:48:43 / cg"
 ! !
 
 !DisplaySurface methodsFor:'user notification'!
@@ -1748,5 +1748,5 @@
 !DisplaySurface class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.14 1996-12-12 13:09:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.15 1997-01-10 18:02:17 cg Exp $'
 ! !