#!./mwish -f
# $Id: tbf,v 1.2 1993/06/08 06:17:47 david Exp $

require FileBrowserClass

option add *Listbox.relief	sunken
option add *Entry.relief	sunken
option add *Text.relief		sunken
option add *Scrollbar.relief	sunken

option add *Listbox.exportSelection	false
option add *Entry.exportSelection	false
option add *Radiobutton.anchor		w

wm minsize . 1 1
wm withdraw .

set DONE ""
set OK ""
set fb1 [FileBrowserClass create \
		{-top .fb} \
		{-dir "/tmp"} \
		{-OKvar OK} \
		{-DONEvar DONE} \
	]

-export DONE
-export OK

tkwait variable DONE
puts stdout $OK
destroy .

