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

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

Author: douglask
Date: Sun Mar  7 06:23:09 2010
New Revision: 4679

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

Log:
Handle "half", "original" and "double" resolutions when toggling a video thumbnail to show the video frame.

Modified: vic/branches/mpeg4/tcl/ui-windows.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-windows.tcl	(original)
+++ vic/branches/mpeg4/tcl/ui-windows.tcl	Sun Mar  7 06:23:09 2010
@@ -198,12 +198,20 @@
 		wm geometry $w +$userwin_x($src)+$userwin_y($src)
 		wm positionfrom $w user
 		set size$w $userwin_size($src)
-		set d [split $userwin_size($src) x]
-		create_video_widget $w.frame.video [lindex $d 0] [lindex $d 1]
+		if {$userwin_size($src) == "half"} {
+			create_video_widget $w.frame.video [expr $iw / 2] [expr $ih / 2]
+		} elseif {$userwin_size($src) == "original"} {
+			create_video_widget $w.frame.video $iw $ih
+		} elseif {$userwin_size($src) == "double"} {
+			create_video_widget $w.frame.video [expr $iw * 2] [expr $ih * 2]
+		} else {
+			set d [split $userwin_size($src) x]
+			create_video_widget $w.frame.video [lindex $d 0] [lindex $d 1]
+		}
 	} else {
-	   # show the video frame accroding to it's resolution
-	   create_video_widget $w.frame.video $iw $ih
-	   set size$w [format "%sx%s" $iw $ih]
+		# show the video frame according to it's resolution
+		create_video_widget $w.frame.video $iw $ih
+		set size$w [format "%sx%s" $iw $ih]
 	}
 	#elseif [isCIF [rtp_format $src]] {
 	#	create_video_widget $w.frame.video 352 288