[GRASS-SVN] r32876 - grass/trunk/vector/v.digit

[svn_grass at osgeo.org]

Author: glynn
Date: 2008-08-19 04:08:28 -0400 (Tue, 19 Aug 2008)
New Revision: 32876

Modified:
   grass/trunk/vector/v.digit/settings.tcl
Log:
Update canvas background to match background colour


Modified: grass/trunk/vector/v.digit/settings.tcl
===================================================================
--- grass/trunk/vector/v.digit/settings.tcl	2008-08-19 06:34:50 UTC (rev 32875)
+++ grass/trunk/vector/v.digit/settings.tcl	2008-08-19 08:08:28 UTC (rev 32876)
@@ -13,6 +13,7 @@
 proc set_color { col color } {
     set clr [ color2rgb $color] 
     c_set_color $col [lindex $clr 0]  [lindex $clr 1]  [lindex $clr 2]
+    if {$col == "background"} {.screen.canvas configure -background $color}
 }
 
 proc set_on { code on } {