Posted to tcl by jeremy_c at Mon Feb 15 15:41:45 GMT 2010view raw

  1. package require Tk
  2.  
  3. ttk::checkbutton .cb1 -text "Hello World"
  4. ttk::labelframe .lf1 -labelwidget .cb1
  5. ttk::entry .lf1.e1
  6. pack .lf1.e1 -fill x
  7.  
  8. ttk::checkbutton .cb2 -text "Hello World"
  9. ttk::labelframe .lf2 -labelwidget .cb2
  10. ttk::entry .lf2.e2
  11. pack .lf2.e2 -fill x
  12.  
  13. ttk::button .b1 -text Bye1 -command exit
  14. ttk::button .b2 -text Bye2 -command exit
  15. ttk::button .b3 -text Bye3 -command exit
  16.  
  17. pack .lf1 .lf2 .b1 .b2 .b3 -fill x -expand yes
  18.  
  19. focus -force .b1