From c684b3ed0711098cdce5c2ad651f79d6631b0ba4 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 12 Dec 2009 13:11:12 +0000
Subject: [PATCH] panner: mouse motion debug only if debug>=2

---
 yarrg/panner.tcl | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/yarrg/panner.tcl b/yarrg/panner.tcl
index cc3819a..7c598fe 100644
--- a/yarrg/panner.tcl
+++ b/yarrg/panner.tcl
@@ -7,8 +7,8 @@ proc pannerproc {name argl body} {
 $body
 "
 }
-pannerproc _debug {m} {
-    if {!$d(debug)} return
+pannerproc _debug {m {minlevel 1}} {
+    if {$d(debug) < $minlevel} return
     puts "PANNER $w $m"
 }
 
@@ -82,6 +82,8 @@ pannerproc updatecanvas-bbox {} {
 
 pannerproc updatecanvas {} {
     set d(bbox) [$d(canvas) cget -scrollregion]
+    if {[llength $d(bbox)] < 4} { set d(enabled) 0; _noshow $w; return }
+    
     manyset $d(bbox) x1 y1 x2 y2
     set d(cwidth) [expr {$x2-$x1}]
     set d(cheight) [expr {$y2-$y1}]
@@ -147,12 +149,12 @@ pannerproc _resize {why} {
 pannerproc _mapc {view which} {
     set viewpos [lindex [$d(canvas) $view] $which]
     set r [expr {$viewpos * $d(mul_$view) + $d(add_$view)}]
-    _debug $w "  _mapc $view wh=$which viewpos=$viewpos => $r"
+    _debug $w "  _mapc $view wh=$which viewpos=$viewpos => $r" 2
     return $r
 }
 
 pannerproc _redisplay {} {
-    _debug $w "_redisplay"
+    _debug $w "_redisplay" 2
     $w coords core \
 	[_mapc $w xview 0] \
 	[_mapc $w yview 0] \
@@ -179,7 +181,7 @@ pannerproc _motion {x y} {
 	$d(canvas) ${xy}view moveto $newpos
 	lappend dl $newpos
     }
-    _debug $w "_motion $x,$y [join $dl ,]"
+    _debug $w "_motion $x,$y [join $dl ,]" 2
     _redisplay $w
 }
 
-- 
2.30.2