Artifact
64efe7fa917c8dd8a97356f69eea86750ecea1fcca6f9daff43e03ad731dee37:
Attachment "hd.tcl" to
ticket [1fba28d3]
added by
bll
2018-04-02 18:16:42.
package require Tk
tk scaling [lindex $::argv 0]
font create f
font configure f -size 11
ttk::style configure TLabel -font f
ttk::style configure TButton -font f
ttk::style configure TLabelframe.Label -font f
ttk::style configure TCheckbutton -font f
ttk::style configure TMenubutton -font f
pack [ttk::label .label -text "Scaling factor: [tk scaling]"]
pack [ttk::labelframe .ttk_frame -text {Ttk widgets}]
pack [ttk::button .ttk_frame.button -text {Button}]
pack [ttk::checkbutton .ttk_frame.checkbutton -text {Check button}]
.ttk_frame.checkbutton invoke
pack [ttk::menubutton .ttk_frame.menubutton -text {Menu button}]
pack [scrollbar .ttk_frame.scrollbar -orient horizontal] -fill x
