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

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

Author: piers
Date: Fri May 11 23:07:57 2007
New Revision: 4035

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

Log:
Condensed layout somewhat and extended label to make it clear what the filename was actually for - ie supplying a PPM file for the overlay


Modified: vic/branches/mpeg4/tcl/ui-titlemaker.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-titlemaker.tcl	(original)
+++ vic/branches/mpeg4/tcl/ui-titlemaker.tcl	Fri May 11 23:07:57 2007
@@ -53,8 +53,6 @@
 
 	set f [smallfont]
 
-	#bind $w <1> "position_graphic girl \"%x\" \"%y\" \"1\""
-	#bind $w <3> "position_graphic boy \"%x\" \"%y\" \"0\""
 	#bind $w <q> "logo_quit"
 	#bind $w <Enter> "focus %W"	
 	#bind $w <Enter> "focus $w"
@@ -63,14 +61,14 @@
 	
 	###################### Filename ##############################
 	frame $w.b.file 
-	label $w.b.file.label -text "Overlay Control" -font $f -anchor w -width 15
+	label $w.b.file.label -text "Overlay Image file:" -font $f -anchor w
 	mk.entry $w.b.file tm.update.filename $selectedFile
-	$w.b.file.entry configure -width 57
+	$w.b.file.entry configure -width 39
 	button $w.b.file.selectfile \
 		-relief raised -command "logo_fileselect $w.b.file.entry" \
 		-font $f -highlightthickness 0 \
 		-image $icons(file_open)
-	pack $w.b.file.label -side top -anchor w -fill x -expand 1
+	pack $w.b.file.label  -side left -anchor w -fill x -expand 1
 	pack $w.b.file.entry $w.b.file.selectfile -side left -padx 2 -anchor w -fill x -expand 1
 	pack $w.b.file -side top