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

List:       grass-commit
Subject:    [GRASS-SVN] r36535 - grass/branches/develbranch_6/gui/tcltk/gis.m
From:       svn_grass () osgeo ! org
Date:       2009-03-30 16:41:04
Message-ID: 20090330164104.60C9DE006E7 () lists ! osgeo ! org
[Download RAW message or body]

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} {

_______________________________________________
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]