--- a/SunRasterReader.st Tue Jan 28 01:48:47 1997 +0100
+++ b/SunRasterReader.st Tue Jan 28 12:03:30 1997 +0100
@@ -162,7 +162,7 @@
^ self
].
depth ~~ 1 ifTrue: [
- 'SUNReader: only depth 1 and 8 supported' errorPrintNL.
+ 'SUNReader [warning]: only depth 1 and 8 supported' errorPrintNL.
^ nil
].
@@ -173,7 +173,7 @@
data := ByteArray uninitializedNew:(imageWords * 2).
(rasterType between: 0 and: 2) ifFalse: [
- 'SUNReader: Unknown raster file rasterType' errorPrintNL.
+ 'SUNReader [warning]: Unknown raster file rasterType' errorPrintNL.
^ nil
].
@@ -216,7 +216,7 @@
SunRasterReader fromStream:'bitmaps/bf.im8' asFilename readStream
"
- "Modified: 23.4.1996 / 12:59:31 / cg"
+ "Modified: 28.1.1997 / 12:02:49 / cg"
!
fromSunIconStream:aStream
@@ -230,25 +230,25 @@
aStream text.
(aStream skipThroughAll:'idth') isNil ifTrue: [
- 'SUNReader: Not a Sun Raster/Icon File' errorPrintNL.
+ 'SUNReader [warning]: Not a Sun Raster/Icon File' errorPrintNL.
^nil
].
aStream next; skipSeparators. "skip $="
width := Integer readFrom: aStream.
(width isNil or:[width <= 0]) ifTrue: [
- 'SUNReader: format error (expected number)' errorPrintNL.
+ 'SUNReader [warning]: format error (expected number)' errorPrintNL.
^ nil
].
w := width.
(aStream skipThroughAll:'eight') isNil ifTrue: [
- 'SUNReader: format error (expected height)' errorPrintNL.
+ 'SUNReader [warning]: format error (expected height)' errorPrintNL.
^ nil
].
aStream next; skipSeparators. "skip $="
height := Integer readFrom: aStream.
(height isNil or:[height <= 0]) ifTrue: [
- 'SUNReader: format error (expected number)' errorPrintNL.
+ 'SUNReader [warning]: format error (expected number)' errorPrintNL.
^nil
].
h := height.
@@ -265,7 +265,7 @@
(aStream skipThroughAll:'0x') isNil ifTrue: [^ nil].
word := Integer readFrom:aStream radix:16.
word isNil ifTrue:[
- 'SUNReader: format error' errorPrintNL.
+ 'SUNReader [warning]: format error' errorPrintNL.
^ nil
].
data at: (index := index + 1) put: (word bitShift:-8).
@@ -273,12 +273,12 @@
]
].
- "Modified: 23.4.1996 / 12:59:07 / cg"
+ "Modified: 28.1.1997 / 12:03:09 / cg"
! !
!SunRasterReader class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/SunRasterReader.st,v 1.21 1996-05-10 16:44:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/SunRasterReader.st,v 1.22 1997-01-28 11:03:30 cg Exp $'
! !
SunRasterReader initialize!
--- a/SunReader.st Tue Jan 28 01:48:47 1997 +0100
+++ b/SunReader.st Tue Jan 28 12:03:30 1997 +0100
@@ -162,7 +162,7 @@
^ self
].
depth ~~ 1 ifTrue: [
- 'SUNReader: only depth 1 and 8 supported' errorPrintNL.
+ 'SUNReader [warning]: only depth 1 and 8 supported' errorPrintNL.
^ nil
].
@@ -173,7 +173,7 @@
data := ByteArray uninitializedNew:(imageWords * 2).
(rasterType between: 0 and: 2) ifFalse: [
- 'SUNReader: Unknown raster file rasterType' errorPrintNL.
+ 'SUNReader [warning]: Unknown raster file rasterType' errorPrintNL.
^ nil
].
@@ -216,7 +216,7 @@
SunRasterReader fromStream:'bitmaps/bf.im8' asFilename readStream
"
- "Modified: 23.4.1996 / 12:59:31 / cg"
+ "Modified: 28.1.1997 / 12:02:49 / cg"
!
fromSunIconStream:aStream
@@ -230,25 +230,25 @@
aStream text.
(aStream skipThroughAll:'idth') isNil ifTrue: [
- 'SUNReader: Not a Sun Raster/Icon File' errorPrintNL.
+ 'SUNReader [warning]: Not a Sun Raster/Icon File' errorPrintNL.
^nil
].
aStream next; skipSeparators. "skip $="
width := Integer readFrom: aStream.
(width isNil or:[width <= 0]) ifTrue: [
- 'SUNReader: format error (expected number)' errorPrintNL.
+ 'SUNReader [warning]: format error (expected number)' errorPrintNL.
^ nil
].
w := width.
(aStream skipThroughAll:'eight') isNil ifTrue: [
- 'SUNReader: format error (expected height)' errorPrintNL.
+ 'SUNReader [warning]: format error (expected height)' errorPrintNL.
^ nil
].
aStream next; skipSeparators. "skip $="
height := Integer readFrom: aStream.
(height isNil or:[height <= 0]) ifTrue: [
- 'SUNReader: format error (expected number)' errorPrintNL.
+ 'SUNReader [warning]: format error (expected number)' errorPrintNL.
^nil
].
h := height.
@@ -265,7 +265,7 @@
(aStream skipThroughAll:'0x') isNil ifTrue: [^ nil].
word := Integer readFrom:aStream radix:16.
word isNil ifTrue:[
- 'SUNReader: format error' errorPrintNL.
+ 'SUNReader [warning]: format error' errorPrintNL.
^ nil
].
data at: (index := index + 1) put: (word bitShift:-8).
@@ -273,12 +273,12 @@
]
].
- "Modified: 23.4.1996 / 12:59:07 / cg"
+ "Modified: 28.1.1997 / 12:03:09 / cg"
! !
!SunRasterReader class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/Attic/SunReader.st,v 1.21 1996-05-10 16:44:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/Attic/SunReader.st,v 1.22 1997-01-28 11:03:30 cg Exp $'
! !
SunRasterReader initialize!