Posted to tcl by patthoyts at Fri May 04 10:39:23 GMT 2007view pretty
package require Tk 8.5 ttk::style theme settings default { ttk::style layout RightRadiobutton { Radiobutton.padding -sticky nswe -children { Radiobutton.indicator -side left -sticky {} Radiobutton.focus -side right -sticky {} -children { Radiobutton.label -sticky nswe } } } ttk::style configure RightRadiobutton -anchor e } ttk::radiobutton .b0 -variable rb -value 0 -text 100.00 -style RightRadiobutton ttk::radiobutton .b1 -variable rb -value 1 -text 3.22 -style RightRadiobutton grid .b0 -sticky news grid .b1 -sticky news grid columnconfigure . 0 -weight 1 bind . <Control-F2> {console show} tkwait window . exit