[GRASS-SVN] r30081 - grass/trunk/visualization/nviz/scripts

[svn_grass at osgeo.org]

Author: neteler
Date: 2008-02-11 07:39:30 -0500 (Mon, 11 Feb 2008)
New Revision: 30081

Modified:
   grass/trunk/visualization/nviz/scripts/panel_main.tcl
Log:
Maris Nartiss: reset twist if user presses 'reset' button

Modified: grass/trunk/visualization/nviz/scripts/panel_main.tcl
===================================================================
--- grass/trunk/visualization/nviz/scripts/panel_main.tcl	2008-02-11 12:33:40 UTC (rev 30080)
+++ grass/trunk/visualization/nviz/scripts/panel_main.tcl	2008-02-11 12:39:30 UTC (rev 30081)
@@ -249,7 +249,7 @@
 
 	# reset button goes here so it can reference P
 	Button $BASE.midf.lookat.reset -text "reset" \
-		-bd 1 -command "do_reset $XY $H $E $P" \
+		-bd 1 -command "do_reset $XY $H $E $P $T" \
 		-helptext "Reset view to default"
 
 	pack $BASE.midf.lookat.l $BASE.midf.lookat.here \
@@ -378,7 +378,7 @@
 
 # TODO - if started with view file, use these params for reset
 
-proc do_reset {XY H E P} {
+proc do_reset {XY H E P T} {
 	global Nv_
 	global Nauto_draw
 
@@ -397,6 +397,7 @@
 	Nv_floatscaleCallback $H b 2 update_height $val
 
 	Nv_scaleCallback $P b 0 Nchange_persp 40
+	Nv_scaleCallback $T b 0 Nchange_twist 0
 	if {$Nauto_draw == 1} {Ndraw_all}
 
 	appNotBusy