Source of select.tcl
form create car_opts element create car_opts extras \ -label "Car Accessories" -datatype text -widget multiselect \ -options { {{Power Windows} windows} {{Anti-Lock Brakes} brakes} {{AI Alarm System} alarm} {{Rocket Launcher} rocket} } element create car_opts payment \ -label "Payment Type" -datatype text -widget select \ -options {{Cash cash} {{ATM Card} atm} {{Credit Card} credit}} # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: