Mercurial Mercurial > hg > stx-libbasic3 / 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.
Define #printOn: instead of #printString
authorStefan Vogel <sv@exept.de>
Tue, 20 Jan 1998 13:51:10 +0100
changeset 643 360e30f96f4b
parent 642 077371c28483
child 644 ffba6b23cc6d
Define #printOn: instead of #printString
HistMgr.st file | annotate | diff | comparison | revisions
HistoryManager.st file | annotate | diff | comparison | revisions 
--- a/HistMgr.st	Mon Jan 19 16:29:17 1998 +0100
+++ b/HistMgr.st	Tue Jan 20 13:51:10 1998 +0100
@@ -846,7 +846,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/HistMgr.st,v 1.40 1997-11-03 15:32:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/HistMgr.st,v 1.41 1998-01-20 12:51:10 stefan Exp $'
 ! !
 
 !HistoryManager::HistoryLine class methodsFor:'filtering'!
@@ -1394,12 +1394,9 @@
 
 !HistoryManager::HistoryLine methodsFor:'printing & storing'!
 
-printString
+printOn:aStream
     "return a printed representation of a HistoryLine as a string"
 
-    | aStream |
-
-    aStream := WriteStream on: String new.
     aStream nextPutAll:IndentString.
     aStream nextPutAll:Quote.
     aStream nextPutAll:type.
@@ -1414,13 +1411,13 @@
     aStream space; nextPutAll:Separator; space.
     aStream nextPutAll:user.
     aStream nextPutAll:Quote.
-    ^ aStream contents.
-
-    "Modified: 24.10.1997 / 01:46:10 / cg"
 
-    "Modified: / 24.10.1997 / 02:01:43 / cg"
+    "
+     self new printOn:Transcript
+    "
 
-    "Modified:  24.10.1997  02:07:23  cg"
+    "Modified: / 24.10.1997 / 02:07:23 / cg"
+    "Modified: / 20.1.1998 / 12:58:53 / stefan"
 ! !
 
 !HistoryManager::HistoryLine methodsFor:'queries'!
@@ -1481,6 +1478,6 @@
 !HistoryManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/HistMgr.st,v 1.40 1997-11-03 15:32:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/HistMgr.st,v 1.41 1998-01-20 12:51:10 stefan Exp $'
 ! !
 HistoryManager initialize!
--- a/HistoryManager.st	Mon Jan 19 16:29:17 1998 +0100
+++ b/HistoryManager.st	Tue Jan 20 13:51:10 1998 +0100
@@ -846,7 +846,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.40 1997-11-03 15:32:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.41 1998-01-20 12:51:10 stefan Exp $'
 ! !
 
 !HistoryManager::HistoryLine class methodsFor:'filtering'!
@@ -1394,12 +1394,9 @@
 
 !HistoryManager::HistoryLine methodsFor:'printing & storing'!
 
-printString
+printOn:aStream
     "return a printed representation of a HistoryLine as a string"
 
-    | aStream |
-
-    aStream := WriteStream on: String new.
     aStream nextPutAll:IndentString.
     aStream nextPutAll:Quote.
     aStream nextPutAll:type.
@@ -1414,13 +1411,13 @@
     aStream space; nextPutAll:Separator; space.
     aStream nextPutAll:user.
     aStream nextPutAll:Quote.
-    ^ aStream contents.
-
-    "Modified: 24.10.1997 / 01:46:10 / cg"
 
-    "Modified: / 24.10.1997 / 02:01:43 / cg"
+    "
+     self new printOn:Transcript
+    "
 
-    "Modified:  24.10.1997  02:07:23  cg"
+    "Modified: / 24.10.1997 / 02:07:23 / cg"
+    "Modified: / 20.1.1998 / 12:58:53 / stefan"
 ! !
 
 !HistoryManager::HistoryLine methodsFor:'queries'!
@@ -1481,6 +1478,6 @@
 !HistoryManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.40 1997-11-03 15:32:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.41 1998-01-20 12:51:10 stefan Exp $'
 ! !
 HistoryManager initialize!
hg/stx-libbasic3