diff options
| author | fvogel <fvogelnew1@free.fr> | 2019-11-02 14:28:16 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2019-11-02 14:28:16 (GMT) |
| commit | 5b8024c00ad7e34076fe6cfa5facb94dfebb6bcb (patch) | |
| tree | ee34dd594a64bae9640a5b738ebf954bbaecce41 /library/ttk/spinbox.tcl | |
| parent | 0e62c201c749c1c240f1c79f01ddbabf8a308d74 (diff) | |
| download | tk-5b8024c00ad7e34076fe6cfa5facb94dfebb6bcb.zip tk-5b8024c00ad7e34076fe6cfa5facb94dfebb6bcb.tar.gz tk-5b8024c00ad7e34076fe6cfa5facb94dfebb6bcb.tar.bz2 | |
Factorize common code into ttk::saveCursor
Diffstat (limited to 'library/ttk/spinbox.tcl')
| -rw-r--r-- | library/ttk/spinbox.tcl | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/library/ttk/spinbox.tcl b/library/ttk/spinbox.tcl index b6ed126..9728755 100644 --- a/library/ttk/spinbox.tcl +++ b/library/ttk/spinbox.tcl @@ -30,13 +30,7 @@ ttk::bindMouseWheel TSpinbox [list ttk::spinbox::MouseWheel %W] # proc ttk::spinbox::Motion {w x y} { variable State - if {![info exists State(userConfCursor)]} { - set State(userConfCursor) [$w cget -cursor] - } - # the user could have changed the configured cursor - if {[$w cget -cursor] ne [ttk::cursor text]} { - set State(userConfCursor) [$w cget -cursor] - } + ttk::saveCursor $w State(userConfCursor) [ttk::cursor text] if { [$w identify $x $y] eq "textarea" && [$w instate {!readonly !disabled}] } { |