--- a/HistoryManager.st Tue Oct 18 18:26:22 2005 +0200
+++ b/HistoryManager.st Tue Nov 01 12:47:11 2005 +0100
@@ -873,7 +873,7 @@
!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.58 2005-01-21 17:19:44 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.59 2005-11-01 11:47:11 stefan Exp $'
! !
!HistoryManager::HistoryLine class methodsFor:'filtering'!
@@ -901,10 +901,10 @@
aCollectionOfHistoryLines do: [:anotherHistLine |
(anotherHistLine isCreated and: [anotherHistLine user = histLine user])
ifTrue: [
- ((AbsoluteTime
+ ((Timestamp
fromDate: histLine date
andTime: histLine time) -
- (AbsoluteTime
+ (Timestamp
fromDate: anotherHistLine date
andTime: anotherHistLine time)) < self modificationLimit
ifTrue: [skip := true]
@@ -1484,7 +1484,7 @@
!HistoryManager class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.58 2005-01-21 17:19:44 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.59 2005-11-01 11:47:11 stefan Exp $'
! !
HistoryManager initialize!