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

[svn_grass at osgeo.org]

Author: neteler
Date: 2009-01-23 18:09:59 -0500 (Fri, 23 Jan 2009)
New Revision: 35567

Modified:
   grass/branches/develbranch_6/lib/init/init.bat
Log:
jef/qgis team: added wxpython support (untested), http://trac.osgeo.org/osgeo4w/ticket/37

Modified: grass/branches/develbranch_6/lib/init/init.bat
===================================================================
--- grass/branches/develbranch_6/lib/init/init.bat	2009-01-23 22:46:01 UTC (rev 35566)
+++ grass/branches/develbranch_6/lib/init/init.bat	2009-01-23 23:09:59 UTC (rev 35567)
@@ -53,10 +53,11 @@
 :aftertextcheck
 
 if "%1" == "-tcltk" goto setguimode
+if "%1" == "-wxpython" goto setwxmode
 if "%1" == "-gui" goto setguimode
+
 :afterguicheck
 
-
 if exist "%WINGISRC%" goto aftercreategisrc
 
 rem Create an initial GISRC file based on current directory
@@ -80,16 +81,16 @@
 rem Set tcltk as default if not specified elsewhere
 if "%GRASS_GUI%"=="" set GRASS_GUI=tcltk
 
-
 "%WINGISBASE%\etc\clean_temp" > NUL:
 
 
 if "%GRASS_GUI%"=="text" goto text
+if "%GRASS_GUI%"=="wxpython" goto wxpython
 
 if not "%GRASS_WISH%"=="" (
-  "%GRASS_WISH%" "%WINGISBASE%\etc\gis_set.tcl"
+	"%GRASS_WISH%" "%WINGISBASE%\etc\gis_set.tcl"
 ) else (
-  "%WINGISBASE%\etc\gis_set.tcl"
+	"%WINGISBASE%\etc\gis_set.tcl"
 )
 
 rem This doesn't seem to work; don't understand return codes from gis_set.tcl PK
@@ -97,15 +98,25 @@
 if %errorlevel% == 2 goto exitinit
 
 if not "%GRASS_WISH%"=="" (
-  "%GRASS_WISH%" "%WINGISBASE%\etc\gm\gm.tcl"
+	"%GRASS_WISH%" "%WINGISBASE%\etc\gm\gm.tcl"
 ) else (
-  "%WINGISBASE%\etc\gm\gm.tcl"
+	"%WINGISBASE%\etc\gm\gm.tcl"
 )
 
 "%WINGISBASE%\etc\clean_temp" > NUL:
 
 goto exitinit
 
+:wxpython
+
+set PYTHONPATH=%PYTHONPATH%;%WINGISBASE%\etc\python;%WINGISBASE%\etc\wxpython
+
+python "%GISBASE%/etc/wxpython/gis_set.py"
+if %errorlevel% == 2 goto exitinit
+python "%GISBASE%/etc/wxpython/wxgui.py"
+
+goto exitinit
+
 :text
 
 "%WINGISBASE%\etc\set_data"
@@ -145,12 +156,17 @@
 goto aftertextcheck
 
 :setguimode
-
 set GRASS_GUI=tcltk
 shift
 
 goto afterguicheck
 
+:setwxmode
+set GRASS_GUI=wxpython
+shift
+
+goto afterguicheck
+
 :exitinit
 
 set PATH=%SAVEPATH%