Friday, March 18, 2011

Packing mplayer into a gnocl::socket container.

Ok, got the JukBox. What about some vids? Here's a quick experiment with mplayer. Worked ok.

#!./bin sh
#\
exec tclsh "$0" "$@"

package require Gnocl

set socket [gnocl::socket]

set box [gnocl::box -orientation vertical]
$box add $socket -fill {1 1} -expand 1
gnocl::window -title "mplayer" -child $box -setSize 0.25

gnocl::update

eval exec "mplayer -wid [format "0x%x" [$socket getID]] mdia0003.asf"

No comments: