#!/bin/sh
# \
exec oagwish "$0" "$@"

#
# $Log: not supported by cvs2svn $
#

set auto_path [linsert $auto_path 0 /usr/local/oag/apps/lib/$env(HOST_ARCH)]
APSDebugPath
LTISetGlobals

set CVSRevisionAuthor "\$Revision: 1.1 $ \$Author: borland $"

APSApplication . -name tclProcTester -version $CVSRevisionAuthor 

set status ""
APSScrolledStatus .status -parent .userFrame -textVariable status -width 100 -withButtons 0 -height 20 \
    -packOption "-fill x"

APSLabeledEntry .command -parent .userFrame -label "Tcl command: " \
    -width 120  -textVariable userCommand
APSButton .run -parent .userFrame -text Run -command {set status [eval $userCommand]; update}
