--- a/DialogBox.st	Wed Feb 22 04:41:31 1995 +0100
+++ b/DialogBox.st	Mon Feb 27 11:41:57 1995 +0100
@@ -25,7 +25,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.2 1995-02-22 01:20:34 claus Exp $
+$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.3 1995-02-27 10:38:18 claus Exp $
 "
 !
 
@@ -90,12 +90,14 @@
     "user pressed ok-button; make myself invisible and if an action was
      specified do it"
 
+    okButton turnOffWithoutRedraw.
     self hideAndEvaluate:okAction
 !
 
 abortPressed
     "user pressed abort button - hide myself and evaluate okAction"
 
+    abortButton turnOffWithoutRedraw.
     self hideAndEvaluate:abortAction
 !
 
@@ -179,10 +181,7 @@
 	buttonPanel layout:#fitSpace.
     ].
     okButton := Button okButtonIn:buttonPanel.
-    okButton action:[
-		       okButton turnOffWithoutRedraw.
-		       self okPressed 
-		    ].
+    okButton model:self; change:#okPressed.
     okButton isReturnButton:acceptReturnAsOK.
 !
 
@@ -194,10 +193,7 @@
 	buttonPanel layout:#fitSpace.
     ].
     abortButton := Button abortButtonIn:buttonPanel.
-    abortButton action:[
-			   abortButton turnOffWithoutRedraw.
-			   self abortPressed
-		       ].
+    abortButton model:self; change:#abortPressed.
 !
 
 reAdjustGeometry