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

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

Author: ucacsva
Date: Thu Sep  7 12:03:38 2006
New Revision: 3813

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

Log:
- Added overlay image parameters to vic resources.
- Keep last visited directory in overlay's OpenFile dialog


Modified: vic/trunk/tcl/ui-resource.tcl
==============================================================================
--- vic/trunk/tcl/ui-resource.tcl	(original)
+++ vic/trunk/tcl/ui-resource.tcl	Thu Sep  7 12:03:38 2006
@@ -211,6 +211,11 @@
 	# Lip sync option
 	option add Vic.lipSync false startupFile
 
+	# Overlay image
+	option add Vic.overlayFilename "" startupFile
+	option add Vic.overlayX "0" startupFile
+	option add Vic.overlayY "0" startupFile
+
 # Init fonts
 
 	init_fonts

Modified: vic/trunk/tcl/ui-titlemaker.tcl
==============================================================================
--- vic/trunk/tcl/ui-titlemaker.tcl	(original)
+++ vic/trunk/tcl/ui-titlemaker.tcl	Thu Sep  7 12:03:38 2006
@@ -34,10 +34,17 @@
 proc build.titlemaker w {
 
 	global selectedFile xcoord ycoord id transparency
-	set selectedFile [pwd]
-	append selectedFile "/ucl_logo.ppm"
-	set xcoord 0
-	set ycoord 0		
+	set selectedFile [pwd]	
+	append selectedFile "/"
+	append selectedFile "ucl_logo.ppm"
+	
+	set resourceFile [resource overlayFilename]
+	if { $resourceFile != ""} {
+		set selectedFile $resourceFile
+	}
+
+	set xcoord [resource overlayX]
+	set ycoord [resource overlayY]
 	set transparency 255
 	set id logo1
 
@@ -131,9 +138,8 @@
 	    {{PPM Files} {.ppm} }
 	    {{All Files} *      }
 	}
-	set selectedFile [tk_getOpenFile -filetypes $types -initialdir [pwd]]
-	if {$selectedFile != ""} {
-	    
+	set selectedFile [tk_getOpenFile -filetypes $types]
+	if {$selectedFile != ""} {	    
 	    puts "Got file: $selectedFile"
 	}
 	# XXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX