--- 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 $'
! !