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

[svn_grass at osgeo.org]

Author: cmbarton
Date: 2009-03-30 12:44:43 -0400 (Mon, 30 Mar 2009)
New Revision: 36536

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

Modified: grass/branches/releasebranch_6_4/gui/tcltk/gis.m/vector.tcl
===================================================================
--- grass/branches/releasebranch_6_4/gui/tcltk/gis.m/vector.tcl	2009-03-30 16:41:04 UTC (rev 36535)
+++ grass/branches/releasebranch_6_4/gui/tcltk/gis.m/vector.tcl	2009-03-30 16:44:43 UTC (rev 36536)
@@ -37,6 +37,7 @@
 
     # area    
     if { $opt($id,1,type_area) || $opt($id,1,type_face)} {
+		set lwidth  $opt($id,1,lwidth)
 		if { $lwidth == 0 } { set lwidth 1 }
 		if {$opt($id,1,_use_color) == 1} {
 			if {$opt($id,1,_use_fcolor) == 1} {		
@@ -56,6 +57,7 @@
     
     #line
     if { $opt($id,1,type_line) || $opt($id,1,type_boundary) } {
+		set lwidth  $opt($id,1,lwidth)
 		if { $lwidth == 0 } { set lwidth 1 }
 		if {$opt($id,1,_use_color) == 1} {
 			$leg create rectangle $x1 $y1 $x2 $y2 -outline $opt($id,1,color) \