summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjoye <joye>2014-06-20 17:52:27 (GMT)
committerjoye <joye>2014-06-20 17:52:27 (GMT)
commit8fcf4d700ddfdaa362006f717d3038912ecd0a59 (patch)
tree18aa76116a5f10622dd14f6c9864d3c6c1ad92cd
parent53f38470ce5ce69cdd1c706fe4848ce70bc089e7 (diff)
downloadblt-8fcf4d700ddfdaa362006f717d3038912ecd0a59.zip
blt-8fcf4d700ddfdaa362006f717d3038912ecd0a59.tar.gz
blt-8fcf4d700ddfdaa362006f717d3038912ecd0a59.tar.bz2
*** empty log message ***
-rw-r--r--library/graph.tcl13
1 files changed, 7 insertions, 6 deletions
diff --git a/library/graph.tcl b/library/graph.tcl
index 8a221b7..a4dfe8e 100644
--- a/library/graph.tcl
+++ b/library/graph.tcl
@@ -72,12 +72,13 @@ proc Blt_ResetCrosshairs { g state } {
proc Blt_ZoomStack { g args } {
array set params {
-mode click
+ -button "ButtonPress-3"
}
array set params $args
if { $params(-mode) == "click" } {
- blt::ZoomStack::ClickClick $g
+ blt::ZoomStack::ClickClick $g $params(-button)
} else {
- blt::ZoomStack::ClickRelease $g
+ blt::ZoomStack::ClickRelease $g $params(-button)
}
}
@@ -213,14 +214,14 @@ proc blt::ZoomStack::Init { g } {
set _private($g,corner) A
}
-proc blt::ZoomStack::ClickClick { g {start "ButtonPress-1"} {reset "ButtonPress-3"} } {
+proc blt::ZoomStack::ClickClick { g reset } {
variable _private
Init $g
bind zoom-$g <Enter> "focus %W"
bind zoom-$g <KeyPress-Escape> { blt::ZoomStack::Reset %W }
- bind zoom-$g <${start}> { blt::ZoomStack::SetPoint %W %x %y }
+ bind zoom-$g <ButtonPress-1> { blt::ZoomStack::SetPoint %W %x %y }
bind zoom-$g <${reset}> {
if { [%W inside %x %y] } {
blt::ZoomStack::Reset %W
@@ -229,7 +230,7 @@ proc blt::ZoomStack::ClickClick { g {start "ButtonPress-1"} {reset "ButtonPress-
blt::AddBindTag $g zoom-$g
}
-proc blt::ZoomStack::ClickRelease { g } {
+proc blt::ZoomStack::ClickRelease { g reset } {
variable _private
Init $g
@@ -238,7 +239,7 @@ proc blt::ZoomStack::ClickRelease { g } {
bind zoom-$g <ButtonPress-1> {blt::ZoomStack::DragStart %W %x %y}
bind zoom-$g <B1-Motion> {blt::ZoomStack::DragMotion %W %x %y}
bind zoom-$g <ButtonRelease-1> {blt::ZoomStack::DragFinish %W %x %y}
- bind zoom-$g <ButtonPress-3> {
+ bind zoom-$g <${reset}> {
if { [%W inside %x %y] } {
blt::ZoomStack::Reset %W
}