#! /usr/local/bin/wish

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

set _program(name)    "StageHand"
set _program(version) 1.0
set _program(id)      "$_program(name) v$_program(version)"

wm title . $_program(id)

Require config.tcl
Require user.tcl

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

Require window.tcl
_user Window

Require keymap.tcl
Require cmd.tcl

Require $_program(name).tcl

_user Initialize

_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"}

_window(Clear)
focus .commands

_user Ready
