#! /usr/local/bin/wish

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

set _program(name)    "StageStills"
set _program(version) 1.0
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 window.tcl
_user Window

Require error.tcl
Require message.tcl
Require image.tcl

Require $_program(name).tcl

_user Initialize

_image(GetSize)
bind all <Control-S><Control-S> \
  {Require shell.tcl; TclShell "$_program(id): Shell"}

_user Ready
