Workspace.st
changeset 4395 a862858a2165
parent 4391 c2344fec7ea4
child 4398 fa39aafcc0f3
--- a/Workspace.st	Wed Mar 07 14:35:45 2012 +0100
+++ b/Workspace.st	Wed Mar 07 17:53:22 2012 +0100
@@ -1972,11 +1972,16 @@
 !Workspace methodsFor:'queries'!
 
 isWorkspace
+    "back-query from the compiler to ask if this is an interactive view
+     (for error feedback)"
+
     ^ true
+
+    "Modified (comment): / 07-03-2012 / 17:52:59 / cg"
 ! !
 
 !Workspace class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.242 2012-03-04 12:55:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.243 2012-03-07 16:53:22 cg Exp $'
 ! !