diff options
| author | csaba <csaba> | 2022-12-14 16:20:44 (GMT) |
|---|---|---|
| committer | csaba <csaba> | 2022-12-14 16:20:44 (GMT) |
| commit | 6376e6ec464042772405c5a2f814f94a96513597 (patch) | |
| tree | 32fc067973f57b944676651ebd590b24747d641a /library/megawidget.tcl | |
| parent | 2c5f1eb07b0278d52c315f5bb82c2288005163b2 (diff) | |
| download | tk-6376e6ec464042772405c5a2f814f94a96513597.zip tk-6376e6ec464042772405c5a2f814f94a96513597.tar.gz tk-6376e6ec464042772405c5a2f814f94a96513597.tar.bz2 | |
Scaling-related changes in the Tk and Ttk library scripts ready for testing. No changes (yet) in the demo scripts.
Diffstat (limited to 'library/megawidget.tcl')
| -rw-r--r-- | library/megawidget.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/megawidget.tcl b/library/megawidget.tcl index ff7b2ce..47bdbf7 100644 --- a/library/megawidget.tcl +++ b/library/megawidget.tcl @@ -284,7 +284,8 @@ package require tk method CreateHull {} { ttk::frame $w set hull [ttk::entry $w.cHull -takefocus 0 -cursor $options(-cursor)] - pack $hull -expand yes -fill both -ipadx 2 -ipady 2 + set ipad [::tk::ScaleNum 2] + pack $hull -expand yes -fill both -ipadx $ipad -ipady $ipad my TraceOption -cursor UpdateCursorOption } } |