--- a/WinIconRdr.st Fri Aug 05 03:15:13 1994 +0200
+++ b/WinIconRdr.st Fri Aug 05 03:16:30 1994 +0200
@@ -20,6 +20,8 @@
WindowsIconReader comment:'
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
+
+$Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.st,v 1.7 1994-08-05 01:16:24 claus Exp $
'!
!WindowsIconReader class methodsFor:'documentation'!
@@ -40,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.st,v 1.6 1994-06-03 00:54:08 claus Exp $
+$Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.st,v 1.7 1994-08-05 01:16:24 claus Exp $
"
!
--- a/WindowsIconReader.st Fri Aug 05 03:15:13 1994 +0200
+++ b/WindowsIconReader.st Fri Aug 05 03:16:30 1994 +0200
@@ -20,6 +20,8 @@
WindowsIconReader comment:'
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
+
+$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.7 1994-08-05 01:16:24 claus Exp $
'!
!WindowsIconReader class methodsFor:'documentation'!
@@ -40,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.6 1994-06-03 00:54:08 claus Exp $
+$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.7 1994-08-05 01:16:24 claus Exp $
"
!
--- a/XBMReader.st Fri Aug 05 03:15:13 1994 +0200
+++ b/XBMReader.st Fri Aug 05 03:16:30 1994 +0200
@@ -20,6 +20,8 @@
XBMReader comment:'
COPYRIGHT (c) 1992 by Claus Gittinger
All Rights Reserved
+
+$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.7 1994-08-05 01:16:28 claus Exp $
'!
!XBMReader class methodsFor:'documentation'!
@@ -40,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.6 1994-06-03 00:54:11 claus Exp $
+$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.7 1994-08-05 01:16:28 claus Exp $
"
!
@@ -48,7 +50,9 @@
"
this class provides methods for loading and saving x-bitmap-file images.
These images can (for example) be created using the bitmap editor supplied
- with X. Only monochrome images can be represented in thos format.
+ with X.
+ Only monochrome images can be represented in this format.
+ See also: XPMRreader, SunReader, WinIconReader, GIFReader and TIFFReader
"
! !
--- a/XPMReader.st Fri Aug 05 03:15:13 1994 +0200
+++ b/XPMReader.st Fri Aug 05 03:16:30 1994 +0200
@@ -20,6 +20,8 @@
XPMReader comment:'
COPYRIGHT (c) 1994 by Claus Gittinger
All Rights Reserved
+
+$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.2 1994-08-05 01:16:30 claus Exp $
'!
!XPMReader class methodsFor:'documentation'!
@@ -40,20 +42,25 @@
version
"
-$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.1 1994-06-03 00:54:13 claus Exp $
+$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.2 1994-08-05 01:16:30 claus Exp $
"
!
documentation
"
this class provides methods for loading x-pixmap-file (xpm) images.
- These images are used (in X) for palette images (see ctwm or hp-vue for a lot of them).
- The code here is a hack - it may not work for all images (it works for the testfiles
- I got here).
- Limitations: only reads the full-color specification, ignoring monochrome
- and greyscale info.
- Can only handle single-character index.
- Does not (currently) handle none-colors (i.e. for image-masks).
+ These images are used (in X) for palette images (see ctwm or hp-vue for a lot
+ of them). The code here is a hack - it may not work for all images (it works
+ for the testfiles I got here).
+ Limitations:
+ only reads the full-color specification, ignoring monochrome
+ and greyscale info.
+
+ Can only handle single-character index.
+
+ Does not (currently) handle none-colors (i.e. for image-masks).
+
+ Save not supported
Suggestions: adapt & use the XPM library here.
"
@@ -93,12 +100,13 @@
aStream peek == $# ifTrue:[
aStream next.
s := '#'.
- [aStream peek isAlphaNumeric] whileTrue:[
- s := s copyWith:aStream next
- ].
- ^ s
+ ] ifFalse:[
+ s := ''.
].
- ^ aStream upTo:$"
+ [aStream peek isAlphaNumeric] whileTrue:[
+ s := s copyWith:aStream next
+ ].
+ ^ s
!
fromFile:aFileName
@@ -171,6 +179,7 @@
inStream close.
^ nil
].
+
s := ReadStream on:line.
s next. "skip quote"
index := s next asciiValue.
@@ -220,8 +229,9 @@
colorName := self colorNameFrom:s.
s skipSeparators.
] ifFalse:[
- 'XPM: expected ''c'',''m'',''g'' or ''s''' errorPrintNL.
- s next.
+ 'XPM: format error (expected ''c'',''m'',''g'' or ''s'')' errorPrintNL.
+ inStream close.
+ ^ nil
].
]
]
@@ -273,7 +283,9 @@
samplesPerPixel := 1.
bitsPerSample := Array with:bitsPerPixel.
- "XPMReader fromFile:'bitmaps/magtape.xpm'"
- "XPMReader fromFile:'bitmaps/pixmap.xpm'"
- "XPMReader fromFile:'bitmaps/ljet.xpm'"
+ "
+ XPMReader fromFile:'../fileIn/bitmaps/magtape.xpm'
+ XPMReader fromFile:'../fileIn/bitmaps/pixmap.xpm'
+ XPMReader fromFile:'../fileIn/bitmaps/ljet.xpm'
+ "
! !