--- a/HistoryManager.st Tue Jul 31 12:53:41 2012 +0100
+++ b/HistoryManager.st Tue Jul 31 15:00:47 2012 +0100
@@ -812,6 +812,11 @@
].
"add the actual user's historyLine."
+
+ "JV@2012-04-03: Add previous histories if we are updating
+ existing method (avoids having bogus entries when taking
+ existing method as template and then accepting with a different
+ selector and/or in a different class"
what == #creation ifTrue:[
histLines := OrderedCollection new.
] ifFalse:[
@@ -838,6 +843,7 @@
"Modified: / 30-06-2011 / 17:07:18 / cg"
"Modified: / 03-04-2012 / 16:35:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (comment): / 31-07-2012 / 13:31:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
addHistory:what with:arg toHistoryMethodOf:aClass
@@ -1008,7 +1014,7 @@
!
version
- ^ '$Id: HistoryManager.st 1911 2012-04-03 17:14:36Z vranyj1 $'
+ ^ '$Id: HistoryManager.st 1946 2012-07-31 14:00:47Z vranyj1 $'
! !
!HistoryManager::HistoryLine class methodsFor:'filtering'!
@@ -1702,12 +1708,16 @@
!HistoryManager class methodsFor:'documentation'!
+version
+ ^ '$Id: HistoryManager.st 1946 2012-07-31 14:00:47Z vranyj1 $'
+!
+
version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.82 2011/12/04 14:45:34 cg Exp §'
+ ^ '§Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.83 2012-07-31 13:31:47 +0100 vrany Exp §'
!
version_SVN
- ^ '$Id: HistoryManager.st 1911 2012-04-03 17:14:36Z vranyj1 $'
+ ^ '$Id: HistoryManager.st 1946 2012-07-31 14:00:47Z vranyj1 $'
! !
HistoryManager initialize!