--- a/ChangesBrowser.st	Thu Aug 02 11:53:30 2001 +0200
+++ b/ChangesBrowser.st	Thu Aug 02 11:57:47 2001 +0200
@@ -209,7 +209,8 @@
                           form:(WarningBox iconBitmap)
                           buttonLabels:#('cancel' 'skip' " 'shut up' " 'continue')
                           values:#(#abort #skip " #shutUp " #continue)
-                          default:#continue.
+                          default:#continue
+                          onCancel:#abort.
         ].
 
 "/        action == #shutUp ifTrue:[
@@ -217,7 +218,7 @@
 "/            ^  false 
 "/        ].
 
-        action == #abort ifTrue:[
+        (action == #abort) ifTrue:[
             Object abortSignal raise.
             ^ false
         ].
@@ -2680,7 +2681,8 @@
                               form:(WarningBox iconBitmap)
                               buttonLabels:(resources array:#('cancel' 'don''t write' 'write'))
                               values:#(#abort #ignore #save)
-                              default:#save.
+                              default:#save
+                              onCancel:#abort.
 
             again := false.
             action == #abort ifTrue:[^ self].
@@ -3662,5 +3664,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.215 2001-08-02 09:17:52 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.216 2001-08-02 09:56:59 cg Exp $'
 ! !