#!/usr/local/bin/movie_wish -f
#
#
# A simple demo using multiple instances of a movie widget
# utilising a 'mega widgit' type thing written in tcl
# which produces a movie widget with associated controls
# 
#
# Author : Ian Campbell,   Ian.Campbell@ncl.ac.uk
# CopyRight see COPYRIGHT

set PLAYER_LIBRARY ./playerLib
lappend auto_path $PLAYER_LIBRARY

#
# Set these to mpeg files on your system
#

set video1 "/home/wilf/work/mpegproject/movies/toaster.mpg"
set video2 "/home/wilf/work/mpegproject/movies/niomi.mpg"


frame .outer
button .quit -text "quit" -command "destroy ."

#
# Create frames to hold the widgets
#
frame .outer.a
frame .outer.b
#
# Options to pass to movie command
#
set optionsa "-file $video1 -dither ordered2"
set optionsb "-file $video2 -dither fs2 "

#
# Call the player procedure which takes two arguments
# the first being a frame to hold the widget
# the second the options passed to the movie command
#

player .outer.a $optionsa
player .outer.b $optionsb
#
# pack 'em all up
#

pack append .outer .outer.a {left expand fill} \
		   .outer.b {left expand fill}
pack append . .outer {top expand fill} .quit {top expand fillx}

