# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1363269069 -3600
# Node ID 0087947b1b29881b4be22776291eeed36193a38a
# Parent  e6cf65890e7928af74c00b176579afeb02ace0fe
class: ComboView
changed: #enableStateChanged
only disable the comboButton for empty list
iff the model is a non-block.
For blocks, we do not know what will be returned the next
time...

diff -r e6cf65890e79 -r 0087947b1b29 ComboView.st
--- a/ComboView.st	Thu Mar 14 14:24:17 2013 +0100
+++ b/ComboView.st	Thu Mar 14 14:51:09 2013 +0100
@@ -478,7 +478,12 @@
     field perform:msg ifNotUnderstood:nil.
 
     list isEmptyOrNil ifTrue:[
-        msg := #disable
+        "/ may only do this, if the list is static or a valueModel. 
+        "/ If it is a block, we do not know what value will be returned the next
+        "/ time.
+        listHolder isBlock ifFalse:[
+            msg := #disable
+        ].
     ].
     pullDownButton perform:msg ifNotUnderstood:nil.
 
@@ -883,10 +888,10 @@
 !ComboView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.108 2013-03-10 17:03:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.109 2013-03-14 13:51:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.108 2013-03-10 17:03:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.109 2013-03-14 13:51:09 cg Exp $'
 ! !