set form_def {
  GuidoForm form {
    -label "GuidoFileBrowserField Form"
    -default_buttons

    GuidoFileBrowserField csv_filename {
      -label "Filename"
      -width 25
      -file_mask "*.csv *.txt"
      -file_access read
      -format none
      -translate lower
      -null false
    }
  }
}
SclCreateGuidoForm form_handle $form_def {}
$form_handle SclRun {}
puts "File name is $csv_filename"
