Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Bug [2501278]: ttk::scale keyboard binding problem |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | core-8-5-branch |
Files: | files | file ages | folders |
SHA1: |
3fec32a981aa335f1c3628308c691c45 |
User & Date: | jan.nijtmans 2013-06-28 11:17:14 |
References
2013-06-28
| ||
11:22 | • Pending ticket [2501278f]: ttk::scale keyboard binding problem + patch plus 8 other changes artifact: 96b6171c user: jan.nijtmans | |
Context
2013-06-28
| ||
13:16 | Fix [3588364] (hopefully) check-in: ff392252 user: jan.nijtmans tags: core-8-5-branch | |
11:22 | Bug [2501278]: ttk::scale keyboard binding problem check-in: 57f9af77 user: jan.nijtmans tags: trunk | |
11:17 | Bug [2501278]: ttk::scale keyboard binding problem check-in: 3fec32a9 user: jan.nijtmans tags: core-8-5-branch | |
2013-06-27
| ||
19:01 | manually revert changes caused by different autoconf versions. check-in: 3dfb5d7c user: jan.nijtmans tags: core-8-5-branch | |
Changes
Changes to ChangeLog.
1 2 3 4 5 6 7 | 2012-06-07 Jan Nijtmans <[email protected]> * win/tkWinDialog.c: [Bug 1913750]: tk_chooseDirectory -initialdir internationalization problem. [Bug 3500545]: tk_getOpenFile -multiple 1 wrong on windows. [Bug 3416492]: Crash in open/save file dialog in Windows 7 libraries. [Bug 3095112]: crash when selecting file from Win7 Library. | > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 | 2012-06-28 Jan Nijtmans <[email protected]> * library/ttk/scale.tcl: [Bug 2501278]: ttk::scale keyboard binding problem. 2012-06-07 Jan Nijtmans <[email protected]> * win/tkWinDialog.c: [Bug 1913750]: tk_chooseDirectory -initialdir internationalization problem. [Bug 3500545]: tk_getOpenFile -multiple 1 wrong on windows. [Bug 3416492]: Crash in open/save file dialog in Windows 7 libraries. [Bug 3095112]: crash when selecting file from Win7 Library. |
︙ | ︙ |
Changes to library/ttk/scale.tcl.
︙ | ︙ | |||
35 36 37 38 39 40 41 | proc ttk::scale::Press {w x y} { variable State set State(dragging) 0 switch -glob -- [$w identify $x $y] { *track - *trough { | | | 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | proc ttk::scale::Press {w x y} { variable State set State(dragging) 0 switch -glob -- [$w identify $x $y] { *track - *trough { set inc [expr {([$w get $x $y] <= [$w get]) ^ ([$w cget -from] > [$w cget -to]) ? -1 : 1}] ttk::Repeatedly Increment $w $inc } *slider { set State(dragging) 1 set State(initial) [$w get] } } |
︙ | ︙ | |||
80 81 82 83 84 85 86 87 88 | variable State set State(dragging) 0 ttk::CancelRepeat } proc ttk::scale::Increment {w delta} { if {![winfo exists $w]} return $w set [expr {[$w get] + $delta}] } | > > > | 80 81 82 83 84 85 86 87 88 89 90 91 | variable State set State(dragging) 0 ttk::CancelRepeat } proc ttk::scale::Increment {w delta} { if {![winfo exists $w]} return if {([$w cget -from] > [$w cget -to])} { set delta [expr {-$delta}] } $w set [expr {[$w get] + $delta}] } |