1Selectfile: module 2{ 3 PATH: con "/dis/lib/selectfile.dis"; 4 5 init: fn(): string; 6 filename: fn(ctxt: ref Draw->Context, parent: ref Draw->Image, 7 title: string, 8 pat: list of string, 9 dir: string): string; 10# select: fn(top: ref Tk->Toplevel, w: string, 11# root, dir: string, 12# pats: list of string, action: string): chan of (int, string); 13}; 14