OSDN Git Service

2002-06-07 Martin M. Hunt <hunt@redhat.com>
authorhunt <hunt>
Fri, 7 Jun 2002 09:03:35 +0000 (09:03 +0000)
committerhunt <hunt>
Fri, 7 Jun 2002 09:03:35 +0000 (09:03 +0000)
* library/combobox.tcl (::combobox::configure): Don't
force background to white.

libgui/library/combobox.tcl

index 9811569..acc1cdb 100644 (file)
@@ -920,12 +920,8 @@ proc ::combobox::configure {w action {option ""} {newValue ""}} {
                if {$newValue} {
                    # it's editable...
                    $widgets(entry) configure -state normal
-                   $widgets(entry) configure -bg white
                } else {
-                   global tcl_platform
-
                    $widgets(entry) configure -state disabled
-                   $widgets(entry) configure -bg white
                }
            }