Mercurial Mercurial > hg > stx-libbasic3 / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
HistoryManager.st
changeset 1807 035fbf03765b
parent 1511 8eec89cf2149
child 1953 bd4151ee6b67 
--- a/HistoryManager.st	Mon Sep 18 16:57:09 2006 +0200
+++ b/HistoryManager.st	Mon Sep 18 21:47:20 2006 +0200
@@ -264,7 +264,7 @@
                 firstFound := false.
                 nextFound := true.
             ] ifFalse:[
-                aReadWriteStream := ReadWriteStream on: String new.
+                aReadWriteStream := ReadWriteStream on: (someString species) new.
                 firstFound := true.
                 nextFound := false.
             ].
@@ -295,10 +295,10 @@
 
     ^rcOC reverse  "the OrderedCollection with HistoryLines in the right order"
 
-    "Modified: 21.12.1993 / 18:32:30 / M.Noell"
-    "Modified: 9.8.1995 / 22:45:30 / R.Sailer"
-    "Modified: 8.9.1995 / 17:54:33 / claus"
-    "Modified: 20.4.1996 / 20:33:22 / cg"
+    "Modified: / 21-12-1993 / 18:32:30 / M.Noell"
+    "Modified: / 09-08-1995 / 22:45:30 / R.Sailer"
+    "Modified: / 08-09-1995 / 17:54:33 / claus"
+    "Modified: / 18-09-2006 / 20:48:19 / cg"
 !
 
 withoutHistoryLines:someString
@@ -705,7 +705,7 @@
     ].
 
     "create new method body with added historyLine"
-    wStream := WriteStream on: String new.
+    wStream := WriteStream on: (sourceCode species) new.
     wStream nextPutAll: sourceCode; cr.
 
     "append the historyLines to the source"
@@ -716,10 +716,10 @@
 
     ^ wStream contents.
 
-    "Modified: 11.8.1995 / 16:51:50 / robert"
-    "Modified: 8.9.1995 / 17:55:38 / claus"
-    "Created: 24.10.1997 / 00:16:38 / cg"
-    "Modified: 24.10.1997 / 01:27:21 / cg"
+    "Modified: / 11-08-1995 / 16:51:50 / robert"
+    "Modified: / 08-09-1995 / 17:55:38 / claus"
+    "Created: / 24-10-1997 / 00:16:38 / cg"
+    "Modified: / 18-09-2006 / 20:48:58 / cg"
 !
 
 addHistory:what with:arg toHistoryMethodOf:aClass
@@ -879,7 +879,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.63 2006-08-07 10:17:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.64 2006-09-18 19:47:20 cg Exp $'
 ! !
 
 !HistoryManager::HistoryLine class methodsFor:'filtering'!
@@ -1505,7 +1505,7 @@
 !HistoryManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.63 2006-08-07 10:17:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.64 2006-09-18 19:47:20 cg Exp $'
 ! !
 
 HistoryManager initialize!
hg/stx-libbasic3