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

[svn_grass at osgeo.org]

Author: cmbarton
Date: 2009-03-30 12:41:04 -0400 (Mon, 30 Mar 2009)
New Revision: 36535

Modified:
   grass/branches/develbranch_6/gui/tcltk/gis.m/vector.tcl
Log:
Fixing appearance of vector icon in layer manager legend.

Modified: grass/branches/develbranch_6/gui/tcltk/gis.m/vector.tcl
===================================================================
--- grass/branches/develbranch_6/gui/tcltk/gis.m/vector.tcl	2009-03-30 16:38:30 UTC (rev 36534)
+++ grass/branches/develbranch_6/gui/tcltk/gis.m/vector.tcl	2009-03-30 16:41:04 UTC (rev 36535)
@@ -37,10 +37,6 @@
 
     # area    
     if { $opt($id,1,type_area) || $opt($id,1,type_face)} {
-		set x1 [expr $mar ]
-		set x2 [expr {$lw - $mar} ]
-		set y1 [expr $mar ]
-		set y2 [expr {$lh - $mar} ]
 		set lwidth  $opt($id,1,lwidth)
 		if { $lwidth == 0 } { set lwidth 1 }
 		if {$opt($id,1,_use_color) == 1} {
@@ -61,10 +57,6 @@
     
     #line
     if { $opt($id,1,type_line) || $opt($id,1,type_boundary) } {
-		set x1 [expr $mar ]
-		set x2 [expr {$lw - $mar} ]
-		set y1 [expr $mar ]
-		set y2 [expr {$lh - $mar} ]
 		set lwidth  $opt($id,1,lwidth)
 		if { $lwidth == 0 } { set lwidth 1 }
 		if {$opt($id,1,_use_color) == 1} {