--- 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 $'
 ! !