--- a/HistoryManager.st Tue Jul 28 17:44:21 2009 +0200
+++ b/HistoryManager.st Fri Jul 31 10:36:17 2009 +0200
@@ -138,19 +138,6 @@
"Modified: 11.08.1995 / 17:01:29 / robert"
! !
-!HistoryManager class methodsFor:'AEG-Extensions'!
-
-getLastHistoryLineFrom:someString
- "returns the last HistoryLine, if no HistoryLine available, return nil"
-
- |hist|
- hist := self getAllHistoriesFrom: someString.
- hist isEmpty ifTrue: [ ^nil].
- ^hist last
-
- "Created: 19.1.1996 / 13:08:57 / werner"
-! !
-
!HistoryManager class methodsFor:'accessing'!
fullHistoryUpdate
@@ -332,6 +319,18 @@
"Modified: / 18-09-2006 / 20:48:19 / cg"
!
+getLastHistoryLineFrom:someString
+ "returns the last HistoryLine, if no HistoryLine available, return nil"
+
+ |hist|
+
+ hist := self getAllHistoriesFrom: someString.
+ hist isEmpty ifTrue: [ ^ nil].
+ ^ hist last
+
+ "Created: 19.1.1996 / 13:08:57 / werner"
+!
+
withoutHistoryLines:someString
"given some methods sourceString, return a copy without any
history lines"
@@ -909,7 +908,7 @@
!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.70 2009-06-02 12:52:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.71 2009-07-31 08:36:17 cg Exp $'
! !
!HistoryManager::HistoryLine class methodsFor:'filtering'!
@@ -1526,7 +1525,7 @@
!HistoryManager class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.70 2009-06-02 12:52:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.71 2009-07-31 08:36:17 cg Exp $'
! !
HistoryManager initialize!