#! /usr/local/bin/wish

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

set _program(name)    "StageManager"
set _program(version) 2.5
set _program(id)      "$_program(name) v$_program(version)"

if ![info exists env(PWD)] {set env(PWD) [exec pwd]}

Require config.tcl
Require user.tcl

Require input.tcl
proc StageDoor {args} {eval _command(Print) $args}

Require pack.tcl
Require execute.tcl

Require window.tcl
_user Window

Require file.tcl
Require edit.tcl
Require movie.tcl
Require scene.tcl
Require image.tcl
Require tools.tcl
Require help.tcl

Require fparam.tcl
Require iparam.tcl
Require mparam.tcl
Require gparam.tcl

Require $_program(name).tcl

set _movie(default) [_pack(All)]
_data(MakeUntitled)

_user Initialize

_file(TrapExit)
_input(StartHandler)

bind all <Control-S><Control-S> \
  {Require shell.tcl; TclShell "$_program(id): Shell"}
bind all <Control-S><Control-D> {StageDoor Shell}
bind all <Control-S><Control-B> {_command(Send) BackStage "Shell"}
focus .script

_user Ready
