Workspace.st
changeset 4669 e67632377ee5
parent 4656 8e48e4c556b6
child 4675 bd3425b7222f
--- a/Workspace.st	Fri Aug 16 16:52:43 2013 +0200
+++ b/Workspace.st	Thu Aug 22 15:55:26 2013 +0200
@@ -655,7 +655,7 @@
         Dialog aboutToOpenBoxNotificationSignal handle:[:ex |
             |box declareButton|
 
-            box := ex parameter.
+            box := ex box.
 
             SameForAllNotification isHandled ifTrue:[
                 box addCheckBoxAtBottom:'Same action for all' on:sameForAllHolder
@@ -664,7 +664,6 @@
             declareButton := box buttons at:2.
             declareButton pressAction:declareButton controller releaseAction.
             declareButton controller beTriggerOnDown.
-            ex proceed.
         ] do:[
             action := OptionBox 
                           request:aString
@@ -709,7 +708,6 @@
                     ex box addCheckBoxAtBottom:'Do not show this dialog again (reenable via Launchers Settings Dialog)' on:doNotShowAgainHolder.
                 ].
             ].
-            ex proceed.
         ] do:[
             action := OptionBox 
                       request:aString
@@ -821,7 +819,6 @@
                                           model:doNotShowAgainForThisMethodHolder).
                     ].
                 ].
-                ex proceed.
             ] do:[
                 answer := OptionBox
                         request:aString 
@@ -979,7 +976,6 @@
                                 model:doNotShowAgainForThisMethodHolder).
                 ].
             ].
-            ex proceed.
         ] do:[
             action := OptionBox 
                       request:aString
@@ -2069,10 +2065,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.269 2013-07-13 20:49:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.270 2013-08-22 13:55:26 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.269 2013-07-13 20:49:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.270 2013-08-22 13:55:26 cg Exp $'
 ! !