HistoryManager.st
changeset 2102 c8a7c7f580a8
parent 2095 71dae0da5f44
child 2103 61e20ffc4ddf
--- 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!