--- a/ComboBoxView.st	Tue Sep 09 13:26:22 2008 +0200
+++ b/ComboBoxView.st	Wed Sep 17 16:47:46 2008 +0200
@@ -297,7 +297,10 @@
     currentIndex := index.
 
     menuSelectAction value:what.
+
+    field modified:true.    "so that accept below sends the value"
     field accept.
+
     action notNil ifTrue:[
         action value:what
     ].
@@ -309,5 +312,5 @@
 !ComboBoxView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboBoxView.st,v 1.31 2008-07-22 13:38:33 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboBoxView.st,v 1.32 2008-09-17 14:47:46 stefan Exp $'
 ! !