--- a/HistoryManager.st Tue Jul 05 21:31:45 2011 +0200
+++ b/HistoryManager.st Tue Jul 05 23:26:06 2011 +0200
@@ -993,7 +993,7 @@
!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.75 2011-07-05 19:31:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.76 2011-07-05 21:26:06 cg Exp $'
! !
!HistoryManager::HistoryLine class methodsFor:'filtering'!
@@ -1046,7 +1046,7 @@
(anotherHistLine isCreated
and:[(anotherHistLine what = histLine what)
and:[anotherHistLine user = histLine user]])
- ifTrue:[self halt. skip := true]
+ ifTrue:[skip := true]
].
skip ifFalse:[
"/ create followed by a modification, within the historyManagerModificationLimit:
@@ -1069,7 +1069,7 @@
"Modified: / 08-09-1995 / 17:20:40 / claus"
"Modified: / 20-06-2004 / 16:36:00 / masca"
"Modified: / 01-09-2004 / 20:20:42 / janfrog"
- "Modified: / 05-07-2011 / 21:19:19 / cg"
+ "Modified: / 05-07-2011 / 23:09:01 / cg"
!
modificationLimit
@@ -1683,7 +1683,7 @@
!HistoryManager class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.75 2011-07-05 19:31:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.76 2011-07-05 21:26:06 cg Exp $'
! !
HistoryManager initialize!