Mercurial Mercurial > hg > stx-libview2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorclaus
Thu, 17 Nov 1994 15:30:22 +0100
changeset 32 6bdcb6da4d4f
parent 31 c8adde64ce92
child 33 be90784ee668
*** empty log message ***
FaceReader.st file | annotate | diff | comparison | revisions
GIFReader.st file | annotate | diff | comparison | revisions
JPEGReader.st file | annotate | diff | comparison | revisions
PBMReader.st file | annotate | diff | comparison | revisions
PCXReader.st file | annotate | diff | comparison | revisions
ST80FormReader.st file | annotate | diff | comparison | revisions
STFormRdr.st file | annotate | diff | comparison | revisions
SunRasterReader.st file | annotate | diff | comparison | revisions
SunReader.st file | annotate | diff | comparison | revisions
TIFFRdr.st file | annotate | diff | comparison | revisions
TIFFReader.st file | annotate | diff | comparison | revisions
WinIconRdr.st file | annotate | diff | comparison | revisions
WindowsIconReader.st file | annotate | diff | comparison | revisions
XPMReader.st file | annotate | diff | comparison | revisions 
--- a/FaceReader.st	Thu Nov 17 15:24:56 1994 +0100
+++ b/FaceReader.st	Thu Nov 17 15:30:22 1994 +0100
@@ -14,14 +14,14 @@
 	 instanceVariableNames:''
 	 classVariableNames:''
 	 poolDictionaries:''
-	 category:'Graphics-Support'
+	 category:'Graphics-Images support'
 !
 
 FaceReader comment:'
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/FaceReader.st,v 1.8 1994-10-10 02:30:11 claus Exp $
+$Header: /cvs/stx/stx/libview2/FaceReader.st,v 1.9 1994-11-17 14:29:23 claus Exp $
 '!
 
 !FaceReader class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/FaceReader.st,v 1.8 1994-10-10 02:30:11 claus Exp $
+$Header: /cvs/stx/stx/libview2/FaceReader.st,v 1.9 1994-11-17 14:29:23 claus Exp $
 "
 !
 
--- a/GIFReader.st	Thu Nov 17 15:24:56 1994 +0100
+++ b/GIFReader.st	Thu Nov 17 15:30:22 1994 +0100
@@ -14,14 +14,14 @@
 	 instanceVariableNames:'redMap greenMap blueMap'
 	 classVariableNames:''
 	 poolDictionaries:''
-	 category:'Graphics-Support'
+	 category:'Graphics-Images support'
 !
 
 GIFReader comment:'
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.10 1994-10-10 02:30:44 claus Exp $
+$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.11 1994-11-17 14:29:27 claus Exp $
 '!
 
 !GIFReader class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.10 1994-10-10 02:30:44 claus Exp $
+$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.11 1994-11-17 14:29:27 claus Exp $
 "
 !
 
--- a/JPEGReader.st	Thu Nov 17 15:24:56 1994 +0100
+++ b/JPEGReader.st	Thu Nov 17 15:30:22 1994 +0100
@@ -14,14 +14,14 @@
 	 instanceVariableNames:''
 	 classVariableNames:''
 	 poolDictionaries:''
-	 category:'Graphics-Support'
+	 category:'Graphics-Images support'
 !
 
 JPEGReader comment:'
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/JPEGReader.st,v 1.6 1994-10-10 02:32:33 claus Exp $
+$Header: /cvs/stx/stx/libview2/JPEGReader.st,v 1.7 1994-11-17 14:29:35 claus Exp $
 '!
 
 !JPEGReader class methodsFor:'documentation'!
@@ -42,15 +42,18 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/JPEGReader.st,v 1.6 1994-10-10 02:32:33 claus Exp $
+$Header: /cvs/stx/stx/libview2/JPEGReader.st,v 1.7 1994-11-17 14:29:35 claus Exp $
 "
 !
 
 documentation
 "
     Reader for JPEG images.
-    uses PD djpeg tool to convert JPG image to gif first,
-    then read GIF image using GIFReader.
+    This is a quick&dirty hack, using the PD djpeg tool to convert 
+    the JPG image to GIF first, then reads the GIF image using GIFReader.
+    Of course, this is slower than it should be. If lots of JPG reading
+    is done, this class should be rewritten, to directly call the (C) JPG
+    decoding functions.
 "
 ! !
 
@@ -71,16 +74,18 @@
     |tempFileName reader|
 
     tempFileName := '/tmp/img' , (OperatingSystem getProcessId printString).
-    Transcript showCr:'converting to gif ..'.
+    'JPEGREADER: converting to gif ..' errorPrintNL.
     (OperatingSystem executeCommand:'djpeg -gif ' , aFileName , ' > ' , tempFileName)
     ifTrue:[
 	reader := GIFReader fromFile:tempFileName.
 	OperatingSystem executeCommand:'rm ' , tempFileName.
 	^ reader
     ].
-    Transcript showCr:'conversion failed ..'.
+    'JPEGREADER: conversion failed ..' errorPrintNL.
     self warn:'cannot execute jpeg converter: djpeg'.
     ^ nil
 
-    "JPEGReader fromFile:'bitmaps/testimg.jpg'"
+    "
+     JPEGReader fromFile:'bitmaps/testimg.jpg'
+    "
 ! !
--- a/PBMReader.st	Thu Nov 17 15:24:56 1994 +0100
+++ b/PBMReader.st	Thu Nov 17 15:30:22 1994 +0100
@@ -14,14 +14,14 @@
 	 instanceVariableNames:''
 	 classVariableNames:''
 	 poolDictionaries:''
-	 category:'Graphics-Support'
+	 category:'Graphics-Images support'
 !
 
 PBMReader comment:'
 COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/PBMReader.st,v 1.7 1994-10-10 02:32:49 claus Exp $
+$Header: /cvs/stx/stx/libview2/PBMReader.st,v 1.8 1994-11-17 14:29:38 claus Exp $
 '!
 
 !PBMReader class methodsFor:'documentation'!
@@ -42,14 +42,15 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/PBMReader.st,v 1.7 1994-10-10 02:32:49 claus Exp $
+$Header: /cvs/stx/stx/libview2/PBMReader.st,v 1.8 1994-11-17 14:29:38 claus Exp $
 "
 !
 
 documentation
 "
-    this class provides methods for loading and saving Portable BitMap-file images
-    (Jef Poskanzers portable bitmap package)..
+    this class provides methods for loading and saving Portable BitMap-file 
+    images (Jef Poskanzers portable bitmap package).
+    Currently, only writing of 1-bit and 8-bit images is supported.
 "
 ! !
 
--- a/PCXReader.st	Thu Nov 17 15:24:56 1994 +0100
+++ b/PCXReader.st	Thu Nov 17 15:30:22 1994 +0100
@@ -16,14 +16,14 @@
 	 instanceVariableNames:''
 	 classVariableNames:''
 	 poolDictionaries:''
-	 category:'Graphics-Support'
+	 category:'Graphics-Images support'
 !
 
 PCXReader comment:'
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/PCXReader.st,v 1.2 1994-10-28 03:16:37 claus Exp $
+$Header: /cvs/stx/stx/libview2/PCXReader.st,v 1.3 1994-11-17 14:29:39 claus Exp $
 '!
 
 !PCXReader class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/PCXReader.st,v 1.2 1994-10-28 03:16:37 claus Exp $
+$Header: /cvs/stx/stx/libview2/PCXReader.st,v 1.3 1994-11-17 14:29:39 claus Exp $
 "
 !
 
@@ -108,13 +108,13 @@
 fromStreamWithHeader:header 
     | inDepth version compression nPlanes xmin ymin xmax ymax
       paletteType rawMap rMap gMap bMap 
-      endIndex "{Class: SmallInteger }"
-      srcIndex "{Class: SmallInteger }"
-      dstIndex "{Class: SmallInteger }"
-      rowIndex "{Class: SmallInteger }"
-      h        "{Class: SmallInteger }"
-      byte     "{Class: SmallInteger }"
-      nByte    "{Class: SmallInteger }"
+      endIndex    "{Class: SmallInteger }"
+      srcIndex    "{Class: SmallInteger }"
+      dstIndex    "{Class: SmallInteger }"
+      rowIndex    "{Class: SmallInteger }"
+      h           "{Class: SmallInteger }"
+      byte        "{Class: SmallInteger }"
+      nByte       "{Class: SmallInteger }"
       bytesPerRow "{Class: SmallInteger }"
       value       "{Class: SmallInteger }"
       idx2        "{Class: SmallInteger }"
@@ -288,7 +288,7 @@
     photometric := #palette.
     samplesPerPixel := 1.
     bitsPerSample := #(8).
-    colorMap := Array with:rMap with:gMap with:bMap.
+   colorMap := Array with:rMap with:gMap with:bMap.
 
     "
      |i f|
--- a/ST80FormReader.st	Thu Nov 17 15:24:56 1994 +0100
+++ b/ST80FormReader.st	Thu Nov 17 15:30:22 1994 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -11,17 +11,17 @@
 "
 
 ImageReader subclass:#ST80FormReader
-         instanceVariableNames:''
-         classVariableNames:''
-         poolDictionaries:''
-         category:'Graphics-Support'
+	 instanceVariableNames:''
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'Graphics-Images support'
 !
 
 ST80FormReader comment:'
 COPYRIGHT (c) 1993 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/ST80FormReader.st,v 1.4 1994-08-05 01:15:00 claus Exp $
+$Header: /cvs/stx/stx/libview2/ST80FormReader.st,v 1.5 1994-11-17 14:29:42 claus Exp $
 '!
 
 !ST80FormReader class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
 copyright
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -42,13 +42,17 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/ST80FormReader.st,v 1.4 1994-08-05 01:15:00 claus Exp $
+$Header: /cvs/stx/stx/libview2/ST80FormReader.st,v 1.5 1994-11-17 14:29:42 claus Exp $
 "
 !
 
 documentation
 "
     this class provides methods for loading and saving st80-bitmap-file images.
+    I am not sure, if this format is still supported/used by newer ST-80
+    versions; it used to be in 2.x versions (from what can be deduced by some
+    bitmaps found in the manchester goodies).
+    No writing is supported by this class.
 "
 ! !
 
@@ -59,8 +63,8 @@
 
     outStream := FileStream newFileNamed:aFileName.
     outStream isNil ifTrue:[
-        'create error' printNewline. 
-        ^ nil
+	'create error' printNewline. 
+	^ nil
     ].
 
     width := image width.
@@ -73,9 +77,9 @@
     ((samplesPerPixel ~~ 1)
     or:[((bitsPerSample at:1) ~~ 1)
     or:[(photometric ~~ #blackIs0) and:[photometric ~~ #whiteIs0]]]) ifTrue:[
-        self error:'can only save Depth1Images'.
-        outStream close.
-        ^ nil.
+	self error:'can only save Depth1Images'.
+	outStream close.
+	^ nil.
     ].
 
     outStream binary.
@@ -104,8 +108,8 @@
     inStream binary.
     code := inStream nextWord.
     code == 1 ifFalse:[
-        inStream close.
-        ^ false
+	inStream close.
+	^ false
     ].
     inStream close.
     ^ true
@@ -118,15 +122,15 @@
 
     inStream := self class streamReadingFile:aFileName.
     inStream isNil ifTrue:[
-        'open error' printNewline.
-        ^ nil
+	'open error' printNewline.
+	^ nil
     ].
 
     inStream binary.
     code := inStream nextWord.
     code isNil ifTrue:[
-        inStream close.
-        ^ nil
+	inStream close.
+	^ nil
     ].
 
     width := inStream nextWord.
--- a/STFormRdr.st	Thu Nov 17 15:24:56 1994 +0100
+++ b/STFormRdr.st	Thu Nov 17 15:30:22 1994 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -11,17 +11,17 @@
 "
 
 ImageReader subclass:#ST80FormReader
-         instanceVariableNames:''
-         classVariableNames:''
-         poolDictionaries:''
-         category:'Graphics-Support'
+	 instanceVariableNames:''
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'Graphics-Images support'
 !
 
 ST80FormReader comment:'
 COPYRIGHT (c) 1993 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/Attic/STFormRdr.st,v 1.4 1994-08-05 01:15:00 claus Exp $
+$Header: /cvs/stx/stx/libview2/Attic/STFormRdr.st,v 1.5 1994-11-17 14:29:42 claus Exp $
 '!
 
 !ST80FormReader class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
 copyright
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -42,13 +42,17 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/Attic/STFormRdr.st,v 1.4 1994-08-05 01:15:00 claus Exp $
+$Header: /cvs/stx/stx/libview2/Attic/STFormRdr.st,v 1.5 1994-11-17 14:29:42 claus Exp $
 "
 !
 
 documentation
 "
     this class provides methods for loading and saving st80-bitmap-file images.
+    I am not sure, if this format is still supported/used by newer ST-80
+    versions; it used to be in 2.x versions (from what can be deduced by some
+    bitmaps found in the manchester goodies).
+    No writing is supported by this class.
 "
 ! !
 
@@ -59,8 +63,8 @@
 
     outStream := FileStream newFileNamed:aFileName.
     outStream isNil ifTrue:[
-        'create error' printNewline. 
-        ^ nil
+	'create error' printNewline. 
+	^ nil
     ].
 
     width := image width.
@@ -73,9 +77,9 @@
     ((samplesPerPixel ~~ 1)
     or:[((bitsPerSample at:1) ~~ 1)
     or:[(photometric ~~ #blackIs0) and:[photometric ~~ #whiteIs0]]]) ifTrue:[
-        self error:'can only save Depth1Images'.
-        outStream close.
-        ^ nil.
+	self error:'can only save Depth1Images'.
+	outStream close.
+	^ nil.
     ].
 
     outStream binary.
@@ -104,8 +108,8 @@
     inStream binary.
     code := inStream nextWord.
     code == 1 ifFalse:[
-        inStream close.
-        ^ false
+	inStream close.
+	^ false
     ].
     inStream close.
     ^ true
@@ -118,15 +122,15 @@
 
     inStream := self class streamReadingFile:aFileName.
     inStream isNil ifTrue:[
-        'open error' printNewline.
-        ^ nil
+	'open error' printNewline.
+	^ nil
     ].
 
     inStream binary.
     code := inStream nextWord.
     code isNil ifTrue:[
-        inStream close.
-        ^ nil
+	inStream close.
+	^ nil
     ].
 
     width := inStream nextWord.
--- a/SunRasterReader.st	Thu Nov 17 15:24:56 1994 +0100
+++ b/SunRasterReader.st	Thu Nov 17 15:30:22 1994 +0100
@@ -14,14 +14,14 @@
 	 instanceVariableNames:''
 	 classVariableNames:''
 	 poolDictionaries:''
-	 category:'Graphics-Support'
+	 category:'Graphics-Images support'
 !
 
 SunRasterReader comment:'
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/SunRasterReader.st,v 1.8 1994-10-10 02:33:19 claus Exp $
+$Header: /cvs/stx/stx/libview2/SunRasterReader.st,v 1.9 1994-11-17 14:29:44 claus Exp $
 '!
 
 !SunRasterReader class methodsFor:'documentation'!
@@ -42,13 +42,14 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/SunRasterReader.st,v 1.8 1994-10-10 02:33:19 claus Exp $
+$Header: /cvs/stx/stx/libview2/SunRasterReader.st,v 1.9 1994-11-17 14:29:44 claus Exp $
 "
 !
 
 documentation
 "
-    this class provides methods for loading Sun Raster file images
+    this class provides methods for loading Sun Raster file images.
+    No image writing is implemented.
 "
 ! !
 
--- a/SunReader.st	Thu Nov 17 15:24:56 1994 +0100
+++ b/SunReader.st	Thu Nov 17 15:30:22 1994 +0100
@@ -14,14 +14,14 @@
 	 instanceVariableNames:''
 	 classVariableNames:''
 	 poolDictionaries:''
-	 category:'Graphics-Support'
+	 category:'Graphics-Images support'
 !
 
 SunRasterReader comment:'
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/Attic/SunReader.st,v 1.8 1994-10-10 02:33:19 claus Exp $
+$Header: /cvs/stx/stx/libview2/Attic/SunReader.st,v 1.9 1994-11-17 14:29:44 claus Exp $
 '!
 
 !SunRasterReader class methodsFor:'documentation'!
@@ -42,13 +42,14 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/Attic/SunReader.st,v 1.8 1994-10-10 02:33:19 claus Exp $
+$Header: /cvs/stx/stx/libview2/Attic/SunReader.st,v 1.9 1994-11-17 14:29:44 claus Exp $
 "
 !
 
 documentation
 "
-    this class provides methods for loading Sun Raster file images
+    this class provides methods for loading Sun Raster file images.
+    No image writing is implemented.
 "
 ! !
 
--- a/TIFFRdr.st	Thu Nov 17 15:24:56 1994 +0100
+++ b/TIFFRdr.st	Thu Nov 17 15:30:22 1994 +0100
@@ -20,14 +20,14 @@
 				colorMapPos'
 	 classVariableNames:''
 	 poolDictionaries:''
-	 category:'Graphics-Support'
+	 category:'Graphics-Images support'
 !
 
 TIFFReader comment:'
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/Attic/TIFFRdr.st,v 1.12 1994-10-28 03:19:24 claus Exp $
+$Header: /cvs/stx/stx/libview2/Attic/TIFFRdr.st,v 1.13 1994-11-17 14:29:48 claus Exp $
 '!
 
 !TIFFReader class methodsFor:'documentation'!
@@ -48,7 +48,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/Attic/TIFFRdr.st,v 1.12 1994-10-28 03:19:24 claus Exp $
+$Header: /cvs/stx/stx/libview2/Attic/TIFFRdr.st,v 1.13 1994-11-17 14:29:48 claus Exp $
 "
 !
 
--- a/TIFFReader.st	Thu Nov 17 15:24:56 1994 +0100
+++ b/TIFFReader.st	Thu Nov 17 15:30:22 1994 +0100
@@ -20,14 +20,14 @@
 				colorMapPos'
 	 classVariableNames:''
 	 poolDictionaries:''
-	 category:'Graphics-Support'
+	 category:'Graphics-Images support'
 !
 
 TIFFReader comment:'
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.12 1994-10-28 03:19:24 claus Exp $
+$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.13 1994-11-17 14:29:48 claus Exp $
 '!
 
 !TIFFReader class methodsFor:'documentation'!
@@ -48,7 +48,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.12 1994-10-28 03:19:24 claus Exp $
+$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.13 1994-11-17 14:29:48 claus Exp $
 "
 !
 
--- a/WinIconRdr.st	Thu Nov 17 15:24:56 1994 +0100
+++ b/WinIconRdr.st	Thu Nov 17 15:30:22 1994 +0100
@@ -14,14 +14,14 @@
 	 instanceVariableNames:''
 	 classVariableNames:''
 	 poolDictionaries:''
-	 category:'Graphics-Support'
+	 category:'Graphics-Images support'
 !
 
 WindowsIconReader comment:'
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.st,v 1.8 1994-10-10 02:34:13 claus Exp $
+$Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.st,v 1.9 1994-11-17 14:30:22 claus Exp $
 '!
 
 !WindowsIconReader class methodsFor:'documentation'!
@@ -42,13 +42,14 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.st,v 1.8 1994-10-10 02:34:13 claus Exp $
+$Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.st,v 1.9 1994-11-17 14:30:22 claus Exp $
 "
 !
 
 documentation
 "
-    this class provides methods for loading Windows and OS2 icon files..
+    this class provides methods for loading Windows and OS2 icon files.
+    Image writing is not supported.
 "
 ! !
 
--- a/WindowsIconReader.st	Thu Nov 17 15:24:56 1994 +0100
+++ b/WindowsIconReader.st	Thu Nov 17 15:30:22 1994 +0100
@@ -14,14 +14,14 @@
 	 instanceVariableNames:''
 	 classVariableNames:''
 	 poolDictionaries:''
-	 category:'Graphics-Support'
+	 category:'Graphics-Images support'
 !
 
 WindowsIconReader comment:'
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.8 1994-10-10 02:34:13 claus Exp $
+$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.9 1994-11-17 14:30:22 claus Exp $
 '!
 
 !WindowsIconReader class methodsFor:'documentation'!
@@ -42,13 +42,14 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.8 1994-10-10 02:34:13 claus Exp $
+$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.9 1994-11-17 14:30:22 claus Exp $
 "
 !
 
 documentation
 "
-    this class provides methods for loading Windows and OS2 icon files..
+    this class provides methods for loading Windows and OS2 icon files.
+    Image writing is not supported.
 "
 ! !
 
--- a/XPMReader.st	Thu Nov 17 15:24:56 1994 +0100
+++ b/XPMReader.st	Thu Nov 17 15:30:22 1994 +0100
@@ -14,14 +14,14 @@
 	 instanceVariableNames:''
 	 classVariableNames:''
 	 poolDictionaries:''
-	 category:'Graphics-Support'
+	 category:'Graphics-Images support'
 !
 
 XPMReader comment:'
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.3 1994-10-10 02:34:22 claus Exp $
+$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.4 1994-11-17 14:30:07 claus Exp $
 '!
 
 !XPMReader class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.3 1994-10-10 02:34:22 claus Exp $
+$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.4 1994-11-17 14:30:07 claus Exp $
 "
 !
hg/stx-libview2