1*37da2899SCharles.ForsythProtocaller : module{ 2*37da2899SCharles.Forsyth init: fn(ctxt : ref Draw->Context, args : list of string); 3*37da2899SCharles.Forsyth protofile: fn(new : string, old : string, d : ref Sys->Dir); 4*37da2899SCharles.Forsyth 5*37da2899SCharles.Forsyth WARN, ERROR, FATAL : con iota; 6*37da2899SCharles.Forsyth 7*37da2899SCharles.Forsyth protoerr: fn(lev : int, line : int, err : string); 8*37da2899SCharles.Forsyth};