[Sumover-dev] [svn commit] r3818 - vic/trunk/tcl

[sumover-dev at cs.ucl.ac.uk]

Author: ucacsva
Date: Thu Sep  7 18:43:58 2006
New Revision: 3818

Modified:
   vic/trunk/tcl/ui-titlemaker.tcl

Log:
Fixed text widget update bugs for overlay X, Y, filename.

Modified: vic/trunk/tcl/ui-titlemaker.tcl
==============================================================================
--- vic/trunk/tcl/ui-titlemaker.tcl	(original)
+++ vic/trunk/tcl/ui-titlemaker.tcl	Thu Sep  7 18:43:58 2006
@@ -186,7 +186,6 @@
 	global xcoord ycoord logoButtonState id
 	
 	if { $xval != ""} {
-		$w configure -text "$xval"
 	    set xcoord $xval
 	    if $logoButtonState {
 			position_graphic $id $xcoord $ycoord 0
@@ -200,7 +199,6 @@
 	global xcoord ycoord logoButtonState id
 	
 	if { $yval != ""} {
-		$w configure -text "$yval"
 	    set ycoord $yval
 	    if $logoButtonState {
 			position_graphic $id $xcoord $ycoord 0
@@ -215,7 +213,8 @@
 	global selectedFile
 
 	if { $fname != ""} {
-		$w configure -text "$fname"
+		$w delete 0 end
+		$w insert 0 $fname
 		set selectedFile $fname
 		return 0
 	}