--- a/Depth24Image.st Mon Aug 22 15:15:31 1994 +0200
+++ b/Depth24Image.st Mon Aug 22 15:17:30 1994 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.6 1994-08-05 01:13:53 claus Exp $
+$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.7 1994-08-22 13:15:56 claus Exp $
'!
!Depth24Image class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.6 1994-08-05 01:13:53 claus Exp $
+$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.7 1994-08-22 13:15:56 claus Exp $
"
!
@@ -847,6 +847,8 @@
gMask := 2r11111111.
bMask := 2r11111111.
+ 'D24Image: allocating colors ...' errorPrintNL.
+
[fit] whileFalse:[
[fitMap] whileFalse:[
srcIndex := 1.
@@ -899,7 +901,7 @@
blueArray at:b put:true.
nColors := nColors + 1.
(nColors > nColorCells) ifTrue:[
- 'D24IMAGE: more than ' errorPrint. nColorCells errorPrint. ' colors' errorPrintNL.
+ 'D24Image: more than ' errorPrint. nColorCells errorPrint. ' colors' errorPrintNL.
srcIndex := dataSize + 1
]
]
@@ -918,7 +920,7 @@
gMask := (gMask bitShift:1) bitAnd:2r11111111.
bMask := (bMask bitShift:1) bitAnd:2r11111111
].
- 'D24IMAGE: retry with less color resolution' errorPrintNL.
+ 'D24Image: retry with less color resolution' errorPrintNL.
"
'masks:' print. rMask print. ' ' print. gMask print. ' ' print.
bMask printNewline
@@ -926,7 +928,7 @@
]
].
- 'D24IMAGE: ' errorPrint. nColors errorPrint. ' colors used' errorPrintNL.
+ 'D24Image: ' errorPrint. nColors errorPrint. ' colors used' errorPrintNL.
colors := Array new:nColors.
colorIndex := 1.
@@ -968,7 +970,7 @@
"again with less color bits if we did not get all colors"
fit ifFalse:[
- 'D24IMAGE: still no fit' errorPrintNL.
+ 'D24Image: still no fit' errorPrintNL.
"free the allocated colors"
colors atAllPut:nil.