[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