[linux-dvb] tcl/tk - script as dvbtext-frontend

[Mike Neuhaus <Mike.Neuhaus@gmx.de>]

With this mail comes a script in tcl/tk. It use the dvbtext-0.1 and the
vtx.sh (...vtx2ascii) -commands from the xawtv-source.
please read the comments in the script for configuring.

>----------------------------------------------------------------------------------
#!/usr/bin/wish
label .label -text "TeleText for Siemens-DVB"
listbox .tids -yscrollcommand ".scroll set"

# you need a channels.conf from the vdr-source...with
# teletext-pids.Please replace the ":" -separators with " " (this 
# is easy with the search and repalace -function of many text-editors) 
# set up in the next line the path to this changed channels.conf

set datei [open /part2/vdr.d/vtxchannels.conf]
while {[gets $datei Zeile] >=0} {
	.tids insert  end $Zeile 
}
close $datei

# double click in the list selects and call the ascii - videotext - view in
a
# xterm window
bind .tids <Double-Button-1> {
	set vid [lindex [selection get]  7]

# please set up the path to dvbtext  
        set pipe1  [open "|/usr/bin/dvbtext $vid &" ]

# please set up the path to your first vtx-directory
        cd /part2/video/vtx/1

# please set up in this line the path to vtx.sh ...you will find it in the
# xawtv-source-distribution
# the specified font looks good at my 1024x768-screen
        set pipe2 [open "|/usr/X11R6/bin/xterm -fn
-misc-fixed-medium-r-normal-*-*-200-*-*-c-*-iso8859-1 -geometry 42x28 -bg
darkgreen -e vtx.sh" ]
}
scrollbar .scroll -command ".tids yview"

button .ende -text "Quit" -command {
	exec kill -9 [ pid $pipe1 ] 
	exec kill -9 [ pid $pipe2 ]
	exit
}

button .res -text "Reset" -command {

# kills the running dvbtext -task  
        exec kill -9 [ pid $pipe1 ]
	exec kill -9 [ pid $pipe2 ]
}

# view window and wait for events
pack .label -fill x

pack   .res .ende -side top  -fill x

pack .tids -side left

pack .scroll -side right -fill y
>-------------------------------------------------------------- 

have fun

Mike Neuhaus
--
for phone - user:call Mike.Neuhaus@gmx.de or add Mike.Neuhaus@gmx.de
please use phone...the open-source linux telephony program!
download and subscribe at http://www.linuxmotors.com/phone



--- 
Info:
To unsubscribe send a mail to listar@linuxtv.org with "unsubscribe linux-dvb" as subject.