FilenameEditFieldV2.st
changeset 6104 8159f0753b92
parent 5140 36c7da05d814
child 6128 14b9f89c457f
--- 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 $'
 ! !