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