[Sumover-dev] [svn commit] r3775 - vic/trunk

sumover-dev at cs.ucl.ac.uk sumover-dev at cs.ucl.ac.uk
Thu Aug 3 16:01:46 BST 2006


Author: ucacsva
Date: Thu Aug  3 16:01:40 2006
New Revision: 3775

Modified:
   vic/trunk/title-maker   (contents, props changed)

Log:
Use quotation marks around all parameters passed to title-maker (tm) and confbus (cb) API calls.

Modified: vic/trunk/title-maker
==============================================================================
--- vic/trunk/title-maker	(original)
+++ vic/trunk/title-maker	Thu Aug  3 16:01:40 2006
@@ -13,25 +13,25 @@
 	set object_height($object) [$ppm height]
 	set object_yuv($object) $outfile
 	delete $ppm
-	$cb send "tm_create $object $outfile \
-		 $object_width($object) $object_height($object)"
+	$cb send "\"tm_create\" \"$object\" \"$outfile\" \
+		 \"$object_width($object)\" \"$object_height($object)\""
 }
 
-set channel 1
-set cb [new confbus $channel]
-$cb send tm_enable
-ppm_load name name.ppm /tmp/name
-ppm_load logo lbl-logo.ppm /tmp/logo
-$cb send "tm_transparent name 255"
-$cb send "tm_transparent logo 1"
-after 1000 "float_graphic name"
+set channel 1
+set cb [new confbus $channel]
+$cb send tm_enable
+ppm_load name name.ppm /tmp/name
+ppm_load logo lbl-logo.ppm /tmp/logo
+$cb send "tm_transparent name 255"
+$cb send "tm_transparent logo 1"
+after 1000 "float_graphic name"
 
 proc place_graphic { o x y depth } {
 	global object_x object_y object_depth cb
 	set object_x($o) $x
 	set object_y($o) $y
 	set object_depth($o) $depth
-	$cb send "tm_place $o $x $y $depth"
+	$cb send "\"tm_place\" \"$o\" \"$x\" \"$y\" \"$depth\""
 }
 	
 proc float_graphic o {
@@ -48,8 +48,8 @@
 
 frame .f -width 320 -height 240
 pack .f
-bind .f <1> "position_graphic name %x %y 1"
-bind .f <3> "position_graphic logo %x %y 0"
+bind .f <1> "position_graphic girl \"%x\" \"%y\" \"1\""
+bind .f <3> "position_graphic boy \"%x\" \"%y\" \"0\""
 
 proc position_graphic { o x y depth } {
 	global object_width object_height cb
@@ -71,6 +71,6 @@
 
 proc quit {} {
 	global cb
-	$cb send tm_disable
+	$cb send \"tm_disable\"
 	exit 0
 }



More information about the Sumover-dev mailing list