--- a/Workspace.st	Fri Jun 07 12:00:27 2013 +0200
+++ b/Workspace.st	Fri Jun 14 16:28:54 2013 +0200
@@ -15,7 +15,7 @@
 	instanceVariableNames:'doItAction codeStartPosition errorFgColor errorBgColor
 		commentStrings autoDefineWorkspaceVariables simulatedSelf
 		autoDefineVariables compilerClass allowValueDrop
-		poolsConsideredInDoIts namespaceForDoits'
+		poolsConsideredInDoIts namespaceForDoits editedMethodOrClass'
 	classVariableNames:'DefaultViewBackground DefaultErrorForegroundColor
 		DefaultErrorBackgroundColor DefaultWarningBackgroundColor
 		DefaultWarningForegroundColor WorkspaceVariables DoItHistory
@@ -546,6 +546,18 @@
     "Modified: 27.2.1996 / 15:31:37 / cg"
 !
 
+editedMethodOrClass
+    "for the code completion"
+
+    ^ editedMethodOrClass.
+!
+
+editedMethodOrClass:aMethodOrClass
+    "for the code completion"
+
+    editedMethodOrClass := aMethodOrClass.
+!
+
 errorBackgroundColor
     errorBgColor notNil ifTrue:[ ^ errorBgColor ].
     DefaultErrorBackgroundColor notNil ifTrue:[ ^ DefaultErrorBackgroundColor ].
@@ -2024,10 +2036,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.263 2013-05-29 11:14:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.264 2013-06-14 14:28:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.263 2013-05-29 11:14:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.264 2013-06-14 14:28:54 cg Exp $'
 ! !