class: Workspace
authorClaus Gittinger <cg@exept.de>
Mon, 09 Sep 2013 00:14:08 +0200
changeset 4756 324fb6c12d83
parent 4755 d47ae92cc09f
child 4757 408fa0d269bf
class: Workspace
Workspace.st
--- a/Workspace.st	Sun Sep 08 14:53:33 2013 +0200
+++ b/Workspace.st	Mon Sep 09 00:14:08 2013 +0200
@@ -2370,7 +2370,7 @@
                     context:nil 
                     codeView:editView 
                     into:[:listOfSuggestions :listOfActions :titleWhenAsking |
-(listOfSuggestions contains:[:l | l isEmptyOrNil]) ifTrue:[self halt].
+"/ (listOfSuggestions contains:[:l | l isEmptyOrNil]) ifTrue:[self halt].
                             suggestions := listOfSuggestions collect:[:entry | entry isArray ifTrue:[entry first] ifFalse:[entry]].
                             implementations := listOfSuggestions collect:[:entry | entry isArray ifTrue:[entry second] ifFalse:[nil]].                            
                             actions := listOfActions.
@@ -2557,10 +2557,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.299 2013-09-08 12:38:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.300 2013-09-08 22:14:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.299 2013-09-08 12:38:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.300 2013-09-08 22:14:08 cg Exp $'
 ! !