# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 854806235 -3600
# Node ID b40294e3fee0a54e22cf7b7f0c968f228463640d
# Parent  f87821ab7b3066cc29038f85282638db9a3c7321
new suffix-table

diff -r f87821ab7b30 -r b40294e3fee0 ST80FormReader.st
--- a/ST80FormReader.st	Sat Feb 01 15:08:45 1997 +0100
+++ b/ST80FormReader.st	Sat Feb 01 15:10:35 1997 +0100
@@ -51,6 +51,17 @@
 "
 ! !
 
+!ST80FormReader class methodsFor:'initialization'!
+
+initialize
+    "install myself in the Image classes fileFormat table
+     for the `.form' extension."
+
+    Image addReader:self suffix:'form'.
+
+    "Created: 1.2.1997 / 15:09:49 / cg"
+! !
+
 !ST80FormReader class methodsFor:'testing'!
 
 canRepresent:anImage
@@ -150,5 +161,6 @@
 !ST80FormReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ST80FormReader.st,v 1.15 1996-05-10 16:45:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ST80FormReader.st,v 1.16 1997-02-01 14:09:53 cg Exp $'
 ! !
+ST80FormReader initialize!
diff -r f87821ab7b30 -r b40294e3fee0 STFormRdr.st
--- a/STFormRdr.st	Sat Feb 01 15:08:45 1997 +0100
+++ b/STFormRdr.st	Sat Feb 01 15:10:35 1997 +0100
@@ -51,6 +51,17 @@
 "
 ! !
 
+!ST80FormReader class methodsFor:'initialization'!
+
+initialize
+    "install myself in the Image classes fileFormat table
+     for the `.form' extension."
+
+    Image addReader:self suffix:'form'.
+
+    "Created: 1.2.1997 / 15:09:49 / cg"
+! !
+
 !ST80FormReader class methodsFor:'testing'!
 
 canRepresent:anImage
@@ -150,5 +161,6 @@
 !ST80FormReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/STFormRdr.st,v 1.15 1996-05-10 16:45:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/STFormRdr.st,v 1.16 1997-02-01 14:09:53 cg Exp $'
 ! !
+ST80FormReader initialize!
diff -r f87821ab7b30 -r b40294e3fee0 XPMReader.st
--- a/XPMReader.st	Sat Feb 01 15:08:45 1997 +0100
+++ b/XPMReader.st	Sat Feb 01 15:10:35 1997 +0100
@@ -68,11 +68,12 @@
 
 initialize
     "tell Image-class, that a new fileReader is present
-     for the '.xpm' extension."
+     for the '.xpm' and '.pm' extensions."
 
     Image addReader:self suffix:'xpm'.
+    Image addReader:self suffix:'pm'.
 
-    "Modified: 1.2.1997 / 15:04:20 / cg"
+    "Modified: 1.2.1997 / 15:10:29 / cg"
 ! !
 
 !XPMReader class methodsFor:'testing'!
@@ -341,6 +342,6 @@
 !XPMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.20 1997-02-01 14:06:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.21 1997-02-01 14:10:35 cg Exp $'
 ! !
 XPMReader initialize!