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.
new suffix-table
authorClaus Gittinger <cg@exept.de>
Sat, 01 Feb 1997 15:10:35 +0100
changeset 400 b40294e3fee0
parent 399 f87821ab7b30
child 401 85a4dee5b006
new suffix-table
ST80FormReader.st file | annotate | diff | comparison | revisions
STFormRdr.st file | annotate | diff | comparison | revisions
XPMReader.st file | annotate | diff | comparison | revisions 
--- 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!
--- 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!
--- 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!
hg/stx-libview2