Posted to tcl by jeremy_c at Thu Sep 13 18:29:49 GMT 2007view raw
- proc create_type_combo {name current} {
- ttk::menubutton $name -width 15
- set tm [menu $name.menu]
- $tm add command -label "All" -command { $name configure -text "All" }
- $tm add command -label "Procedure" -command { $name configure -text "Procedure" }
- $tm add command -label "JCode" -command { $name configure -text "JCode" }
- $tm add command -label "Formulary" -command { $name configure -text "Formulary" }
- $name configure -menu $tm
- }