From owner-freebsd-multimedia  Mon May 26 06:40:12 1997
Return-Path: <owner-multimedia>
Received: (from root@localhost)
          by hub.freebsd.org (8.8.5/8.8.5) id GAA17867
          for multimedia-outgoing; Mon, 26 May 1997 06:40:12 -0700 (PDT)
Received: from prova.iet.unipi.it (prova.iet.unipi.it [131.114.9.236])
          by hub.freebsd.org (8.8.5/8.8.5) with ESMTP id GAA17841
          for <multimedia@freebsd.org>; Mon, 26 May 1997 06:40:03 -0700 (PDT)
Received: (from root@localhost)
	by prova.iet.unipi.it (8.8.5/8.8.5) id PAA00407;
	Mon, 26 May 1997 15:44:09 +0200 (CEST)
Date: Mon, 26 May 1997 15:44:09 +0200 (CEST)
From: Luigi Rizzo <luigi@iet.unipi.it>
Message-Id: <199705261344.PAA00407@prova.iet.unipi.it>
To: multimedia@freebsd.org, van@ee.lbl.gov
Subject: some vic-2.8 patches to support PAL
Sender: owner-multimedia@freebsd.org
X-Loop: FreeBSD.org
Precedence: bulk

Hi,

vic 2.8 does not allow one to set the input signal type (NTSC/PAL/SECAM)
from the control panel, although  support is almost there. The attached
patch works for me with the grabber-meteor driver when used with PAL input.

Perhaps a similar thing could go into vic-2.8.1 if it is not already there.

	Cheers
	Luigi

--- ui-ctrlmenu.tcl.orig	Thu Jun 27 03:27:48 1996
+++ ui-ctrlmenu.tcl	Tue May  6 20:07:12 1997
@@ -564,7 +564,7 @@
 proc select_device device {
 	global transmitButton sizeButtons portButton formatButtons \
 		videoFormat defaultFormat lastDevice defaultPort inputPort \
-		transmitButtonState
+		transmitButtonState typeButton
 
 	#
 	# Remember settings of various controls for previous device
@@ -607,6 +607,11 @@
 	} else {
 		$portButton configure -state disabled
 	}
+	if [device_supports $device type *] {
+		$typeButton configure -state normal
+	} else {
+		$typeButton configure -state disabled
+	}
 
 	insert_grabber_panel [$device nickname]
 
@@ -757,9 +762,9 @@
 	menu $m
 	$m add radiobutton -label "auto" -command restart \
 		-value auto -variable inputType -font $f
-	$m add radiobutton -label "NTSC" -command restart \
+	$m add radiobutton -label "NTSC" -command "grabber type ntsc" \
 		-value ntsc -variable inputType -font $f
-	$m add radiobutton -label "PAL" -command restart \
+	$m add radiobutton -label "PAL" -command "grabber type pal" \
 		-value pal -variable inputType -font $f
 	$m add radiobutton -label "SECAM" -command restart \
 		-value secam -variable inputType -font $f
@@ -774,7 +779,8 @@
 	build.encoder_options $w.options
 	build.device $w.device
 	build.port $w.port
-	pack $w.device $w.port $w.options -fill x
+	build.type $w.type
+	pack $w.device $w.port $w.type $w.options -fill x
 }
 
 proc build.encoder_options w {
@@ -1172,6 +1178,9 @@
 	global inputPort inputType portButton typeButton
 	if { [$portButton cget -state] == "normal" } {
 		$grabber port $inputPort
+	}
+	if { [$typeButton cget -state] == "normal" } {
+		$grabber type $inputType
 	}
 	setFillRate
 	update