checkin from browser
authorClaus Gittinger <cg@exept.de>
Fri, 28 Feb 2003 11:31:23 +0100
changeset 4628 8c6fe703d40c
parent 4627 856a643c7854
child 4629 e8739857466c
checkin from browser
FilenameEditFieldV2.st
--- a/FilenameEditFieldV2.st	Thu Feb 27 18:15:06 2003 +0100
+++ b/FilenameEditFieldV2.st	Fri Feb 28 11:31:23 2003 +0100
@@ -156,10 +156,11 @@
 
     <resource: #keyboard ( #Tab #FilenameCompletion ) >
 
-    |oldContents newContents|
+    |oldContents newContents myEditor|
 
-    self editor enabled ifTrue:[
-        ((key == self editor entryCompletionCharacter)
+    myEditor := self editor.
+    myEditor enabled ifTrue:[
+        ((key == myEditor entryCompletionCharacter)
         or:[key == #FilenameCompletion]) ifTrue:[
             oldContents := self contents.
             oldContents isNil ifTrue:[
@@ -167,7 +168,7 @@
             ] ifFalse:[
                 oldContents := oldContents asString
             ].
-            self editor entryCompletionBlock value:oldContents.
+            myEditor entryCompletionBlock value:oldContents.
 
             newContents := self contents.
             newContents isNil ifTrue:[
@@ -182,10 +183,9 @@
                 ]
             ].
             ^ self
-        ] ifFalse:[
-            self list:nil.
-            pullDownButton turnOff.
-        ]
+        ].
+        self list:nil.
+        pullDownButton turnOff.
     ].
     ^ super keyPress:key x:x y:y.
 
@@ -309,5 +309,5 @@
 !FilenameEditFieldV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FilenameEditFieldV2.st,v 1.4 2003-02-07 09:47:14 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FilenameEditFieldV2.st,v 1.5 2003-02-28 10:31:23 cg Exp $'
 ! !