--- 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 $'
! !