examples/test_fileselectbox.itk

   1 #!/tcl8.4/bin/wish8.4
   2
   3 source "boilerplate.tcl"
   4
   5 Form .form -schema {
   6         "Filename"      {filename fileselect}
   7 }
   8
   9 table . -pady 5 -padx 5 \
  10                 .form           1,1 -fill both
  11
  12