Fileopen

     # If necessary create the "Open project" dialog
     if {![winfo exists .openProject]} {
  Fileopen .openProject \
      -type open \
      -initialdir [pwd] \
      -filtertypes {{"Mosflm projects" {.mos}} {"All Files" {.*}}}
     }
     # Get file name (as full path) from user
     set l_project_file [.openProject get]