#!/usr/local/bin/wish -f

# Init the TIX package
lappend auto_path ../library
tixInit -libdir ../library -scheme Gray -fontset 14Point -binding Motif

button .b -text "Open FileSelectBox" -command {
    if {![winfo exists .open]} {
	tixMkFileDialog .open okcmd
    } else {
	wm deiconify .open
    }
}

proc okcmd {filename} {
    puts "you have selected $filename"
}

pack .b -expand yes -fill both

