[xiph-commits] r17238 - trunk/mgm/lib

[xiphmont at svn.xiph.org]

Author: xiphmont
Date: 2010-05-21 22:06:39 -0700 (Fri, 21 May 2010)
New Revision: 17238

Modified:
   trunk/mgm/lib/widget
Log:
Work around a Tk off-by-one bug that causes horizontal bars to never go all the way to zero




Modified: trunk/mgm/lib/widget
===================================================================
--- trunk/mgm/lib/widget	2010-05-22 03:20:49 UTC (rev 17237)
+++ trunk/mgm/lib/widget	2010-05-22 05:06:39 UTC (rev 17238)
@@ -225,9 +225,19 @@
 	    configure('-height'=>($bar->{"barlength"}-
 				  $per+$bar->{"cfborder"}));
     }else{
+        # handle another one-off bug in Tk
 	my $border=$bar->{"cfborder"};
-	$bar->{'above'}->
-	    configure('-width'=>($per-2*$bar->{"cfborder"}));
+        if($per-2*$border > 0){
+            $bar->{'above'}->
+                place('-x'=>0);
+            $bar->{'above'}->
+                configure('-width'=>($per-2*$border));
+        }else{
+            $bar->{'above'}->
+                configure('-width'=>(0));
+            $bar->{'above'}->
+                place('-x'=>-1);
+        }
     }
 }