# filebox.tcl --
#
# This demonstration script prompts the user to select a file.
#
# SCCS: @(#) filebox.tcl 1.2 96/08/27 15:03:26
catch {destroy $w}
toplevel $w
label $w.msg -font $font -wraplength 4i -justify left -text "Enter a file name in the entry box or click on the \"Browse\" buttons to select a file name using the file selection dialog."
}
}
# Type names Extension(s) Mac File Type(s)
#
#---------------------------------------------------------
set types {
{"Text files" {} TEXT}
{"Image Files" {.gif} }
{"All files" *}
}
} else {
}
if [string compare $file ""] {
}
}