--- a/Workspace.st	Tue Apr 15 16:30:53 2003 +0200
+++ b/Workspace.st	Mon Apr 21 16:37:03 2003 +0200
@@ -329,16 +329,6 @@
     ^ doItAction
 !
 
-doItAction:aOneArgBlock
-    "define the action to be performed when 'doIt' is selected.
-     The block will be evaluated, passing the selection as a String argument. 
-     A default doItAction is set for you in the initialize method."
-
-    doItAction := aOneArgBlock
-
-    "Modified: 27.2.1996 / 15:31:37 / cg"
-!
-
 selectAll
     super selectAll
 !
@@ -817,6 +807,26 @@
 
 !Workspace methodsFor:'initialize / release'!
 
+doItAction:aOneArgBlock
+    "define the action to be performed when 'doIt' is selected.
+     The block will be evaluated, passing the selection as a String argument. 
+     A default doItAction is set for you in the initialize method."
+
+    doItAction := aOneArgBlock
+
+    "Modified: 27.2.1996 / 15:31:37 / cg"
+!
+
+executeDoIt:theCode
+    ^ self compilerClass 
+        evaluate:theCode 
+        in:nil 
+        receiver:simulatedSelf 
+        notifying:self 
+        logged:true 
+        ifFail:nil 
+!
+
 initStyle
     "setup viewStyle specifics"
 
@@ -860,15 +870,7 @@
      This is done here in a separate method to allow easier
      redefinition in subclasses"
 
-    doItAction := [:theCode |
-        self compilerClass 
-            evaluate:theCode 
-            in:nil 
-            receiver:simulatedSelf 
-            notifying:self 
-            logged:true 
-            ifFail:nil 
-    ].
+    doItAction := [:theCode | self executeDoIt:theCode].
 ! !
 
 !Workspace methodsFor:'menu & menu actions'!
@@ -1169,5 +1171,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.127 2003-04-08 08:20:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.128 2003-04-21 14:37:03 cg Exp $'
 ! !