#!/usr/bin/wish
#
# I don't stake any claim to this one either.
# This script is Public Domain.
#

wm title . "Input a filename and press ENTER"

#create widget named .l (label)
label .l -text "Filename:"

#create entry widget named .e
entry .e -relief sunken -width 30 -textvariable fname

#make a button to quit...
button .b -text "Quit" -command { exit }

#put widgets in a window
pack .l -side left
pack .e -side left -padx 1m -pady 1m
pack .b -side left -padx 1m

#when return pressed in entry widget, run xterm
bind .e <Return> {exec ../xb "$fname"}
