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

[svn_grass at osgeo.org]

Author: marisn
Date: 2009-02-22 15:50:36 -0500 (Sun, 22 Feb 2009)
New Revision: 36056

Modified:
   grass/branches/develbranch_6/lib/init/gis_set.tcl
   grass/branches/develbranch_6/lib/init/init.bat
   grass/branches/develbranch_6/lib/init/init.sh
Log:
Use HOME as initial GISDBASE; Make new messages localisable

Modified: grass/branches/develbranch_6/lib/init/gis_set.tcl
===================================================================
--- grass/branches/develbranch_6/lib/init/gis_set.tcl	2009-02-22 20:25:10 UTC (rev 36055)
+++ grass/branches/develbranch_6/lib/init/gis_set.tcl	2009-02-22 20:50:36 UTC (rev 36056)
@@ -424,7 +424,7 @@
     		refresh_ms
     		selFromList .frame0.frameLOC.listbox $location
     		selFromList .frame0.frameMS.listbox $mapset
-    		.frame0.frameBUTTONS.ok configure -state normal}
+    		if { [CheckLocation] } { .frame0.frameBUTTONS.ok configure -state normal }}
 
     button .frame0.frameNMS.sixth.button \
     	-text [G_msg "EPSG codes"] \
@@ -437,7 +437,7 @@
     		refresh_ms
     		selFromList .frame0.frameLOC.listbox $location
     		selFromList .frame0.frameMS.listbox $mapset
-    		.frame0.frameBUTTONS.ok configure -state normal} }
+    		if { [CheckLocation] } { .frame0.frameBUTTONS.ok configure -state normal } } }
     	    			
     button .frame0.frameNMS.seventh.button \
     	-text [G_msg "Projection values"] \
@@ -556,11 +556,10 @@
     .frame0.frameDB.mid.entry xview moveto 1
     
     if { [string equal $location "<UNKNOWN>"] } {
-	DialogGen .wrnDlg "Starting GRASS for the first time" warning \
-	[concat "GRASS needs a directory in which to store its data. " \
-	"Create one now if you have not already done so. " \
-	"A popular choice is \"grassdata\", located " \
-	"in your home directory."] 0 OK
+	DialogGen .wrnDlg [G_msg "Starting GRASS for the first time"] warning \
+	[G_msg "GRASS needs a directory in which to store its data. \
+Create one now if you have not already done so. \
+A popular choice is \"grassdata\", located in your home directory."] 0 OK
 
 	set tmp [tk_chooseDirectory -initialdir $database \
 		-parent .frame0 -title [G_msg "Select GIS data directory"] -mustexist true]

Modified: grass/branches/develbranch_6/lib/init/init.bat
===================================================================
--- grass/branches/develbranch_6/lib/init/init.bat	2009-02-22 20:25:10 UTC (rev 36055)
+++ grass/branches/develbranch_6/lib/init/init.bat	2009-02-22 20:50:36 UTC (rev 36056)
@@ -62,7 +62,7 @@
 if exist "%WINGISRC%" goto aftercreategisrc
 
 rem Create an initial GISRC file based on current directory
-"%WINGISBASE%\etc\echo" "GISDBASE: %CD%" | g.dirseps -g > "%WINGISRC%"
+"%WINGISBASE%\etc\echo" "GISDBASE: %USERPROFILE%" | g.dirseps -g > "%WINGISRC%"
 "%WINGISBASE%\etc\echo" "LOCATION_NAME: <UNKNOWN>" >> "%WINGISRC%"
 "%WINGISBASE%\etc\echo" "MAPSET: <UNKNOWN>" >> "%WINGISRC%"
 	    

Modified: grass/branches/develbranch_6/lib/init/init.sh
===================================================================
--- grass/branches/develbranch_6/lib/init/init.sh	2009-02-22 20:25:10 UTC (rev 36055)
+++ grass/branches/develbranch_6/lib/init/init.sh	2009-02-22 20:50:36 UTC (rev 36056)
@@ -399,7 +399,7 @@
     read ans
 
     #for convenience, define pwd as GISDBASE:
-    echo "GISDBASE: $PWD" > "$GISRC"
+    echo "GISDBASE: $HOME" > "$GISRC"
     echo 'LOCATION_NAME: <UNKNOWN>' >> "$GISRC"
     echo 'MAPSET: <UNKNOWN>' >> "$GISRC"