[prev in list] [next in list] [prev in thread] [next in thread] 

List:       grass-commit
Subject:    [GRASS-SVN] r36536 -
From:       svn_grass () osgeo ! org
Date:       2009-03-30 16:44:43
Message-ID: 20090330164443.75AB7E0122B () lists ! osgeo ! org
[Download RAW message or body]

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) \

_______________________________________________
grass-commit mailing list
grass-commit@lists.osgeo.org
http://lists.osgeo.org/mailman/listinfo/grass-commit
[prev in list] [next in list] [prev in thread] [next in thread]