# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1234352322 -3600
# Node ID 625d247dec4bf55a34dda646be8be91e469b5265
# Parent  d10834aee6aa2a5b25b3e67b10adcc489c1e9126
changed #contents:

diff -r d10834aee6aa -r 625d247dec4b ExtendedComboBox.st
--- a/ExtendedComboBox.st	Thu Jan 29 10:11:18 2009 +0100
+++ b/ExtendedComboBox.st	Wed Feb 11 12:38:42 2009 +0100
@@ -395,7 +395,9 @@
 contents:aValue
     "set the value of the field (the models value)"
 
-    model value:aValue.
+    model notNil ifTrue:[
+        model value:aValue.
+    ]
 !
 
 menuExtent
@@ -1508,5 +1510,5 @@
 !ExtendedComboBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.57 2008-10-26 20:09:06 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.58 2009-02-11 11:38:42 cg Exp $'
 ! !