[Sumover-dev] [svn commit] r4711 - vic/branches/cc/tcl

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

Author: soohyunc
Date: Mon Mar 22 19:09:25 2010
New Revision: 4711

Modified:
   vic/branches/cc/tcl/ui-grabber.tcl

Log:
-- added build.stilldev and build.decklink methods



Modified: vic/branches/cc/tcl/ui-grabber.tcl
==============================================================================
--- vic/branches/cc/tcl/ui-grabber.tcl	(original)
+++ vic/branches/cc/tcl/ui-grabber.tcl	Mon Mar 22 19:09:25 2010
@@ -190,6 +190,52 @@
     pack $w.f -expand 1 -fill x
 }
 
+proc build.decklink w {
+    global setSoftwareScale softwareScaleButtons
+
+    label $w.title -text "Blackmagic DeckLink-Grabber"
+    frame $w.f -relief sunken -borderwidth 2
+
+    label $w.f.scaling -text "Software Scaling : "
+
+    if {$::tk_version > 8.4 && [windowingsystem] != "x11"} {
+        ttk::radiobutton $w.f.b0 -text "none" -command "restart" \
+           -variable setSoftwareScale -value "none"
+        ttk::radiobutton $w.f.b1 -text "960p" -command "restart" \
+            -variable setSoftwareScale -value "960p"
+        ttk::radiobutton $w.f.b2 -text "720p" -command "restart" \
+            -variable setSoftwareScale -value "720p"
+        ttk::radiobutton $w.f.b3 -text "576p" -command "restart" \
+            -variable setSoftwareScale -value "576p"
+        ttk::radiobutton $w.f.b4 -text "480p" -command "restart" \
+            -variable setSoftwareScale -value "480p"
+    } else {
+        set f [smallfont]
+        radiobutton $w.f.b0 -text "none" -command "restart" \
+            -padx 0 -pady 0 \
+            -anchor w -variable setSoftwareScale -font $f -relief flat -value "none"
+        radiobutton $w.f.b1 -text "960p" -command "restart" \
+            -padx 0 -pady 0 \
+            -anchor w -variable setSoftwareScale -font $f -relief flat -value "960p"
+        radiobutton $w.f.b2 -text "720p" -command "restart" \
+            -padx 0 -pady 0 \
+            -anchor w -variable setSoftwareScale -font $f -relief flat -value "720p"
+        radiobutton $w.f.b3 -text "576p" -command "restart" \
+            -padx 0 -pady 0 \
+            -anchor w -variable setSoftwareScale -font $f -relief flat -value "576p"
+        radiobutton $w.f.b4 -text "480p" -command "restart" \
+            -padx 0 -pady 0 \
+            -anchor w -variable setSoftwareScale -font $f -relief flat -value "480p"
+    }
+    pack $w.f.scaling $w.f.b0 $w.f.b1 $w.f.b2 $w.f.b3 $w.f.b4 -fill x -side left
+
+    pack $w.title $w.f -fill x -expand 1
+
+    set setSoftwareScale "none"
+    set softwareScaleButtons $w.f
+    set_software_scale_buttons_state
+}
+
 proc build.meteor w {
 #
 # The meteor has the same controls as the slicvideo, so just call that
@@ -649,6 +695,21 @@
     pack $w.f.entry -side left -fill x -expand 1
 }
 
+proc build.stilldev w {
+    set f [smallfont]
+    label $w.title -text "FileGrabber"
+
+    frame $w.f -relief sunken -borderwidth 2
+    label $w.f.label  -font $f -anchor e -text "File"
+
+    mk.entry $w.f set.still.frame "frame"
+
+    pack $w.title $w.f -fill x -expand 1
+
+    pack $w.f.label -side left
+    pack $w.f.entry -side left -fill x -expand 1
+}
+
 proc set.still.frame {w s } {
     global lastDevice
     $lastDevice file $s