Depth24Image.st
changeset 151 8123ec03c52f
parent 134 1a09a1d7d28d
child 194 7ba58753a6b7
--- a/Depth24Image.st	Sun Jun 04 18:38:31 1995 +0200
+++ b/Depth24Image.st	Tue Jun 06 06:09:07 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.13 1995-05-03 00:01:45 claus Exp $
+$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.14 1995-06-06 04:05:15 claus Exp $
 '!
 
 !Depth24Image class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.13 1995-05-03 00:01:45 claus Exp $
+$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.14 1995-06-06 04:05:15 claus Exp $
 "
 !
 
@@ -944,7 +944,7 @@
     ].
     has8BitImage ifFalse:[^ nil].
 
-    'D24IMAGE: dithering ...' errorPrintNL.
+    'D24IMAGE: dithering ...' infoPrintNL.
 
     pseudoBits := ByteArray uninitializedNew:(width * height).
 
@@ -1135,7 +1135,7 @@
     gMask := 2r11111111.
     bMask := 2r11111111.
 
-    'D24IMAGE: allocating colors ...' errorPrintNL.
+    'D24IMAGE: allocating colors ...' infoPrintNL.
 
     [fit] whileFalse:[
 	[fitMap] whileFalse:[
@@ -1192,7 +1192,7 @@
 		    blueArray at:b put:1.
 		    nColors := nColors + 1.
 		    (nColors > nColorCells) ifTrue:[
-			'D24IMAGE: more than ' errorPrint. nColorCells errorPrint. ' colors' errorPrintNL.
+			'D24IMAGE: more than ' infoPrint. nColorCells infoPrint. ' colors' infoPrintNL.
 			srcIndex := dataSize + 1
 		    ]
 		]
@@ -1215,7 +1215,7 @@
 			bMask := (bMask bitShift:1) bitAnd:2r11111111
 		    ]
 		].
-		'D24IMAGE: too many colors; retry with less color resolution' errorPrintNL.
+		'D24IMAGE: too many colors; retry with less color resolution' infoPrintNL.
 "
     'masks:' print. rMask print. ' ' print. gMask print. ' ' print.
     bMask printNewline
@@ -1223,7 +1223,7 @@
 	    ]
 	].
 
-	'D24IMAGE: ' errorPrint. nColors errorPrint. ' colors used' errorPrintNL.
+	'D24IMAGE: ' infoPrint. nColors infoPrint. ' colors used' infoPrintNL.
 
 	colors := Array new:nColors.
 	colorIndex := 1.
@@ -1271,7 +1271,7 @@
 	"again with less color bits if we did not get all colors"
 
 	fit ifFalse:[
-	   'D24IMAGE: could not allocate color(s)' errorPrintNL.
+	    'D24IMAGE: could not allocate color(s)' infoPrintNL.
 
 	    "free the allocated colors"
 	    colors atAllPut:nil.