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

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

Author: piers
Date: Fri May 11 23:06:54 2007
New Revision: 4034

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

Log:
Tweaked info in vic menu to include VIC version - since it's not on main window


Modified: vic/branches/mpeg4/tcl/ui-ctrlmenu.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-ctrlmenu.tcl	(original)
+++ vic/branches/mpeg4/tcl/ui-ctrlmenu.tcl	Fri May 11 23:06:54 2007
@@ -187,6 +187,8 @@
 }
 
 proc build.session { w dst port srcid ttl name note } {
+	global V
+
 	set f [smallfont]
 
 	label $w.title -text Session
@@ -200,7 +202,7 @@
 		$w.nb.frame { top fillx }
 
 	label $w.nb.frame.info -font $f -anchor w \
-		-text "Dest: $dst   Port: $port  ID: $srcid  TTL: $ttl"
+		-text "Address: $dst   Port: $port  ID: $srcid  TTL: $ttl Tool: $V(app)-[version]"
 
 	frame $w.nb.frame.name
 	label $w.nb.frame.name.label -text "Name: " -font $f -anchor e -width 6