[GRASS-SVN] r48073 - grass/branches/releasebranch_6_4/visualization/nviz/scripts

[svn_grass at osgeo.org]

Author: marisn
Date: 2011-09-02 08:35:21 -0700 (Fri, 02 Sep 2011)
New Revision: 48073

Modified:
   grass/branches/releasebranch_6_4/visualization/nviz/scripts/nviz2.2_script
   grass/branches/releasebranch_6_4/visualization/nviz/scripts/panel_main.tcl
   grass/branches/releasebranch_6_4/visualization/nviz/scripts/widgets.tcl
Log:
Mark some skipped NVIZ strings for translation

Modified: grass/branches/releasebranch_6_4/visualization/nviz/scripts/nviz2.2_script
===================================================================
--- grass/branches/releasebranch_6_4/visualization/nviz/scripts/nviz2.2_script	2011-09-02 15:23:52 UTC (rev 48072)
+++ grass/branches/releasebranch_6_4/visualization/nviz/scripts/nviz2.2_script	2011-09-02 15:35:21 UTC (rev 48073)
@@ -641,8 +641,9 @@
 ############################################################################
 # procedure to make	 PANEL pulldown menu
 ###########################################################################
-proc Nv_mkPanelMenu { P { name "Visualize   " } } {
+proc Nv_mkPanelMenu { P } {
 	global Nv_ DEBUG
+	set name [G_msg "Visualize"]
 
 	menubutton $P -text $name -menu $P.m -underline 0
 	menu $P.m
@@ -674,8 +675,9 @@
 ############################################################################
 # procedure to make	 CONFIG pulldown menu
 ###########################################################################
-proc Nv_mkConfigMenu { P { name "Appearance" } } {
+proc Nv_mkConfigMenu { P } {
 	global Nv_ DEBUG
+	set name [G_msg "Appearance"]
 
 	menubutton $P -text $name -menu $P.m -underline 0
 	menu $P.m

Modified: grass/branches/releasebranch_6_4/visualization/nviz/scripts/panel_main.tcl
===================================================================
--- grass/branches/releasebranch_6_4/visualization/nviz/scripts/panel_main.tcl	2011-09-02 15:23:52 UTC (rev 48072)
+++ grass/branches/releasebranch_6_4/visualization/nviz/scripts/panel_main.tcl	2011-09-02 15:35:21 UTC (rev 48073)
@@ -243,8 +243,8 @@
 	frame $BASE.bframe -relief flat -bd 0
 	frame $BASE.bframe.cframe -relief flat -borderwidth 0
 
-	set P [Nv_mkScale $BASE.bframe.cframe.pers h perspective 120 3 40 Nchange_persp 0]
-	set T [Nv_mkScale $BASE.bframe.cframe.tw h twist -180 180 0 Nchange_twist 0]
+	set P [Nv_mkScale $BASE.bframe.cframe.pers h [G_msg "perspective"] 120 3 40 Nchange_persp 0]
+	set T [Nv_mkScale $BASE.bframe.cframe.tw h [G_msg "twist"] -180 180 0 Nchange_twist 0]
 
 	help $BASE.bframe.cframe.pers balloon [G_msg "Set field of view size (degrees)"]
 	help $BASE.bframe.cframe.tw balloon [G_msg "Set twist angle (degrees)"]
@@ -413,7 +413,7 @@
 	set exag [expr $val * 10]
 	set min 0
 
-	Nv_mkFloatScale $W.zexag v z-exag $exag $min $val update_exag 1
+	Nv_mkFloatScale $W.zexag v [G_msg "z-exag"] $exag $min $val update_exag 1
 
 	return $W.zexag
 }
@@ -429,7 +429,7 @@
 
 	# make sliders
 	set Nv_(HEIGHT_SLIDER) $W.height
-	Nv_mkFloatScale $Nv_(HEIGHT_SLIDER) v height $max $min $val update_height 1
+	Nv_mkFloatScale $Nv_(HEIGHT_SLIDER) v [G_msg "height"] $max $min $val update_height 1
 
 	return $Nv_(HEIGHT_SLIDER)
 }

Modified: grass/branches/releasebranch_6_4/visualization/nviz/scripts/widgets.tcl
===================================================================
--- grass/branches/releasebranch_6_4/visualization/nviz/scripts/widgets.tcl	2011-09-02 15:23:52 UTC (rev 48072)
+++ grass/branches/releasebranch_6_4/visualization/nviz/scripts/widgets.tcl	2011-09-02 15:35:21 UTC (rev 48073)
@@ -326,12 +326,12 @@
 	}
     
     # permits loading of 3D points without surface
-    if {$name == "height" && $curr == inf} {
+    if {$name == [G_msg "height"] && $curr == inf} {
         set from 10000
         set to 0
         set curr 5000
     }
-    if {$name == "z-exag" && $from == 0.0 && $to == 0.0 && $curr == 0.0 } {
+    if {$name == [G_msg "z-exag"] && $from == 0.0 && $to == 0.0 && $curr == 0.0 } {
         set from 10.0 
         set to 0.0 
         set curr 1.000000