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>
Tue, 30 Apr 1996 11:10:15 +0200
changeset 245 f475bf72217a
parent 244 42acac0f7b8c
child 246 549e60a2c3fd
checkin from browser
HistMgr.st file | annotate | diff | comparison | revisions
HistoryManager.st file | annotate | diff | comparison | revisions 
--- a/HistMgr.st	Sat Apr 27 20:10:23 1996 +0200
+++ b/HistMgr.st	Tue Apr 30 11:10:15 1996 +0200
@@ -239,6 +239,8 @@
 
     | pos sourceCode previousHistories |
 
+    someString isNil ifTrue:[^ someString].
+
     previousHistories := self getAllHistoriesFrom:someString.
 
     "extract source body."
@@ -251,8 +253,16 @@
 
     ^ sourceCode
 
+    "
+     HistoryManager withoutHistoryLines:nil  
+     HistoryManager withoutHistoryLines:''  
+     HistoryManager 
+        withoutHistoryLines:(HistoryManager class 
+                                compiledMethodAt:#withoutHistoryLines:) source
+    "
+
     "Created: 5.3.1996 / 15:11:12 / cg"
-    "Modified: 6.3.1996 / 11:52:21 / cg"
+    "Modified: 30.4.1996 / 10:57:35 / cg"
 ! !
 
 !HistoryManager methodsFor:'accessing'!
@@ -513,6 +523,6 @@
 !HistoryManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/HistMgr.st,v 1.26 1996-04-27 18:06:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/HistMgr.st,v 1.27 1996-04-30 09:10:15 cg Exp $'
 ! !
 HistoryManager initialize!
--- a/HistoryManager.st	Sat Apr 27 20:10:23 1996 +0200
+++ b/HistoryManager.st	Tue Apr 30 11:10:15 1996 +0200
@@ -239,6 +239,8 @@
 
     | pos sourceCode previousHistories |
 
+    someString isNil ifTrue:[^ someString].
+
     previousHistories := self getAllHistoriesFrom:someString.
 
     "extract source body."
@@ -251,8 +253,16 @@
 
     ^ sourceCode
 
+    "
+     HistoryManager withoutHistoryLines:nil  
+     HistoryManager withoutHistoryLines:''  
+     HistoryManager 
+        withoutHistoryLines:(HistoryManager class 
+                                compiledMethodAt:#withoutHistoryLines:) source
+    "
+
     "Created: 5.3.1996 / 15:11:12 / cg"
-    "Modified: 6.3.1996 / 11:52:21 / cg"
+    "Modified: 30.4.1996 / 10:57:35 / cg"
 ! !
 
 !HistoryManager methodsFor:'accessing'!
@@ -513,6 +523,6 @@
 !HistoryManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.26 1996-04-27 18:06:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.27 1996-04-30 09:10:15 cg Exp $'
 ! !
 HistoryManager initialize!
hg/stx-libbasic3