[GRASS-SVN] r36529 - grass/branches/develbranch_6/gui/tcltk/gis.m

[svn_grass at osgeo.org]

Author: marisn
Date: 2009-03-30 08:20:23 -0400 (Mon, 30 Mar 2009)
New Revision: 36529

Modified:
   grass/branches/develbranch_6/gui/tcltk/gis.m/vector.tcl
Log:
gis.m fix vector symbol look on Linux. Fixing broken commit r36398

Modified: grass/branches/develbranch_6/gui/tcltk/gis.m/vector.tcl
===================================================================
--- grass/branches/develbranch_6/gui/tcltk/gis.m/vector.tcl	2009-03-30 10:49:20 UTC (rev 36528)
+++ grass/branches/develbranch_6/gui/tcltk/gis.m/vector.tcl	2009-03-30 12:20:23 UTC (rev 36529)
@@ -10,12 +10,12 @@
 ##########################################################################
 
 namespace eval GmVector {
-    variable array opt # vector current options
+    variable array opt ;# vector current options
     variable count 1
-    variable array lfile # vector
-    variable array lfilemask # vector
+    variable array lfile ;# vector
+    variable array lfilemask ;# vector
     variable optlist
-    variable array dup # vector
+    variable array dup ;# vector
 }
 
 ###############################################################################
@@ -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
@@ -74,7 +74,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 }
 
@@ -88,8 +88,8 @@
     if { $opt($id,1,type_point) || $opt($id,1,type_centroid) } {
 	set lwidth  $opt($id,1,lwidth)
 	if { $lwidth == 0 } { set lwidth 1 }
-        $leg create line $x1 $yc $x2 $yc -fill $opt($id,1,color) -width $lwidth
-	$leg create line $xc $y1 $xc $y2 -fill $opt($id,1,color) -width $lwidth
+        $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
     }