--- a/HistoryManager.st Wed Feb 05 18:52:25 2014 +0100
+++ b/HistoryManager.st Wed Feb 05 18:52:27 2014 +0100
@@ -369,7 +369,7 @@
!HistoryManager class methodsFor:'others'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.83 2012-07-31 12:31:47 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.84 2014-02-05 17:52:27 cg Exp $'
! !
!HistoryManager methodsFor:'accessing'!
@@ -597,7 +597,8 @@
newMethod compilerClass == Compiler ifFalse:[^ self].
oldMethod isNil ifTrue:[
- whatChange := #creation
+ whatChange := #creation.
+ newHistories := OrderedCollection new.
] ifFalse:[
whatChange := #modification.
@@ -680,6 +681,7 @@
].
"Created: / 30-06-2011 / 16:51:19 / cg"
+ "Modified: / 02-10-2012 / 13:22:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!HistoryManager methodsFor:'initialization'!
@@ -1020,7 +1022,7 @@
!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.83 2012-07-31 12:31:47 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.84 2014-02-05 17:52:27 cg Exp $'
! !
!HistoryManager::HistoryLine class methodsFor:'filtering'!
@@ -1082,7 +1084,7 @@
| anotherHistLine |
anotherHistLine := aCollectionOfHistoryLines at:index+1.
(anotherHistLine isKindOfModified and:[anotherHistLine user = histLine user])
- ifTrue:[skipNext := true]
+ ifTrue:[skipNext := (self timeIsShortFrom:histLine to:anotherHistLine)]
].
].
].
@@ -1097,6 +1099,7 @@
"Modified: / 20-06-2004 / 16:36:00 / masca"
"Modified: / 01-09-2004 / 20:20:42 / janfrog"
"Modified: / 05-07-2011 / 23:09:01 / cg"
+ "Modified: / 08-10-2012 / 14:59:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
modificationLimit
@@ -1715,8 +1718,9 @@
!HistoryManager class methodsFor:'documentation'!
version_SVN
- ^ '§Id: HistoryManager.st 1911 2012-04-03 17:14:36Z vranyj1 §'
+ ^ '$Id: HistoryManager.st,v 1.84 2014-02-05 17:52:27 cg Exp $'
! !
+
HistoryManager initialize!
HistoryManager::HistoryLine initialize!