--- 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!