Version 6 of tclxosd

Updated 2009-02-05 09:49:40 by kdl
What: tclxosd
Where: http://sourceforge.net/projects/tclxosd/
       http://www.ignavus.net/software.html
Description: Tcl bindings for libxosd (On Screen Display)
Updated: 12/2008
Contact: See in tclxosd package

AMG: I like the configure script. ;^) It starts out as a shell script then transforms into a Tcl script. Here's an excerpt:

#!/bin/sh
# \
TCL_NAME=tclsh;\
FIND_PATH=`echo -n $PATH | sed 's|:| |g' | tail -n 1`; \
TCL_SHELL=`find $FIND_PATH -name $TCL_NAME -ignore_readdir_race`
#\
echo -n "checking for tclsh... "
# ... *snip* ...\
# give control to tclsh\
exec tclsh "$0" "$@"
puts -nonewline "cheking for libdl... "

kdl: This is my first extension for tcl, so not be very strict. Configure script liked me too :), but it is not versatile, I think. Any suggestions are wellcome. I have a question about interface - in version 0.1 of tclxosd we has:

set osd [xosd::create]
xosd::display $osd 0 XOSD_string {text to display}

Would it better to make "osd-command", as in image ?:

xosd::create osd1
$osd1 set_align XOSD_left
$osd1 display 0 XOSD_string {text to display}