1Acme : module { 2 PATH : con "/dis/acme.dis"; 3 4 RELEASECOPY : con 1; 5 6 M_LBUT : con 1; 7 M_MBUT : con 2; 8 M_RBUT : con 4; 9 M_TBS : con 8; 10 M_PLUMB : con 16; 11 M_QUIT : con 32; 12 M_HELP : con 64; 13 M_RESIZE : con 128; 14 M_DOUBLE : con 256; 15 16 textcols, tagcols : array of ref Draw->Image; 17 but2col, but3col, but2colt, but3colt : ref Draw->Image; 18 19 acmectxt : ref Draw->Context; 20 keyboardpid, mousepid, timerpid, fsyspid : int; 21 fontnames : array of string; 22 wdir : string; 23 24 init : fn(ctxt : ref Draw->Context, argv : list of string); 25 timing : fn(s : string); 26 frgetmouse : fn(); 27 get : fn(p, q, r : int, b : string) : ref Dat->Reffont; 28 close : fn(r : ref Dat->Reffont); 29 acmeexit : fn(err : string); 30 getsnarf : fn(); 31 putsnarf : fn(); 32};