diff options
| author | csaba <csaba> | 2023-05-30 19:23:28 (GMT) |
|---|---|---|
| committer | csaba <csaba> | 2023-05-30 19:23:28 (GMT) |
| commit | 9d349c258df6d68a65afdd4be3de4a93d14108ee (patch) | |
| tree | 877c2c598f1fba8bedf03705f02d6f1f0999d50c /library/demos/ixset | |
| parent | 139399dcaf356c809d47845125d8bf7494571faa (diff) | |
| download | tk-9d349c258df6d68a65afdd4be3de4a93d14108ee.zip tk-9d349c258df6d68a65afdd4be3de4a93d14108ee.tar.gz tk-9d349c258df6d68a65afdd4be3de4a93d14108ee.tar.bz2 | |
Made the Widget Demonstration application scaling-aware.
Diffstat (limited to 'library/demos/ixset')
| -rw-r--r-- | library/demos/ixset | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/library/demos/ixset b/library/demos/ixset index 85664d9..3457ed7 100644 --- a/library/demos/ixset +++ b/library/demos/ixset @@ -1,6 +1,6 @@ #!/bin/sh # the next line restarts using wish \ -exec wish "$0" ${1+"$@"} +exec wish8.7 "$0" ${1+"$@"} # ixset -- # A nice interface to "xset" to change X server settings @@ -193,7 +193,7 @@ proc createwindows {} { button .buttons.quit -default normal -command quit -text "Quit" pack .buttons.ok .buttons.apply .buttons.cancel .buttons.quit \ - -side left -expand yes -pady 5 + -side left -expand yes -pady 3p bind . <Return> {.buttons.ok flash; .buttons.ok invoke} bind . <Escape> {.buttons.quit flash; .buttons.quit invoke} @@ -221,14 +221,14 @@ proc createwindows {} { labelframe .bell -text "Bell Settings" -padx 1.5m -pady 1.5m scale .bell.vol \ - -from 0 -to 100 -length 200 -tickinterval 20 \ + -from 0 -to 100 -length 150p -tickinterval 20 \ -label "Volume (%)" -orient horizontal frame .bell.val labelentry .bell.val.pit "Pitch (Hz)" 6 {25 20000} labelentry .bell.val.dur "Duration (ms)" 6 {1 10000} - pack .bell.val.pit -side left -padx 5 - pack .bell.val.dur -side right -padx 5 + pack .bell.val.pit -side left -padx 3p + pack .bell.val.dur -side right -padx 3p pack .bell.vol .bell.val -side top -expand yes # @@ -243,12 +243,12 @@ proc createwindows {} { -onvalue "on" -offvalue "off" -variable kbdrep \ -relief flat scale .kbd.val.cli \ - -from 0 -to 100 -length 200 -tickinterval 20 \ + -from 0 -to 100 -length 150p -tickinterval 20 \ -label "Click Volume (%)" -orient horizontal pack .kbd.val.onoff -side left -fill x -expand yes -padx {0 1m} pack .kbd.val.cli -side left -expand yes -fill x -padx {1m 0} - pack .kbd.val -side top -expand yes -pady 2 -fill x + pack .kbd.val -side top -expand yes -pady 1.5p -fill x # # Mouse settings |