--- 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 $'
! !