changed: #askUserForCompletion:for:at:from:
authorClaus Gittinger <cg@exept.de>
Fri, 08 Jul 2011 08:50:09 +0200
changeset 4054 f6bdf516b10b
parent 4053 dd0f1eb3e946
child 4055 4373923243d3
changed: #askUserForCompletion:for:at:from: keep the working stuff active, until the experimental stuff is finished.
DoWhatIMeanSupport.st
--- a/DoWhatIMeanSupport.st	Thu Jul 07 18:39:30 2011 +0200
+++ b/DoWhatIMeanSupport.st	Fri Jul 08 08:50:09 2011 +0200
@@ -161,6 +161,9 @@
 askUserForCompletion:what for:codeView at:position from:allTheBest 
     |list choice lastChoice|
 
+    "/ cg: until the new stuff works,...
+    ^ self old_askUserForCompletion:what for:codeView from:allTheBest.
+
     allTheBest isEmpty ifTrue:[
         ^ nil
     ].
@@ -171,9 +174,7 @@
     LastChoices notNil ifTrue:[
         lastChoice := LastChoices at:what ifAbsent:nil.
         lastChoice notNil ifTrue:[
-            list := 
-                    { lastChoice.
-                    nil } , (list copyWithout:lastChoice).
+            list := { lastChoice. nil } , (list copyWithout:lastChoice).
         ].
     ].
     choice := Tools::CodeCompletionMenu 
@@ -187,6 +188,7 @@
     ^ choice
 
     "Created: / 16-02-2010 / 10:09:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 08-07-2011 / 08:49:35 / cg"
 !
 
 askUserForCompletion:what for:codeView from:allTheBest
@@ -2170,5 +2172,5 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.82 2011-07-06 12:18:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.83 2011-07-08 06:50:09 cg Exp $'
 ! !