[GRASS-SVN] r56745 - grass/branches/develbranch_6/scripts/d.rast.edit

[svn_grass at osgeo.org]

Author: hamish
Date: 2013-06-16 23:35:32 -0700 (Sun, 16 Jun 2013)
New Revision: 56745

Modified:
   grass/branches/develbranch_6/scripts/d.rast.edit/d.rast.edit.tcl
Log:
don't require the aspect map on wingrass (#86)

Modified: grass/branches/develbranch_6/scripts/d.rast.edit/d.rast.edit.tcl
===================================================================
--- grass/branches/develbranch_6/scripts/d.rast.edit/d.rast.edit.tcl	2013-06-17 06:03:44 UTC (rev 56744)
+++ grass/branches/develbranch_6/scripts/d.rast.edit/d.rast.edit.tcl	2013-06-17 06:35:32 UTC (rev 56745)
@@ -12,7 +12,11 @@
 
 set outmap $env(GIS_OPT_OUTPUT)
 set inmap $env(GIS_OPT_INPUT)
-set aspect $env(GIS_OPT_ASPECT)
+if {[info exists env(GIS_OPT_ASPECT)]} {
+    set aspect $env(GIS_OPT_ASPECT)
+} else {
+    set aspect ""
+}
 set width $env(GIS_OPT_WIDTH)
 set height $env(GIS_OPT_HEIGHT)
 set size $env(GIS_OPT_SIZE)