ExtendedComboBox.st
changeset 3282 3f94ea1cf64d
parent 3237 50336fd7fbbe
child 3285 1541e5cf4395
--- a/ExtendedComboBox.st	Wed Nov 28 13:13:34 2007 +0100
+++ b/ExtendedComboBox.st	Wed Nov 28 13:17:05 2007 +0100
@@ -914,8 +914,9 @@
 createEditField
     |nm|
 
-    menuField := EditField in:self.
-
+    menuField isNil ifTrue:[
+        menuField := EditField in:self.
+    ].
     menuField origin:0.0 @ 0.0 corner:1.0 @ 1.0.
 
     styleSheet is3D ifTrue:[
@@ -1498,5 +1499,5 @@
 !ExtendedComboBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.51 2007-07-18 13:48:10 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.52 2007-11-28 12:17:05 ca Exp $'
 ! !