home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / crm_demo / intrface / rsh / modula / intrfac2.def next >
Text File  |  1992-02-22  |  10KB  |  306 lines
  1. DEFINITION MODULE Intrfac2;
  2.  
  3. EXPORT
  4.     MENU, MDESK, MFILE, MEDIT, MOPTIONS, MABOUT,
  5.     MNEW, MOPEN, MWDELETE, MRSCDEL, MSAVE, MSAVEAS,
  6.     MINFO, MHELP, MQUIT, MCYCLE, MOBJEKTO, MBAUM,
  7.     MSETFLAG, MSEARCH, MTEST, MSETTING, MRASTER, MCHSIZE,
  8.     MPARSAVE, DESKTOP, DELOGO, DELOGOIC, IDISK, IDISK2,
  9.     IDISK3, IDISK4, IDISK5, IDISK6, IDISK7, IDISK8,
  10.     IDISK9, IDISK10, IDISK11, IDISK12, IDISK13, IDISK14,
  11.     IDISK15, IDISK16, IDISK17, IDISK18, IDISK19, IDISK20,
  12.     IDISK21, IDISK22, IDISK23, IDISK24, RSC1, RSC2,
  13.     RSC3, RSC4, RSC5, RSC6, RSC7, RSC8,
  14.     RSC9, RSC10, RSC11, RSC12, RSC13, RSC14,
  15.     RSC15, ITRASH, FKEYS, INFOBOX, IMEMORY, LEERMENU,
  16.     EDITMENU, MADESK, MAMASKE, MAINFO, MAOPEN, MACLOSE,
  17.     MAIMGSAV, MASLOAD, MASSAVE, MACYCLE, MAISHOW, MAFHOR,
  18.     MAFVER, MACLEAR, MAUNDO, MAZOOM8, MAZOOM6, MAZOOM4,
  19.     MAMASKON, MAMSKFUL, MAINNEN, MAMSKRND, MAMSKDEL, FM1,
  20.     FM2, FM3, FM4, FM5, FM6, FM7,
  21.     FM8, FM9, FM10, FDESKNAM, FDESKINF, FTRASHNA,
  22.     FICONAME, FCLIPINF, FMEMORY, DUALNAME, DUALTREE, DUALTRNM,
  23.     FRRSHEAD, FRRSMENU, FRRSFORM, FRRSFRST, FRRSALER, FRRSICON,
  24.     FRRSOBJ, VORTEXT, TXTZEILE, NACHTEXT, BASEXT, FSRSREAD,
  25.     FSRSWRIT, FSRSIMG, FSRSSIMG, FSRSICN, FSRSMSK, FSRSLICN,
  26.     FSRSLMSK, MODEXT1, MODEXT2, GFAEXT, PASEXT, CEXT,
  27.     NOWINDOW, NOMEMORY, NOOPEN, NOINFO, NOHELP, FOPEN,
  28.     FREAD, FWRITE, FILEINFO, INFCLIP, INFIMAGE, HELPIMAG,
  29.     ASKCLEAR, NORSD, NORSC, OBCOVER, NEWORDER, NONAME,
  30.     IMRESIZE, NOOBJEKT, RSZULANG, DCREATE, MXSTRLEN, ASKFCOPY,
  31.     NOEXITOB, EXITBUT, ASKSAVE, ASKCUT, NOIMAGE, WRONGIMG,
  32.     ASKDOUBL, SRCALERT, DRVINFO, ISDEMO, NAMESIZE, WRONGSZE,
  33.     NOFIND, WRONGRSC, TOOBIG, ICNTOOBIG, OBJERR;
  34.  
  35.  
  36. CONST
  37.  
  38.     MENU     =   0;    (* Menuebaum *)
  39.     MDESK    =   3;    (* TITLE in Baum MENU *)
  40.     MFILE    =   4;    (* TITLE in Baum MENU *)
  41.     MEDIT    =   5;    (* TITLE in Baum MENU *)
  42.     MOPTIONS =   6;    (* TITLE in Baum MENU *)
  43.     MABOUT   =   9;    (* STRING in Baum MENU *)
  44.     MNEW     =  18;    (* STRING in Baum MENU *)
  45.     MOPEN    =  20;    (* STRING in Baum MENU *)
  46.     MWDELETE =  21;    (* STRING in Baum MENU *)
  47.     MRSCDEL  =  22;    (* STRING in Baum MENU *)
  48.     MSAVE    =  24;    (* STRING in Baum MENU *)
  49.     MSAVEAS  =  25;    (* STRING in Baum MENU *)
  50.     MINFO    =  27;    (* STRING in Baum MENU *)
  51.     MHELP    =  28;    (* STRING in Baum MENU *)
  52.     MQUIT    =  30;    (* STRING in Baum MENU *)
  53.     MCYCLE   =  32;    (* STRING in Baum MENU *)
  54.     MOBJEKTO =  34;    (* STRING in Baum MENU *)
  55.     MBAUM    =  35;    (* STRING in Baum MENU *)
  56.     MSETFLAG =  37;    (* STRING in Baum MENU *)
  57.     MSEARCH  =  38;    (* STRING in Baum MENU *)
  58.     MTEST    =  39;    (* STRING in Baum MENU *)
  59.     MSETTING =  41;    (* STRING in Baum MENU *)
  60.     MRASTER  =  43;    (* STRING in Baum MENU *)
  61.     MCHSIZE  =  44;    (* STRING in Baum MENU *)
  62.     MPARSAVE =  46;    (* STRING in Baum MENU *)
  63.  
  64.     DESKTOP  =   1;    (* Formular/Dialog *)
  65.     DELOGO   =   1;    (* BOX in Baum DESKTOP *)
  66.     DELOGOIC =   2;    (* IMAGE in Baum DESKTOP *)
  67.     IDISK    =   3;    (* ICON in Baum DESKTOP *)
  68.     IDISK2   =   4;    (* ICON in Baum DESKTOP *)
  69.     IDISK3   =   5;    (* ICON in Baum DESKTOP *)
  70.     IDISK4   =   6;    (* ICON in Baum DESKTOP *)
  71.     IDISK5   =   7;    (* ICON in Baum DESKTOP *)
  72.     IDISK6   =   8;    (* ICON in Baum DESKTOP *)
  73.     IDISK7   =   9;    (* ICON in Baum DESKTOP *)
  74.     IDISK8   =  10;    (* ICON in Baum DESKTOP *)
  75.     IDISK9   =  11;    (* ICON in Baum DESKTOP *)
  76.     IDISK10  =  12;    (* ICON in Baum DESKTOP *)
  77.     IDISK11  =  13;    (* ICON in Baum DESKTOP *)
  78.     IDISK12  =  14;    (* ICON in Baum DESKTOP *)
  79.     IDISK13  =  15;    (* ICON in Baum DESKTOP *)
  80.     IDISK14  =  16;    (* ICON in Baum DESKTOP *)
  81.     IDISK15  =  17;    (* ICON in Baum DESKTOP *)
  82.     IDISK16  =  18;    (* ICON in Baum DESKTOP *)
  83.     IDISK17  =  19;    (* ICON in Baum DESKTOP *)
  84.     IDISK18  =  20;    (* ICON in Baum DESKTOP *)
  85.     IDISK19  =  21;    (* ICON in Baum DESKTOP *)
  86.     IDISK20  =  22;    (* ICON in Baum DESKTOP *)
  87.     IDISK21  =  23;    (* ICON in Baum DESKTOP *)
  88.     IDISK22  =  24;    (* ICON in Baum DESKTOP *)
  89.     IDISK23  =  25;    (* ICON in Baum DESKTOP *)
  90.     IDISK24  =  26;    (* ICON in Baum DESKTOP *)
  91.     RSC1     =  27;    (* ICON in Baum DESKTOP *)
  92.     RSC2     =  28;    (* ICON in Baum DESKTOP *)
  93.     RSC3     =  29;    (* ICON in Baum DESKTOP *)
  94.     RSC4     =  30;    (* ICON in Baum DESKTOP *)
  95.     RSC5     =  31;    (* ICON in Baum DESKTOP *)
  96.     RSC6     =  32;    (* ICON in Baum DESKTOP *)
  97.     RSC7     =  33;    (* ICON in Baum DESKTOP *)
  98.     RSC8     =  34;    (* ICON in Baum DESKTOP *)
  99.     RSC9     =  35;    (* ICON in Baum DESKTOP *)
  100.     RSC10    =  36;    (* ICON in Baum DESKTOP *)
  101.     RSC11    =  37;    (* ICON in Baum DESKTOP *)
  102.     RSC12    =  38;    (* ICON in Baum DESKTOP *)
  103.     RSC13    =  39;    (* ICON in Baum DESKTOP *)
  104.     RSC14    =  40;    (* ICON in Baum DESKTOP *)
  105.     RSC15    =  41;    (* ICON in Baum DESKTOP *)
  106.     ITRASH   =  42;    (* ICON in Baum DESKTOP *)
  107.     FKEYS    =  43;    (* IBOX in Baum DESKTOP *)
  108.     INFOBOX  =  74;    (* BOX in Baum DESKTOP *)
  109.     IMEMORY  =  75;    (* TEXT in Baum DESKTOP *)
  110.  
  111.     LEERMENU =   2;    (* Menuebaum *)
  112.  
  113.     EDITMENU =   3;    (* Menuebaum *)
  114.     MADESK   =   3;    (* TITLE in Baum EDITMENU *)
  115.     MAMASKE  =   7;    (* TITLE in Baum EDITMENU *)
  116.     MAINFO   =  10;    (* STRING in Baum EDITMENU *)
  117.     MAOPEN   =  12;    (* STRING in Baum EDITMENU *)
  118.     MACLOSE  =  13;    (* STRING in Baum EDITMENU *)
  119.     MAIMGSAV =  15;    (* STRING in Baum EDITMENU *)
  120.     MASLOAD  =  17;    (* STRING in Baum EDITMENU *)
  121.     MASSAVE  =  18;    (* STRING in Baum EDITMENU *)
  122.     MACYCLE  =  20;    (* STRING in Baum EDITMENU *)
  123.     MAISHOW  =  21;    (* STRING in Baum EDITMENU *)
  124.     MAFHOR   =  23;    (* STRING in Baum EDITMENU *)
  125.     MAFVER   =  24;    (* STRING in Baum EDITMENU *)
  126.     MACLEAR  =  26;    (* STRING in Baum EDITMENU *)
  127.     MAUNDO   =  27;    (* STRING in Baum EDITMENU *)
  128.     MAZOOM8  =  29;    (* STRING in Baum EDITMENU *)
  129.     MAZOOM6  =  30;    (* STRING in Baum EDITMENU *)
  130.     MAZOOM4  =  31;    (* STRING in Baum EDITMENU *)
  131.     MAMASKON =  33;    (* STRING in Baum EDITMENU *)
  132.     MAMSKFUL =  35;    (* STRING in Baum EDITMENU *)
  133.     MAINNEN  =  36;    (* STRING in Baum EDITMENU *)
  134.     MAMSKRND =  37;    (* STRING in Baum EDITMENU *)
  135.     MAMSKDEL =  39;    (* STRING in Baum EDITMENU *)
  136.  
  137.     FM1      =   0;    (* Freier String *)
  138.  
  139.     FM2      =   1;    (* Freier String *)
  140.  
  141.     FM3      =   2;    (* Freier String *)
  142.  
  143.     FM4      =   3;    (* Freier String *)
  144.  
  145.     FM5      =   4;    (* Freier String *)
  146.  
  147.     FM6      =   5;    (* Freier String *)
  148.  
  149.     FM7      =   6;    (* Freier String *)
  150.  
  151.     FM8      =   7;    (* Freier String *)
  152.  
  153.     FM9      =   8;    (* Freier String *)
  154.  
  155.     FM10     =   9;    (* Freier String *)
  156.  
  157.     FDESKNAM =  10;    (* Freier String *)
  158.  
  159.     FDESKINF =  11;    (* Freier String *)
  160.  
  161.     FTRASHNA =  12;    (* Freier String *)
  162.  
  163.     FICONAME =  13;    (* Freier String *)
  164.  
  165.     FCLIPINF =  14;    (* Freier String *)
  166.  
  167.     FMEMORY  =  15;    (* Freier String *)
  168.  
  169.     DUALNAME =  16;    (* Freier String *)
  170.  
  171.     DUALTREE =  17;    (* Freier String *)
  172.  
  173.     DUALTRNM =  18;    (* Freier String *)
  174.  
  175.     FRRSHEAD =  19;    (* Freier String *)
  176.  
  177.     FRRSMENU =  20;    (* Freier String *)
  178.  
  179.     FRRSFORM =  21;    (* Freier String *)
  180.  
  181.     FRRSFRST =  22;    (* Freier String *)
  182.  
  183.     FRRSALER =  23;    (* Freier String *)
  184.  
  185.     FRRSICON =  24;    (* Freier String *)
  186.  
  187.     FRRSOBJ  =  25;    (* Freier String *)
  188.  
  189.     VORTEXT  =  26;    (* Freier String *)
  190.  
  191.     TXTZEILE =  27;    (* Freier String *)
  192.  
  193.     NACHTEXT =  28;    (* Freier String *)
  194.  
  195.     BASEXT   =  29;    (* Freier String *)
  196.  
  197.     FSRSREAD =  30;    (* Freier String *)
  198.  
  199.     FSRSWRIT =  31;    (* Freier String *)
  200.  
  201.     FSRSIMG  =  32;    (* Freier String *)
  202.  
  203.     FSRSSIMG =  33;    (* Freier String *)
  204.  
  205.     FSRSICN  =  34;    (* Freier String *)
  206.  
  207.     FSRSMSK  =  35;    (* Freier String *)
  208.  
  209.     FSRSLICN =  36;    (* Freier String *)
  210.  
  211.     FSRSLMSK =  37;    (* Freier String *)
  212.  
  213.     MODEXT1  =  38;    (* Freier String *)
  214.  
  215.     MODEXT2  =  39;    (* Freier String *)
  216.  
  217.     GFAEXT   =  40;    (* Freier String *)
  218.  
  219.     PASEXT   =  41;    (* Freier String *)
  220.  
  221.     CEXT     =  42;    (* Freier String *)
  222.  
  223.     NOWINDOW =  43;    (* Alert String *)
  224.  
  225.     NOMEMORY =  44;    (* Alert String *)
  226.  
  227.     NOOPEN   =  45;    (* Alert String *)
  228.  
  229.     NOINFO   =  46;    (* Alert String *)
  230.  
  231.     NOHELP   =  47;    (* Alert String *)
  232.  
  233.     FOPEN    =  48;    (* Alert String *)
  234.  
  235.     FREAD    =  49;    (* Alert String *)
  236.  
  237.     FWRITE   =  50;    (* Alert String *)
  238.  
  239.     FILEINFO =  51;    (* Alert String *)
  240.  
  241.     INFCLIP  =  52;    (* Alert String *)
  242.  
  243.     INFIMAGE =  53;    (* Alert String *)
  244.  
  245.     HELPIMAG =  54;    (* Alert String *)
  246.  
  247.     ASKCLEAR =  55;    (* Alert String *)
  248.  
  249.     NORSD    =  56;    (* Alert String *)
  250.  
  251.     NORSC    =  57;    (* Alert String *)
  252.  
  253.     OBCOVER  =  58;    (* Alert String *)
  254.  
  255.     NEWORDER =  59;    (* Alert String *)
  256.  
  257.     NONAME   =  60;    (* Alert String *)
  258.  
  259.     IMRESIZE =  61;    (* Alert String *)
  260.  
  261.     NOOBJEKT =  62;    (* Alert String *)
  262.  
  263.     RSZULANG =  63;    (* Alert String *)
  264.  
  265.     DCREATE  =  64;    (* Alert String *)
  266.  
  267.     MXSTRLEN =  65;    (* Alert String *)
  268.  
  269.     ASKFCOPY =  66;    (* Alert String *)
  270.  
  271.     NOEXITOB =  67;    (* Alert String *)
  272.  
  273.     EXITBUT  =  68;    (* Alert String *)
  274.  
  275.     ASKSAVE  =  69;    (* Alert String *)
  276.  
  277.     ASKCUT   =  70;    (* Alert String *)
  278.  
  279.     NOIMAGE  =  71;    (* Alert String *)
  280.  
  281.     WRONGIMG =  72;    (* Alert String *)
  282.  
  283.     ASKDOUBL =  73;    (* Alert String *)
  284.  
  285.     SRCALERT =  74;    (* Alert String *)
  286.  
  287.     DRVINFO  =  75;    (* Alert String *)
  288.  
  289.     ISDEMO   =  76;    (* Alert String *)
  290.  
  291.     NAMESIZE =  77;    (* Alert String *)
  292.  
  293.     WRONGSZE =  78;    (* Alert String *)
  294.  
  295.     NOFIND   =  79;    (* Alert String *)
  296.  
  297.     WRONGRSC =  80;    (* Alert String *)
  298.  
  299.     TOOBIG   =  81;    (* Alert String *)
  300.  
  301.     ICNTOOBIG =  82;    (* Alert String *)
  302.  
  303.     OBJERR   =  83;    (* Alert String *)
  304.  
  305. END Intrfac2.
  306. ə