#! /usr/local/bin/wish

source [file dirname [file dirname [file dirname $argv0]]]/lib/require.tcl

set _program(name)    "StageDoor"
set _program(version) 2.0
set _program(id)      "$_program(name) v$_program(version)"

Require IO.tcl
Require message.tcl

wm withdraw .
_IO(StartHandler)

Require StageDoor.tcl

proc _StageManager(Start) {} {_IO(Run) StageManager}
proc _StageHand(Start) {} {_IO(Run) StageHand}
proc _BackStage(Start) {} {_IO(Run) BackStage -sync -timeout 60}
