Artifact
7971505bb3e9dc8c4bddcbb93817b7734fb1f134aa8941fdd2d605d70a819b01:
Attachment "test.tcl" to
ticket [1fba28d3]
added by
joshua.kraemer
2018-04-02 17:00:49.
(unpublished)
package require Tk
pack [label .label -text "Scaling factor: [tk scaling]"]
pack [labelframe .default_frame -text {Default widgets}]
pack [button .default_frame.button -text {Button}]
pack [checkbutton .default_frame.checkbutton -text {Check button}]
.default_frame.checkbutton invoke
pack [menubutton .default_frame.menubutton -text {Menu button} -indicatoron true]
pack [scrollbar .default_frame.scrollbar -orient horizontal] -fill x
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
