Posted to tcl by patthoyts at Fri May 04 10:34:05 GMT 2007view raw

  1. package require Tk 8.5
  2.  
  3. ttk::style layout RightRadiobutton {
  4. Radiobutton.padding -sticky nswe -children {
  5. Radiobutton.indicator -side left -sticky {}
  6. Radiobutton.label -sticky nswe
  7. }
  8. }
  9.  
  10. ttk::style configure RightRadiobutton -anchor e
  11.  
  12. ttk::radiobutton .b0 -text 100.00 -style RightRadiobutton
  13. ttk::radiobutton .b1 -text 3.22 -style RightRadiobutton
  14.  
  15. grid .b0 -sticky news
  16. grid .b1 -sticky news
  17. grid columnconfigure . 0 -weight 1
  18.  
  19. tkwait window .
  20. exit