--- a/FilenameEditFieldV2.st Tue Oct 19 17:50:46 2004 +0200
+++ b/FilenameEditFieldV2.st Tue Oct 19 18:18:26 2004 +0200
@@ -237,7 +237,7 @@
pullMenu
"pull the menu - triggered from the button"
- |menu origin plug|
+ |menu origin plug acceptOnLostFocus|
completitionList notNil ifTrue:[
@@ -262,7 +262,11 @@
ifTrue:[menu windowGroup addPreEventHook:self].
menu removeDependent:plug]).
activeMenu := menu.
+ "prevent editfield from acceptOnLostFocus events so no accept happen while menue is open"
+ acceptOnLostFocus := field acceptOnLostFocus.
+ field acceptOnLostFocus:false.
menu showAt:origin.
+ field acceptOnLostFocus:acceptOnLostFocus.
activeMenu := nil.
pullDownButton turnOff.
! !
@@ -270,5 +274,5 @@
!FilenameEditFieldV2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FilenameEditFieldV2.st,v 1.8 2003-08-29 19:27:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FilenameEditFieldV2.st,v 1.9 2004-10-19 16:18:26 penk Exp $'
! !