diff -r 93a9f3c4d8ec -r 86a93acb3be7 PBMReader.st
--- a/PBMReader.st	Tue Feb 03 17:55:44 1998 +0100
+++ b/PBMReader.st	Tue Feb 03 17:58:02 1998 +0100
@@ -178,9 +178,7 @@
     inStream text.
 
     inStream next == $P ifFalse:[
-        Image badImageFormatQuerySignal
-            raiseErrorString:'PBMReader [info]: not PNM format'.
-        ^nil
+        ^ self fileFormatError:'not PNM format'.
     ].
     pnmType := inStream next.
 
@@ -199,9 +197,7 @@
     (pnmType == $6) ifTrue: [
         ^ self readDepth24PPMStream:aStream
     ].
-    Image badImageFormatQuerySignal
-            raiseErrorString:'PBMReader [info]: No recognized PNM file format'.
-    ^ nil
+    ^ self fileFormatError:'No recognized PNM file format'.
 
     "
      PBMReader fromFile:'bitmaps/testimg.ppm'
@@ -210,7 +206,7 @@
     "
 
     "Created: / 3.2.1998 / 17:25:34 / cg"
-    "Modified: / 3.2.1998 / 17:31:24 / cg"
+    "Modified: / 3.2.1998 / 17:56:11 / cg"
 !
 
 readDepth1AsciiPBMStream:aStream 
@@ -221,17 +217,13 @@
     self skipPBMJunkOn:aStream.
     width := Integer readFrom:aStream.
     width > 0 ifFalse: [
-        Image badImageFormatQuerySignal
-            raiseErrorString:'PBMReader [info]: Invalid width'.
-        ^ nil
+        ^ self fileFormatError:'Invalid width'.
     ].
 
     self skipPBMJunkOn:aStream.
     height := Integer readFrom:aStream.
     height > 0 ifFalse: [
-        Image badImageFormatQuerySignal
-            raiseErrorString:'PBMReader [info]: Invalid height'.
-        ^ nil
+        ^ self fileFormatError:'Invalid height'.
     ].
 
     aStream nextLine "skipThrough: Character cr".
@@ -271,7 +263,7 @@
     bitsPerSample := #(1).
 
     "Created: / 3.2.1998 / 17:21:22 / cg"
-    "Modified: / 3.2.1998 / 17:32:07 / cg"
+    "Modified: / 3.2.1998 / 17:56:32 / cg"
 !
 
 readDepth1PBMStream:aStream 
@@ -282,17 +274,13 @@
     self skipPBMJunkOn:aStream.
     width := Integer readFrom:aStream onError:0.
     width > 0 ifFalse: [
-        Image badImageFormatQuerySignal
-            raiseErrorString:'PBMReader [info]: Invalid width'.
-        ^ nil
+        ^ self fileFormatError:'Invalid width'.
     ].
 
     self skipPBMJunkOn:aStream.
     height := Integer readFrom:aStream onError:0.
     height > 0 ifFalse: [
-        Image badImageFormatQuerySignal
-            raiseErrorString:'PBMReader [info]: Invalid height'.
-        ^ nil
+        ^ self fileFormatError:'Invalid height'.
     ].
 
     aStream nextLine "skipThrough: Character cr".
@@ -312,7 +300,7 @@
     bitsPerSample := #(1).
 
     "Created: / 3.2.1998 / 17:21:37 / cg"
-    "Modified: / 3.2.1998 / 17:32:24 / cg"
+    "Modified: / 3.2.1998 / 17:56:59 / cg"
 !
 
 readDepth24AsciiPBMStream:aStream
@@ -326,25 +314,19 @@
     self skipPBMJunkOn:aStream.
     width := Integer readFrom:aStream.
     width > 0 ifFalse: [
-        Image badImageFormatQuerySignal
-            raiseErrorString:'PBMReader [info]: Invalid width'.
-        ^ nil
+        ^ self fileFormatError:'Invalid width'.
     ].
 
     self skipPBMJunkOn:aStream.
     height := Integer readFrom:aStream.
     height > 0 ifFalse: [
-        Image badImageFormatQuerySignal
-            raiseErrorString:'PBMReader [info]: Invalid height'.
-        ^ nil
+        ^ self fileFormatError:'Invalid height'.
     ].
 
     self skipPBMJunkOn:aStream.
     maxval := Integer readFrom:aStream.
     maxval >= 256 ifTrue: [
-        Image badImageFormatQuerySignal
-            raiseErrorString:'PBMReader [info]: format error'.
-        ^ nil
+        ^ self fileFormatError:'Invalid format'.
     ].
 
     aStream skipThrough: Character cr.
@@ -367,7 +349,7 @@
     bitsPerSample := #(8 8 8).
 
     "Created: / 3.2.1998 / 17:21:55 / cg"
-    "Modified: / 3.2.1998 / 17:32:48 / cg"
+    "Modified: / 3.2.1998 / 17:57:30 / cg"
 !
 
 readDepth24PPMStream:aStream
@@ -378,25 +360,19 @@
     self skipPBMJunkOn:aStream.
     width := Integer readFrom:aStream.
     width > 0 ifFalse: [
-        Image badImageFormatQuerySignal
-            raiseErrorString:'PBMReader [info]: Invalid width'.
-        ^ nil
+        ^ self fileFormatError:'Invalid width'.
     ].
 
     self skipPBMJunkOn:aStream.
     height := Integer readFrom:aStream.
     height > 0 ifFalse: [
-        Image badImageFormatQuerySignal
-            raiseErrorString:'PBMReader [info]: Invalid height'.
-        ^ nil
+        ^ self fileFormatError:'Invalid height'.
     ].
 
     self skipPBMJunkOn:aStream.
     maxval := Integer readFrom:aStream.
     maxval >= 256 ifTrue: [
-        Image badImageFormatQuerySignal
-            raiseErrorString:'PBMReader [info]: format error'.
-        ^ nil
+        ^ self fileFormatError:'Invalid format'.
     ].
 
     aStream skipThrough: Character cr.
@@ -411,7 +387,7 @@
     bitsPerSample := #(8 8 8).
 
     "Created: / 3.2.1998 / 17:22:18 / cg"
-    "Modified: / 3.2.1998 / 17:33:10 / cg"
+    "Modified: / 3.2.1998 / 17:57:26 / cg"
 !
 
 readDepth8PGMStream:aStream 
@@ -422,23 +398,17 @@
     self skipPBMJunkOn:aStream.
     width := Integer readFrom:aStream.
     width > 0 ifFalse:[ 
-        Image badImageFormatQuerySignal
-            raiseErrorString:'PBMReader [info]: Invalid width'.
-        ^ nil
+        ^ self fileFormatError:'Invalid width'.
     ].
     self skipPBMJunkOn:aStream.
     height := Integer readFrom:aStream.
     height > 0 ifFalse:[ 
-        Image badImageFormatQuerySignal
-            raiseErrorString:'PBMReader [info]: Invalid height'.
-        ^ nil
+        ^ self fileFormatError:'Invalid height'.
     ].
     self skipPBMJunkOn:aStream.
     maxval := Integer readFrom:aStream.
     maxval >= 256 ifTrue:[
-        Image badImageFormatQuerySignal
-            raiseErrorString:'PBMReader [info]: Invalid format'.
-        ^ nil
+        ^ self fileFormatError:'Invalid format'.
     ].
     aStream nextLine "skipThrough: Character cr".
 
@@ -451,7 +421,7 @@
     samplesPerPixel := 1.
     bitsPerSample := #(8).
 
-    "Modified: / 3.2.1998 / 17:33:29 / cg"
+    "Modified: / 3.2.1998 / 17:57:21 / cg"
 ! !
 
 !PBMReader methodsFor:'writing to file'!
@@ -633,6 +603,6 @@
 !PBMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PBMReader.st,v 1.32 1998-02-03 16:34:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PBMReader.st,v 1.33 1998-02-03 16:58:02 cg Exp $'
 ! !
 PBMReader initialize!