--- a/CodeView.st	Sun Jan 16 05:03:30 1994 +0100
+++ b/CodeView.st	Mon Jan 17 10:30:00 1994 +0100
@@ -26,7 +26,7 @@
 to the menu, and defines two actions: acceptAction to be performed for accept
 and explainAction to be performed for explain.
 
-$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.6 1994-01-08 17:22:54 claus Exp $
+$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.7 1994-01-17 09:30:00 claus Exp $
 written winter-89 by claus
 '!
 
@@ -121,6 +121,12 @@
     acceptAction := aBlock
 !
 
+acceptAction
+    "return the action to be performed on accept (or nil)"
+
+    ^ acceptAction
+!
+
 explainAction:aBlock
     "set the action to be performed on explain"
 
@@ -152,9 +158,7 @@
 
     acceptAction notNil ifTrue:[
         codeStartPosition := 1.
-"
-        self cursor:Cursor wait.
-"
+
         abortBlock := [
             self cursor:Cursor normal.
             "redraw selection in normal color"
@@ -164,11 +168,10 @@
             ^ nil
         ].
         [
-            acceptAction value:(self contents)
+            Object abortSignal catch:[
+                acceptAction value:(self contents)
+            ]
         ] valueNowOrOnUnwindDo:[
-"
-            self cursor:Cursor normal.
-"
             self unselect.
             abortBlock := nil
         ]