[GRASS-SVN] r37330 - grass/branches/releasebranch_6_4/gui/tcltk/gis.m

[svn_grass at osgeo.org]

Author: hamish
Date: 2009-05-21 10:30:15 -0400 (Thu, 21 May 2009)
New Revision: 37330

Modified:
   grass/branches/releasebranch_6_4/gui/tcltk/gis.m/vector.tcl
Log:
merge back from devbr6 max point symb size in layer tree legendy thing (cosmetic)

Modified: grass/branches/releasebranch_6_4/gui/tcltk/gis.m/vector.tcl
===================================================================
--- grass/branches/releasebranch_6_4/gui/tcltk/gis.m/vector.tcl	2009-05-21 14:09:29 UTC (rev 37329)
+++ grass/branches/releasebranch_6_4/gui/tcltk/gis.m/vector.tcl	2009-05-21 14:30:15 UTC (rev 37330)
@@ -25,7 +25,7 @@
    
     set lh $GmTree::legend_height
     set lw $GmTree::legend_width
-    set mar 0
+    set mar 2
     set leg $opt($id,1,_legend)
 
     $leg delete all
@@ -66,7 +66,7 @@
     }
 
     # point 
-    set maxpsize  [expr {$lw / 3 - 2} ]
+    set maxpsize  [expr {$lw / 2} ]
     set size $opt($id,1,size)
     if { $size > $maxpsize } { set size $maxpsize }
 
@@ -78,10 +78,10 @@
     set py2 [expr {$yc + $size / 2 } ]
 
     if { $opt($id,1,type_point) || $opt($id,1,type_centroid) } {
-        set lwidth  $opt($id,1,lwidth)
-        if { $lwidth == 0 } { set lwidth 1 }
+	set lwidth  $opt($id,1,lwidth)
+	if { $lwidth == 0 } { set lwidth 1 }
         $leg create line $px1 $yc $px2 $yc -fill $opt($id,1,color) -width $lwidth
-        $leg create line $xc $py1 $xc $py2 -fill $opt($id,1,color) -width $lwidth
+	$leg create line $xc $py1 $xc $py2 -fill $opt($id,1,color) -width $lwidth
     }