[GRASS-SVN] r34021 - grass/branches/develbranch_6/lib/gis

[svn_grass at osgeo.org]

Author: marisn
Date: 2008-10-27 11:17:52 -0400 (Mon, 27 Oct 2008)
New Revision: 34021

Modified:
   grass/branches/develbranch_6/lib/gis/gui.tcl
Log:
Fix autogenerated modules UI issues with tabs Required and Output. Fixes glitches introduced by r31340

Modified: grass/branches/develbranch_6/lib/gis/gui.tcl
===================================================================
--- grass/branches/develbranch_6/lib/gis/gui.tcl	2008-10-27 13:53:49 UTC (rev 34020)
+++ grass/branches/develbranch_6/lib/gis/gui.tcl	2008-10-27 15:17:52 UTC (rev 34021)
@@ -346,7 +346,7 @@
 	global bgcolor
 
 	if {$guisection == {}} {set guisection {{}}}
-		
+
 	if {[llength $guisection] == 1} {
 		# A frame for a toplevel section
 		# This uses a scrolled frame in a notebook tab
@@ -356,10 +356,10 @@
 			set guisection {Options}
 		}
 		set path $opt($dlg,path)
-		if {$glabel == "Required"} {
-			set optpane [$path.nb insert 0 $guisection -text $glabel]
-		} else {
-			set optpane [$path.nb insert end $guisection -text $glabel]			
+		set optpane [$path.nb insert end $guisection -text $glabel]
+		# Word "required" in $glabel may be translated
+		if {$glabel == [G_msg "Required"]} {
+			$path.nb move $guisection 0
 		}
 		# Specials don't get scrolling frames:
 		if {$optn == -1} {
@@ -418,11 +418,7 @@
 		set guisection {Options}
 	}
 	
-	set firstpg [$path.nb pages 0]
 	$path.nb raise $guisection
-	
-	#Make the first tab the active one instead of the "options" tab
-	$path.nb raise $firstpg
 }
 
 proc layout_raise_special_frame {dlg guisection key} {
@@ -747,12 +743,18 @@
 	make_dialog_end $dlg $path $root
 	
 	if {$n > 0} {
-		layout_raise_frame $dlg $opt($dlg,1,guisection) 1
+		# Rise first page
+		$path.nb raise [$path.nb pages 0] 
 	}
 
 	update
 
 	show_cmd $dlg
+	
+	# Following commands will force redrawing of notebook
+	# It is required in case if pages where rearranged
+	$path.nb _realize
+	$path.nb _redraw
 }
 
 proc add_option {optn optlist} {