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

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

Author: douglask
Date: Mon Jan  7 12:32:06 2008
New Revision: 4117

Modified:
   vic/branches/mpeg4/tcl/accessgrid.tcl

Log:
Corrected following syntax error
(note: not expossed by tcl2cpp which ignores comments)

missing close-brace: possible unbalanced brace in comment
    while executing
"proc ag_autoplace_apply {active} {
    global ag_slot_allocated ag_src_window
    global win_list
    global presenters_started
    global ag_autoplac..."


Modified: vic/branches/mpeg4/tcl/accessgrid.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/accessgrid.tcl	(original)
+++ vic/branches/mpeg4/tcl/accessgrid.tcl	Mon Jan  7 12:32:06 2008
@@ -367,7 +367,6 @@
 
     set sorted [lsort -dictionary -index 0 $src_name_list]
 	
-#    foreach src [array names presenters_started] {
     foreach item $sorted {
 	set src [lindex $item 1]
 	set name [lindex $item 0]