[GRASS-SVN] r31033 - grass/branches/releasebranch_6_3/general/g.gui

[svn_grass at osgeo.org]

Author: neteler
Date: 2008-04-19 05:46:19 -0400 (Sat, 19 Apr 2008)
New Revision: 31033

Modified:
   grass/branches/releasebranch_6_3/general/g.gui/main.c
Log:
fix broken program (sync to trunk)

Modified: grass/branches/releasebranch_6_3/general/g.gui/main.c
===================================================================
--- grass/branches/releasebranch_6_3/general/g.gui/main.c	2008-04-18 22:53:41 UTC (rev 31032)
+++ grass/branches/releasebranch_6_3/general/g.gui/main.c	2008-04-19 09:46:19 UTC (rev 31033)
@@ -74,19 +74,21 @@
     }
 
     if (strcmp(type->answer, "oldtcltk") == 0) {
+	sprintf(progname, "%s/etc/dm/d.m.tcl", G_gisbase());
 	if (rc_file->answer) {
-	    G_spawn("d.m", "dmrc=%s", rc_file->answer, NULL);
+	    G_spawn(getenv("GRASS_WISH"), "d.m", progname, "-name", "d_m_tcl", rc_file->answer, NULL);
 	}
 	else {
-	    G_system("d.m");
+	    G_spawn(getenv("GRASS_WISH"), "d.m", progname, "-name", "d_m_tcl", NULL);
 	}
     }
     else if (strcmp(type->answer, "tcltk") == 0) {
+	sprintf(progname, "%s/etc/gm/gm.tcl", G_gisbase());
 	if (rc_file->answer) {
-	    G_spawn("gis.m", "dmrc=%s", rc_file->answer, NULL);
+	    G_spawn(getenv("GRASS_WISH"), "gis.m", progname, "-name", "gm_tcl", rc_file->answer, NULL);
 	}
 	else {
-	    G_system("gis.m");
+	    G_spawn(getenv("GRASS_WISH"), "gis.m", progname, "-name", "gm_tcl", NULL);
 	}
     }
     else if (strcmp(type->answer, "wxpython") == 0) {