Posted to tcl by patthoyts at Fri May 04 10:39:23 GMT 2007view raw

  1. package require Tk 8.5
  2.  
  3. ttk::style theme settings default {
  4. ttk::style layout RightRadiobutton {
  5. Radiobutton.padding -sticky nswe -children {
  6. Radiobutton.indicator -side left -sticky {}
  7. Radiobutton.focus -side right -sticky {} -children {
  8. Radiobutton.label -sticky nswe
  9. }
  10. }
  11. }
  12.  
  13. ttk::style configure RightRadiobutton -anchor e
  14. }
  15.  
  16.  
  17. ttk::radiobutton .b0 -variable rb -value 0 -text 100.00 -style RightRadiobutton
  18. ttk::radiobutton .b1 -variable rb -value 1 -text 3.22 -style RightRadiobutton
  19.  
  20. grid .b0 -sticky news
  21. grid .b1 -sticky news
  22. grid columnconfigure . 0 -weight 1
  23.  
  24. bind . <Control-F2> {console show}
  25. tkwait window .
  26. exit