--- a/PICTReader.st	Fri Oct 31 07:57:05 2003 +0100
+++ b/PICTReader.st	Wed Nov 19 14:20:37 2003 +0100
@@ -58,6 +58,7 @@
 examples
 "
   PICTReader fromFile:'/usr/lib/qt/examples/picture/car_orig.pic'
+  PICTReader fromFile:'/usr/lib/qt-2.3.2/examples/picture/car_orig.pic'
 
 
 
@@ -97,7 +98,7 @@
     ).
 
     stream := WriteStream on: (ByteArray new: array size * 2 + 512).
-    512 timesRepeat:[ stream nextPut: 0].
+    stream next:512 put:0.
     array do:
         [:n | 
             stream nextPut: ((n bitAnd:16rFF00) bitShift: -8).
@@ -1674,8 +1675,8 @@
     imageSequence := OrderedCollection new.
     self readHeader.
     endOpcode := 16r00FF.
-    [currentOpcode = endOpcode]
-            whileFalse: [self nextOpcode].
+    [currentOpcode = endOpcode] whileFalse: [self nextOpcode].
+
     imageSequence isEmpty ifTrue: [^nil].
     imageSequence size = 1 ifTrue: [
         ^ imageSequence first first
@@ -1683,9 +1684,8 @@
     ^ self mergeImages
 
     "
-     Image fromFile:'bitmaps/founders.im8'
-     Image fromFile:'bitmaps/bf.im8'
-     PictReader fromStream:'bitmaps/founders.im8' asFilename readStream
+     PICTReader fromFile:'/usr/lib/qt/examples/picture/car_orig.pic'
+     PICTReader fromFile:'/usr/lib/qt-2.3.2/examples/picture/car_orig.pic'
     "
 ! !
 
@@ -1807,7 +1807,7 @@
 !PICTReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PICTReader.st,v 1.5 2003-09-12 20:54:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PICTReader.st,v 1.6 2003-11-19 13:20:37 cg Exp $'
 ! !
 
 PICTReader initialize!