- the original tcl/tk procedure renders incorrect behavior if used
since it binds to MouseWheel on Windows platforms. The override is
necessary to maintain consistent and transparent mouse wheel handling
Signed-off-by: Cristian Stoica <cristi...@gmail.com>
---
tcl/misc/misc.tcl | 2 +-
tcl/windows/gamelist.tcl | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/tcl/misc/misc.tcl b/tcl/misc/misc.tcl
index 1149eed..239abf9 100644
--- a/tcl/misc/misc.tcl
+++ b/tcl/misc/misc.tcl
@@ -49,7 +49,7 @@ proc bindFocusColors {w {inColor lightYellow} {outColor
white}} {
# specifying the mousewheel direction (-1: up, +1: down).
#
-proc ttk_bindMouseWheel {bindtag callback} {
+proc ttk::bindMouseWheel {bindtag callback} {
switch -- [tk windowingsystem] {
x11 {
bind $bindtag <ButtonPress-4> "$callback -1"
diff --git a/tcl/windows/gamelist.tcl b/tcl/windows/gamelist.tcl
index 0beb19d..b786e04 100644
--- a/tcl/windows/gamelist.tcl
+++ b/tcl/windows/gamelist.tcl
@@ -378,7 +378,7 @@ proc glist.create {{w} {layout}} {
$w.glist configure -yscrollcommand "glist.yscroll_ $w.glist"
$w.ybar configure -command "glist.ybar_ $w.glist"
bind $w.ybar <ButtonRelease-1> "+glist.ybar_ $w.glist buttonrelease"
- ttk_bindMouseWheel $w.glist "glist.ybar_ $w.glist"
+ ttk::bindMouseWheel $w.glist "glist.ybar_ $w.glist"
# Find widget
ttk::frame $w.find
--
1.8.1.5
------------------------------------------------------------------------------
This SF.net email is sponsored by Windows:
Build for Windows Store.
http://p.sf.net/sfu/windows-dev2dev
_______________________________________________
Scid-users mailing list
Scid-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/scid-users
