[Sumover-dev] [svn commit] r4010 - vic/branches/mpeg4/tcl

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

Author: piers
Date: Thu May  3 20:13:04 2007
New Revision: 4010

Modified:
   vic/branches/mpeg4/tcl/ui-titlemaker.tcl

Log:
Some fixes when file does not exist and to overlay a new file. If it is played with too much it can crash - need to check deeper. Normal use ok though.


Modified: vic/branches/mpeg4/tcl/ui-titlemaker.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-titlemaker.tcl	(original)
+++ vic/branches/mpeg4/tcl/ui-titlemaker.tcl	Thu May  3 20:13:04 2007
@@ -143,10 +143,10 @@
 		tm_enable
 	}
 
-	if $logoButtonState {
-		if ![tm_check $id ] {
-			ppm_load $id $selectedFile .\\ppmlogo1
-		}
+	if { $logoButtonState && [file exists $selectedFile] } {
+		ppm_load $id $selectedFile .\\ppmlogo1
+		#if ![tm_check $id ] {
+		#}
 		
 		#tm_transparent $id $transparency
 		#after 1000 "float_graphic $id"