Posted to tcl by jeremy_c at Mon Feb 15 15:51:42 GMT 2010view raw
- package require Tk
- ttk::labelframe .lf1
- ttk::checkbutton .lf1.cb1 -text "Hello World"
- ttk::entry .lf1.e1
- .lf1 configure -labelwidget .lf1.cb1
- pack .lf1.e1 -fill x
- ttk::labelframe .lf2
- ttk::checkbutton .lf2.cb2 -text "Hello World"
- ttk::entry .lf2.e2
- .lf2 configure -labelwidget .lf2.cb2
- pack .lf2.e2 -fill x
- ttk::button .b1 -text Bye1 -command exit
- ttk::button .b2 -text Bye2 -command exit
- ttk::button .b3 -text Bye3 -command exit
- pack .lf1 .lf2 .b1 .b2 .b3 -fill x -expand yes
- focus -force .b1