#18 initialize combobox with defult value

[Anonymous]

when i opened windows with combobox the entry is empty,
i will need to open it with defult value.
example for combobox : (please help)

#!/bin/sh
# the next line restarts using wish \ exec tixwish8.1.8.3.1 "$0" "$@"

#------------------------------------------
package require Iwidgets

# itkwish interprets the rest...
# ----------------------------------------------------------------------
# Doesn't handle focus all that well yet. Not totally bust though...

#wm title . "Combobox Example"

##
## supporting proc to dynamically
## change the second list
##
proc updateList1 {} {

global lst

set sel \[.cb1 get\]

return

}; # end proc updateList1

## Some lists to populate the
## comboboxes
##
set lst(1) [list Linux Windows]

##=========================================================
## Create several Combobox iwidgets
##=========================================================
##
## Non-editable Dropdown Combobox
iwidgets::combobox .cb1 \ -labeltext OS: \ -editable false \ -arrowrelief ridge \ -popupcursor hand2 \ -selectioncommand updateList1

##
## Add the first combox list
##
eval .cb1 insert list 0 $lst(1)

pack .cb1 \ -padx 10 \ -pady 10

#iwidgets::Labeledwidget::alignlabels .cb1 .cb2 .cb3