halt
authorClaus Gittinger <cg@exept.de>
Tue, 05 Jul 2011 23:26:06 +0200
changeset 2405 0fda41fe9c89
parent 2404 9cfb670a7b72
child 2406 cf06c39b234c
halt
HistoryManager.st
--- 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!