# used for testing, only

package ifneeded myinterface 1.0 [format {
  source [file join %s mi.tcl]
  source [file join %s miDialog.tcl]
  source [file join %s testDialog.tcl]
} [list $dir] [list $dir] [list $dir]]
