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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Wed, 06 Mar 1996 11:52:34 +0100
changeset 192 dcd1e06e9727
parent 191 ebdb455a26ce
child 193 8605ef9dcb44
checkin from browser
HistMgr.st file | annotate | diff | comparison | revisions
HistoryManager.st file | annotate | diff | comparison | revisions 
--- a/HistMgr.st	Thu Feb 29 17:24:47 1996 +0100
+++ b/HistMgr.st	Wed Mar 06 11:52:34 1996 +0100
@@ -204,6 +204,28 @@
     "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"
+!
+
+withoutHistoryLines:someString
+    "given some methods sourceString, return a copy without any
+     history lines"
+
+    | pos sourceCode previousHistories |
+
+    previousHistories := self getAllHistoriesFrom:someString.
+
+    "extract source body."
+    previousHistories isEmpty ifTrue: [
+        sourceCode := someString withoutSeparators.
+    ] ifFalse: [
+        pos := (previousHistories first) firstPositionInSourceCode.
+        sourceCode := (someString copyFrom: 1 to: pos - 1) withoutSeparators.
+    ].
+
+    ^ sourceCode
+
+    "Created: 5.3.1996 / 15:11:12 / cg"
+    "Modified: 6.3.1996 / 11:52:21 / cg"
 ! !
 
 !HistoryManager methodsFor:'accessing'!
@@ -461,6 +483,6 @@
 !HistoryManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/HistMgr.st,v 1.19 1996-02-02 16:25:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/HistMgr.st,v 1.20 1996-03-06 10:52:34 cg Exp $'
 ! !
 HistoryManager initialize!
--- a/HistoryManager.st	Thu Feb 29 17:24:47 1996 +0100
+++ b/HistoryManager.st	Wed Mar 06 11:52:34 1996 +0100
@@ -204,6 +204,28 @@
     "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"
+!
+
+withoutHistoryLines:someString
+    "given some methods sourceString, return a copy without any
+     history lines"
+
+    | pos sourceCode previousHistories |
+
+    previousHistories := self getAllHistoriesFrom:someString.
+
+    "extract source body."
+    previousHistories isEmpty ifTrue: [
+        sourceCode := someString withoutSeparators.
+    ] ifFalse: [
+        pos := (previousHistories first) firstPositionInSourceCode.
+        sourceCode := (someString copyFrom: 1 to: pos - 1) withoutSeparators.
+    ].
+
+    ^ sourceCode
+
+    "Created: 5.3.1996 / 15:11:12 / cg"
+    "Modified: 6.3.1996 / 11:52:21 / cg"
 ! !
 
 !HistoryManager methodsFor:'accessing'!
@@ -461,6 +483,6 @@
 !HistoryManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.19 1996-02-02 16:25:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.20 1996-03-06 10:52:34 cg Exp $'
 ! !
 HistoryManager initialize!
hg/stx-libbasic3