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 Gittinger <cg@exept.de>
Wed, 01 Apr 1998 14:31:05 +0200
changeset 884 ce3134740a0a
parent 883 5e3c3d895f7d
child 885 f9b35ab9ae83
*** empty log message ***
PBMReader.st file | annotate | diff | comparison | revisions 
--- a/PBMReader.st	Wed Apr 01 14:29:04 1998 +0200
+++ b/PBMReader.st	Wed Apr 01 14:31:05 1998 +0200
@@ -498,15 +498,14 @@
     "common header for P4, P5 and P5 formats"
 
     aStream nextPutAll:format; cr.
-    aStream nextPutAll:'#  Converted from Smalltalk Form on '.
-    aStream nextPutAll:Date today printString.
-    aStream nextPutAll:' at '; nextPutAll:Time now printString.
+    aStream nextPutAll:'# From Smalltalk/X on '.
+    aStream nextPutAll:(Date today printString).
+    aStream nextPutAll:' at '; nextPutAll:(Time now printString).
     aStream cr.
-    aStream nextPutAll:width printString.
-    aStream space.
-    aStream nextPutAll:height printString.
+    aStream nextPutAll:(width printString); space; nextPutAll:(height printString).
 
-    "Created: 14.10.1997 / 20:01:05 / cg"
+    "Created: / 14.10.1997 / 20:01:05 / cg"
+    "Modified: / 1.4.1998 / 14:30:47 / cg"
 !
 
 writePBMFileOn:aStream
@@ -603,6 +602,6 @@
 !PBMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PBMReader.st,v 1.33 1998-02-03 16:58:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PBMReader.st,v 1.34 1998-04-01 12:31:05 cg Exp $'
 ! !
 PBMReader initialize!
hg/stx-libview2