#!/usr/local/bin/wish4.1

source stooop.tcl
source scwoop.tcl
source filesel.tcl

proc done {file} {
    puts $file
    exit
}

wm withdraw .
new fileSelector . -command done -filters {{Text files (*.txt)} {Tcl files (*.tcl)} {All files}}
