[GRASS-SVN] r45509 - grass/branches/develbranch_6/lib/init

[svn_grass at osgeo.org]

Author: marisn
Date: 2011-03-01 09:26:48 -0800 (Tue, 01 Mar 2011)
New Revision: 45509

Modified:
   grass/branches/develbranch_6/lib/init/gis_set.tcl
Log:
Make tcl/tk startup screen more robust to GISRC problems

Modified: grass/branches/develbranch_6/lib/init/gis_set.tcl
===================================================================
--- grass/branches/develbranch_6/lib/init/gis_set.tcl	2011-03-01 13:13:25 UTC (rev 45508)
+++ grass/branches/develbranch_6/lib/init/gis_set.tcl	2011-03-01 17:26:48 UTC (rev 45509)
@@ -930,5 +930,12 @@
 
 if { [searchGISRC $gisrc_name] } {
    gisSetWindow
+} else {
+    # Something has gone terribly wrong
+    # GISRC file is missing or corrupted
+    DialogGen .wrnDlg [G_msg "ERROR: unable to read GISRC"] warning \
+          [format [G_msg "Something went wrong while processing GISRC file named \"%s\".\nIt's a fatal error. GRASS will not start till issue with GISRC file is fixed."] $env(GISRC) ]\
+          0 OK;
+    exit 2
 }