ChangeSetBrowser.st
changeset 7784 bdec82e9bd11
parent 7701 15d8d442b2d0
child 8300 3738bc610a1b
--- a/ChangeSetBrowser.st	Wed Apr 04 18:27:28 2007 +0200
+++ b/ChangeSetBrowser.st	Wed Apr 04 19:02:24 2007 +0200
@@ -676,15 +676,8 @@
     aborted := false.
 
     applyAction := [
-        |sig|
-
-        (skipSignal notNil) ifTrue:[
-            sig := skipSignal
-        ] ifFalse:[
-            sig := AbortOperationRequest
-        ].
-        sig handle:[:ex |
-            aborted := (sig == AbortOperationRequest).
+        AbortOperationRequest handle:[:ex |
+            aborted := true.
         ] do:[
             Parser::ParseError handle:[:ex |       
                 ex signal == Parser::UndefinedSuperclassError ifTrue:[
@@ -1010,5 +1003,5 @@
 !ChangeSetBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.48 2007-03-05 15:28:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.49 2007-04-04 17:02:24 stefan Exp $'
 ! !