Topspeed_JPI/TS-V3/INCLUDE/MLE.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  MLE.DEF - Modula-2 OS/2 API Multiline Editor interface                  *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1991..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11    (*# call(o_a_size=>off,o_a_copy=>off,result_optional=>on,
   12             reg_saved=>(si,di,ds,st1,st2),reg_param=>(),seg_name=>none,
   13             near_call=>off,ds_eq_ss=>off)                                 *)
   14    (*# name(prefix=>os2_lib)                                              *)
   15    (*# data(near_ptr=>off,var_enum_size=>off)                             *)
   16    (*# check(index=>off,range=>off,overflow=>off,nil_ptr=>off)            *)
   17    (*# module(implementation=>off,init_code=>off)                         *)
   18  DEFINITION MODULE MLE;
   19    FROM OS2DEF           IMPORT LPSTR;
   20  
   21    CONST
   22     (* MLE Window styles ( in addition to WS_* )                          *)
   23      MLS_WORDWRAP        = {0};
*****                             ^ not supported yet
   24      MLS_BORDER          = {1};
*****                             ^ not supported yet
   25      MLS_VSCROLL         = {2};
*****                             ^ not supported yet
   26      MLS_HSCROLL         = {3};
*****                             ^ not supported yet
   27      MLS_READONLY        = {4};
*****                             ^ not supported yet
   28      MLS_IGNORETAB       = {5};
*****                             ^ not supported yet
   29  
   30     (* MLE External Data Types                                            *)
   31    TYPE
   32      IPT                 = LONGINT;     (* insertion point                *)
   33      PIPT                = POINTER TO IPT;
*****                                       ^ not supported yet
   34      PIX                 = LONGINT;     (* pixel                          *)
   35      LINE                = LONGCARD;    (* Line number                    *)
*****                            ^ undeclared identifier
   36      FORMATRECT          = RECORD
   37                              cxFormat   : LONGINT;(* format rect width    *)
   38                              cyFormat   : LONGINT;(* format rect height   *)
   39                            END; (*FORMATRECT*)
*****                            ^ not supported yet
   40      PFORMATRECT         = POINTER TO FORMATRECT;
*****                                       ^ not supported yet
   41      CTLDATA             = RECORD
   42                              cbCtlData  : CARDINAL;    (* Length of the CtlData structure *)
   43                              afIEFormat : CARDINAL;    (* import/export format            *)
   44                              cchText    : LONGCARD;    (* text limit                      *)
*****                                           ^ undeclared identifier
   45                              iptAnchor  : IPT;         (* beginning of selection          *)
   46                              iptCursor  : IPT;         (* ending of selection             *)
   47                              cxFormat   : LONGINT;     (* format rectangle width          *)
   48                              cyFormat   : LONGINT;     (* format rectangle height         *)
   49                              afFormatFlags : LONGCARD; (* formatting rectangle flags - see mask below *)
*****                                              ^ undeclared identifier
   50                            END; (*CTLDATA*)
*****                            ^ not supported yet
   51      PCTLDATA            = POINTER TO CTLDATA;
*****                                       ^ not supported yet
   52  
   53    CONST
   54     (* FormatFlags mask                                                   *)
   55      MLFFMTRECT_LIMITHORZ     = {0};
*****                                  ^ not supported yet
   56      MLFFMTRECT_LIMITVERT     = {1};
*****                                  ^ not supported yet
   57      MLFFMTRECT_MATCHWINDOW   = {2};
*****                                  ^ not supported yet
   58      MLFFMTRECT_FORMATRECT    = {0,1,2};
*****                                  ^ not supported yet
*****                                    ^ not supported yet
*****                                      ^ not supported yet
   59  
   60     (* afIEFormat - Import/Export Format flags                            *)
   61      MLFIE_CFTEXT        = 0;
   62      MLFIE_NOTRANS       = 1;
   63      MLFIE_WINFMT        = 2;
   64      MLFIE_RFT           = 3;
   65  
   66    TYPE
   67     (* MLN_OVERFLOW structure                                             *)
   68      OVERFLOW            = RECORD
   69                              afErrInd   : LONGCARD;    (* see mask below *)
*****                                           ^ undeclared identifier
   70                              nBytesOver : LONGINT;     (* number of bytes overflowed *)
   71                              pixHorzOver: LONGINT;     (* number of pixels horizontally overflowed *)
   72                              pixVertOver: LONGINT;     (* number of pixels vertically overflowed *)
   73                            END; (*OVERFLOW*)
*****                            ^ not supported yet
   74      POVERFLOW           = POINTER TO OVERFLOW;
*****                                       ^ not supported yet
   75  
   76    CONST
   77     (* afErrInd - error format rectangle flags                            *)
   78      MLFEFR_RESIZE       = {0};
*****                             ^ not supported yet
   79      MLFEFR_TABSTOP      = {1};
*****                             ^ not supported yet
   80      MLFEFR_FONT         = {2};
*****                             ^ not supported yet
   81      MLFEFR_TEXT         = {3};
*****                             ^ not supported yet
   82      MLFEFR_WORDWRAP     = {4};
*****                             ^ not supported yet
   83      MLFEFR_TEXTBYTES    = {5};
*****                             ^ not supported yet
   84  
   85    TYPE
   86     (* MLN_MARGIN structure                                               *)
   87      MARGSTRUCT          = RECORD
   88                              afMargins  : CARDINAL;    (* margin indicator *)
   89                              usMouMsg   : CARDINAL;    (* mouse message *)
   90                              iptNear    : IPT;         (* the geometrically nearest insertion point *)
   91                            END; (*MARGSTRUCT*)
*****                            ^ not supported yet
   92      PMARGSTRUCT         = POINTER TO MARGSTRUCT;
*****                                       ^ not supported yet
   93  
   94    CONST
   95     (* afFlags - margin notification indicators                           *)
   96      MLFMARGIN_LEFT      = 1;
   97      MLFMARGIN_BOTTOM    = 2;
   98      MLFMARGIN_RIGHT     = 3;
   99      MLFMARGIN_TOP       = 4;
  100  
  101     (* MLM_QUERYSELECTION flags                                           *)
  102      MLFQS_MINMAXSEL     = 0;
  103      MLFQS_MINSEL        = 1;
  104      MLFQS_MAXSEL        = 2;
  105      MLFQS_ANCHORSEL     = 3;
  106      MLFQS_CURSORSEL     = 4;
  107  
  108     (* MLN_CLPBDFAIL flags                                                *)
  109      MLFCLPBD_TOOMUCHTEXT= 1;
  110      MLFCLPBD_ERROR      = 2;
  111  
  112    TYPE
  113     (* MLM_SEARCH structure                                               *)
  114      _SEARCHDATA         = RECORD
  115                              cb         : CARDINAL;    (* size of search spec structure *)
  116                              pchFind    : LPSTR;       (* string to search for *)
  117                              pchReplace : LPSTR;       (* string to replace with *)
  118                              cchFind    : INTEGER;     (* length of pchFind string *)
  119                              cchReplace : INTEGER;     (* length of replace string *)
  120                              iptStart   : IPT;         (* point at which to start search *)
  121                                                        (* (negative indicates cursor pt) *)
  122                                                        (* becomes pt where string found  *)
  123                              iptStop    : IPT;         (* point at which to stop search  *)
  124                                                        (* (negative indicates EOT)       *)
  125                              cchFound   : CARDINAL;    (* Length of found string at iptStart *)
  126                            END; (*SEARCHDATA*)
*****                            ^ not supported yet
  127      P_SEARCHDATA        = POINTER TO _SEARCHDATA;
*****                                       ^ not supported yet
  128  
  129    CONST
  130     (* MLM_SEARCH style flags                                             *)
  131      MLFSEARCH_CASESENSITIVE  = {0};
*****                                  ^ not supported yet
  132      MLFSEARCH_SELECTMATCH    = {1};
*****                                  ^ not supported yet
  133      MLFSEARCH_CHANGEALL      = {2};
*****                                  ^ not supported yet
  134  
  135     (* MLE messages - MLM from 01B0H to 01DEH; MLN from 0001H to 000FH    *)
  136  
  137     (* formatting messages                                                *)
  138      MLM_SETTEXTLIMIT    = 01B0H;
  139      MLM_QUERYTEXTLIMIT  = 01B1H;
  140      MLM_SETFORMATRECT   = 01B2H;
  141      MLM_QUERYFORMATRECT = 01B3H;
  142      MLM_SETWRAP         = 01B4H;
  143      MLM_QUERYWRAP       = 01B5H;
  144      MLM_SETTABSTOP      = 01B6H;
  145      MLM_QUERYTABSTOP    = 01B7H;
  146      MLM_SETREADONLY     = 01B8H;
  147      MLM_QUERYREADONLY   = 01B9H;
  148  
  149     (* text content manipulation and queries messages                     *)
  150      MLM_QUERYCHANGED    = 01BAH;
  151      MLM_SETCHANGED      = 01BBH;
  152      MLM_QUERYLINECOUNT  = 01BCH;
  153      MLM_CHARFROMLINE    = 01BDH;
  154      MLM_LINEFROMCHAR    = 01BEH;
  155      MLM_QUERYLINELENGTH = 01BFH;
  156      MLM_QUERYTEXTLENGTH = 01C0H;
  157  
  158  (* text import and export messages                                       *)
  159      MLM_FORMAT          = 01C1H;
  160      MLM_SETIMPORTEXPORT = 01C2H;
  161      MLM_IMPORT          = 01C3H;
  162      MLM_EXPORT          = 01C4H;
  163      MLM_DELETE          = 01C6H;
  164      MLM_QUERYFORMATLINELENGTH = 01C7H;
  165      MLM_QUERYFORMATTEXTLENGTH = 01C8H;
  166      MLM_INSERT          = 01C9H;
  167  
  168  (* selection messages                                                    *)
  169      MLM_SETSEL          = 01CAH;
  170      MLM_QUERYSEL        = 01CBH;
  171      MLM_QUERYSELTEXT    = 01CCH;
  172  
  173  (* undo and redo messages                                                *)
  174      MLM_QUERYUNDO       = 01CDH;
  175      MLM_UNDO            = 01CEH;
  176      MLM_RESETUNDO       = 01CFH;
  177  
  178  (* text attributes messages                                              *)
  179      MLM_QUERYFONT       = 01D0H;
  180      MLM_SETFONT         = 01D1H;
  181      MLM_SETTEXTCOLOR    = 01D2H;
  182      MLM_QUERYTEXTCOLOR  = 01D3H;
  183      MLM_SETBACKCOLOR    = 01D4H;
  184      MLM_QUERYBACKCOLOR  = 01D5H;
  185  
  186  (* scrolling messages                                                    *)
  187      MLM_QUERYFIRSTCHAR  = 01D6H;
  188      MLM_SETFIRSTCHAR    = 01D7H;
  189  
  190  (* clipboard messages                                                    *)
  191      MLM_CUT             = 01D8H;
  192      MLM_COPY            = 01D9H;
  193      MLM_PASTE           = 01DAH;
  194      MLM_CLEAR           = 01DBH;
  195  
  196  (* display manipulation messages                                         *)
  197      MLM_ENABLEREFRESH   = 01DCH;
  198      MLM_DISABLEREFRESH  = 01DDH;
  199  
  200  (* search message                                                        *)
  201      MLM_SEARCH          = 01DEH;
  202      MLM_QUERYIMPORTEXPORT = 01DFH;
  203  
  204  (* notification messages                                                 *)
  205      MLN_OVERFLOW        = 0001H;
  206      MLN_PIXHORZOVERFLOW = 0002H;
  207      MLN_PIXVERTOVERFLOW = 0003H;
  208      MLN_TEXTOVERFLOW    = 0004H;
  209      MLN_VSCROLL         = 0005H;
  210      MLN_HSCROLL         = 0006H;
  211      MLN_CHANGE          = 0007H;
  212      MLN_SETFOCUS        = 0008H;
  213      MLN_KILLFOCUS       = 0009H;
  214      MLN_MARGIN          = 000AH;
  215      MLN_SEARCHPAUSE     = 000BH;
  216      MLN_MEMERROR        = 000CH;
  217      MLN_UNDOOVERFLOW    = 000DH;
  218      MLN_CLPBDFAIL       = 000FH;
  219  
  220  END MLE.
*****      ^ not supported yet
  221  
  222  
  223  
  224  
  225  

   37 errors