- will be replaced by Text class bindings
Signed-off-by: Cristian Stoica <cristi...@gmail.com>
---
tcl/file/finder.tcl | 2 --
tcl/game/browser.tcl | 4 ++--
tcl/misc/misc.tcl | 14 --------------
tcl/tools/analysis.tcl | 1 -
tcl/tools/optable.tcl | 1 -
tcl/tools/preport.tcl | 1 -
tcl/windows/crosstab.tcl | 7 -------
tcl/windows/eco.tcl | 1 -
tcl/windows/pfinder.tcl | 1 -
tcl/windows/pgn.tcl | 1 -
tcl/windows/tourney.tcl | 1 -
tcl/windows/tree.tcl | 1 -
12 files changed, 2 insertions(+), 33 deletions(-)
diff --git a/tcl/file/finder.tcl b/tcl/file/finder.tcl
index 03a009f..7693b91 100644
--- a/tcl/file/finder.tcl
+++ b/tcl/file/finder.tcl
@@ -1,4 +1,3 @@
-
####################
# File finder window
@@ -87,7 +86,6 @@ proc ::file::finder::Open {} {
lappend tablist $tabwidth $justify
}
$w.t.text configure -tabs $tablist
- bindMouseWheel $w $w.t.text
checkbutton $w.b.sub -text [tr FinderFileSubdirs] \
-variable ::file::finder::data(recurse) -onvalue 1 -offvalue 0 \
diff --git a/tcl/game/browser.tcl b/tcl/game/browser.tcl
index a0ae645..27d5d3d 100644
--- a/tcl/game/browser.tcl
+++ b/tcl/game/browser.tcl
@@ -72,8 +72,8 @@ proc ::gbrowser::new {base gnum {ply -1}} {
bind $w <plus> {set ::gbrowser::size [::board::resize2 %W.bd +1]}
bind $w <Control-Shift-Right> {set ::gbrowser::size [::board::resize2 %W.bd
+1]}
bind $w <Control-Button-5> {set ::gbrowser::size [::board::resize2 %W.bd +1]}
- bind $w <Button-4> "::gbrowser::update $n -1"
- bind $w <Button-5> "::gbrowser::update $n +1"
+ #bind $w <Button-4> "::gbrowser::update $n -1"
+ #bind $w <Button-5> "::gbrowser::update $n +1"
button $w.b.start -image tb_start -command "::gbrowser::update $n start"
button $w.b.back -image tb_prev -command "::gbrowser::update $n -1"
diff --git a/tcl/misc/misc.tcl b/tcl/misc/misc.tcl
index 5fbb4a1..18c14ab 100644
--- a/tcl/misc/misc.tcl
+++ b/tcl/misc/misc.tcl
@@ -64,20 +64,6 @@ proc ttk_bindMouseWheel {bindtag callback} {
}
}
-
-# bindMouseWheel:
-# Given a window and a text frame within that window, binds
-# the mouse wheel to scroll the text frame vertically.
-#
-proc bindMouseWheel {win text} {
- bind $win <MouseWheel> \
- "$text yview scroll \[expr -(%D / 120)\] units"
- if {! $::windowsOS} {
- bind $win <Button-4> [list $text yview scroll -1 units]
- bind $win <Button-5> [list $text yview scroll 1 units]
- }
-}
-
# dialogbuttonframe:
# Creates a frame that will be shown at the bottom of a
# dialog window. It takes two parameters: the frame widget
diff --git a/tcl/tools/analysis.tcl b/tcl/tools/analysis.tcl
index 44267bd..51b4b51 100644
--- a/tcl/tools/analysis.tcl
+++ b/tcl/tools/analysis.tcl
@@ -1876,7 +1876,6 @@ proc makeAnalysisWin { {n 1} {index -1} } {
bind $w <Escape> "focus .; destroy $w"
bind $w <Key-a> "$w.b1.bStartStop invoke"
wm minsize $w 25 0
- bindMouseWheel $w $w.hist.text
if {$analysis(uci$n)} {
fileevent $analysis(pipe$n) readable "::uci::processAnalysisInput $n"
diff --git a/tcl/tools/optable.tcl b/tcl/tools/optable.tcl
index 3b70939..22bb9c7 100644
--- a/tcl/tools/optable.tcl
+++ b/tcl/tools/optable.tcl
@@ -209,7 +209,6 @@ proc ::optable::makeReportWin {args} {
bind $w <Next> "$w.text yview scroll 1 pages"
bind $w <Key-Home> "$w.text yview moveto 0"
bind $w <Key-End> "$w.text yview moveto 0.99"
- bindMouseWheel $w $w.text
text $w.text -height 30 -width 85 -font font_Small -setgrid 1 \
-wrap word -bg white -foreground black -yscrollcommand "$w.ybar set" \
diff --git a/tcl/tools/preport.tcl b/tcl/tools/preport.tcl
index 26c3a3d..91743a5 100644
--- a/tcl/tools/preport.tcl
+++ b/tcl/tools/preport.tcl
@@ -249,7 +249,6 @@ proc ::preport::makeReportWin {args} {
bind $w <Next> "$w.text yview scroll 1 pages"
bind $w <Key-Home> "$w.text yview moveto 0"
bind $w <Key-End> "$w.text yview moveto 0.99"
- bindMouseWheel $w $w.text
autoscrollframe -bars y $w.scroll text $w.text \
-height 30 -width 85 -font font_Small -setgrid 1 -wrap word \
diff --git a/tcl/windows/crosstab.tcl b/tcl/windows/crosstab.tcl
index 41e9dda..e535d2b 100644
--- a/tcl/windows/crosstab.tcl
+++ b/tcl/windows/crosstab.tcl
@@ -297,13 +297,6 @@ proc ::crosstab::Open {} {
}
standardShortcuts $w
- # MouseWheel Bindings:
- bind $w <MouseWheel> { .crosstabWin.f.text yview scroll [expr {- (%D /
120)}] units}
- if {! $::windowsOS} {
- bind $w <Button-4> { .crosstabWin.f.text yview scroll -1 units }
- bind $w <Button-5> { .crosstabWin.f.text yview scroll 1 units }
- }
-
::createToplevelFinalize $w
::crosstab::Refresh
}
diff --git a/tcl/windows/eco.tcl b/tcl/windows/eco.tcl
index c04fd0e..e63aa59 100644
--- a/tcl/windows/eco.tcl
+++ b/tcl/windows/eco.tcl
@@ -82,7 +82,6 @@ proc ::windows::eco::Refresh {{code "x"}} {
bind $w <Prior> {.ecograph.pane.text.text yview scroll -1 pages}
bind $w <Next> {.ecograph.pane.text.text yview scroll 1 pages}
standardShortcuts $w
- bindMouseWheel $w $w.pane.text.text
bind $graph.c <1> { ::windows::eco::Select %x }
bind $graph.c <$::MB3> { ::windows::eco::KeyPress "<" }
diff --git a/tcl/windows/pfinder.tcl b/tcl/windows/pfinder.tcl
index cbb3768..565f98b 100644
--- a/tcl/windows/pfinder.tcl
+++ b/tcl/windows/pfinder.tcl
@@ -56,7 +56,6 @@ proc ::plist::Open {} {
bind $w <Next> "$w.t.text yview scroll 1 pages"
bind $w <Key-Home> "$w.t.text yview moveto 0"
bind $w <Key-End> "$w.t.text yview moveto 0.99"
- #bindMouseWheel $w $w.t.text
menu $w.menu
$w configure -menu $w.menu
diff --git a/tcl/windows/pgn.tcl b/tcl/windows/pgn.tcl
index 1aebd7b..e4e2d2c 100644
--- a/tcl/windows/pgn.tcl
+++ b/tcl/windows/pgn.tcl
@@ -198,7 +198,6 @@ namespace eval pgn {
}
}
standardShortcuts $w
- bindMouseWheel $w $w.text
# Add variation navigation bindings:
bind $w <KeyPress-v> [bind $::dot_w <KeyPress-v>]
diff --git a/tcl/windows/tourney.tcl b/tcl/windows/tourney.tcl
index 62c8c5d..6bb30fe 100644
--- a/tcl/windows/tourney.tcl
+++ b/tcl/windows/tourney.tcl
@@ -52,7 +52,6 @@ proc ::tourney::Open {} {
bind $w <Next> "$w.t.text yview scroll 1 pages"
bind $w <Key-Home> "$w.t.text yview moveto 0"
bind $w <Key-End> "$w.t.text yview moveto 0.99"
- bindMouseWheel $w $w.t.text
menu $w.menu
$w configure -menu $w.menu
diff --git a/tcl/windows/tree.tcl b/tcl/windows/tree.tcl
index 2753436..b8efc11 100644
--- a/tcl/windows/tree.tcl
+++ b/tcl/windows/tree.tcl
@@ -192,7 +192,6 @@ proc ::tree::make { { baseNumber -1 } {locked 0} } {
$w.f.tl tag configure redfg -foreground red
selection handle $w.f.tl "::tree::copyToSelection $baseNumber"
- bindMouseWheel $w $w.f.tl
bind $w <Configure> "recordWinSize $w"
--
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
