#!/usr/local/bin/wish
global env

set version		"VShow (Version 1.1 29mar96)"
option add "*font" "*-times-bold-r-normal--24*"


#########################################################################
#       MAIN PROGRAM
#########################################################################

set cmd [join $argv]

pack [ entry .val -relief sunken -width [string length $cmd] -textvariable cmd ] \
	-side top -fill x
pack [ frame .bb1 ] \
	-side left -expand true -fill x
pack [ button .bb1.ok -text "OK" -bd 2 -padx 10 -pady 10 \
	-command "wm withdraw . ; eval exec \[.val get\] ; exit" ] \
	-anchor center -padx 10 -pady 10
pack [ frame .bb2 ] \
	-side right -expand true -fill x
pack [ button .bb2.cancel -text "Cancel" -bd 2 -padx 10 -pady 10 \
	-command "exit" ] \
	-anchor center -padx 10 -pady 10

