home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / builder / builder.h50 < prev    next >
Text File  |  1994-10-26  |  19KB  |  404 lines
  1. /*
  2. ..............................................................................
  3. .                                                                            .
  4. .  Aeolus Builder v2.2 System Constants                                      .
  5. .       (c) Copyright 1994, All Rights Reserved                              .
  6. .                                                                            .
  7. ..............................................................................
  8. */
  9.  
  10.  
  11. #define      K_SPACE           32
  12. #define      K_ALT_PGUP        409
  13. #define      K_ALT_PGDN        417
  14. #define      K_ALT_DOWN        416
  15. #define      KP_ALT_MINUS      330
  16.  
  17. #ifndef TRUE
  18.   #define   TRUE     .T.
  19. #endif
  20. #ifndef FALSE
  21.   #define   FALSE    .F.
  22. #endif
  23.  
  24.  
  25.  
  26. /***
  27. *  Window Style Manifest Constants
  28. *
  29. */
  30. #define      W_DOUBLE                     "=="
  31. #define      W_SINGLE                     "--"
  32. #define      W_DOUBLE_SINGLE              "=-"
  33. #define      W_SINGLE_DOUBLE              "-="
  34. #define      W_3D_PLUS                    "3+"
  35. #define      W_3D_MINUS                   "3-"
  36.  
  37. /***
  38. *  I/O Control Manifest Constants
  39. *
  40. */
  41. #define NETWORK             1       // Network logical
  42. #define XPLODE              2       // Exploding windows logical
  43.  
  44. /***
  45. *  Color Variable Array Element Numbers
  46. *
  47. */
  48. #define WREV_CLR_           3
  49. #define WGET_CLR_           4
  50. #define WMSG_CLR_           5
  51. #define WERR_CLR_           6
  52. #define WNDW_CLR_           7
  53.  
  54. #define HDR_CLR_            8
  55. #define HDR_MSG_            9
  56.  
  57. #define BREV_CLR_          10
  58. #define BGET_CLR_          11
  59. #define BKGD_CLR_          12
  60. #define BMSG_CLR_          13
  61. #define BERR_CLR_          14
  62.  
  63. #define WNDW2_CLR_         15
  64. #define WMSG2_CLR_         16
  65.  
  66. #define SHDW_CLR_          17
  67. #define ERR_CLR_           18
  68. #define MSG_CLR_           19
  69. #define HELP_CLR_          20
  70.  
  71. #define BRWS_CLR_          24
  72. #define BRWS_REV_          25
  73. #define BRWS_HL1_          26
  74. #define BRWS_HR1_          27
  75. #define BRWS_HL2_          28
  76. #define BRWS_HR2_          29
  77. #define MENU_CLR_          31
  78. #define MENU_REV_          32
  79. #define HLGT_CLR_          33
  80.  
  81. // Internals--Used by Builder.Lib Functions
  82. #define LRKEYS             21         // Left Right Menu Scrolling Logical
  83. #define INGETSYS           22         // Get System Active Logical
  84. #define WNDW_STYLE         23
  85. #define GETGOTO_           34
  86. #define COLGOTO_           35
  87. #define MOUSE_DRIVER       36
  88. #define MPADS             999         // Dummy to use the mPads Static Array
  89.  
  90.  
  91. /*
  92. ..............................................................................
  93. .                                                                            .
  94. .  Aeolus Builder User Defined Commands                                      .
  95. .                                                                            .
  96. .  @..GET.       Same as with Clipper with the addition of the VALIDBLOCK.   .
  97. .                READER, and AS MENU clauses.                                .
  98. .                                                                            .
  99. .  @..ABPROMPT.  Similar to Clipper's @..PROMPT except this calls the        .
  100. .                Aeolus Function Library 'AddPrompt()' function.             .
  101. .                                                                            .
  102. .  @..WINGET     Same as Builder @..GET except it will display use WinTop()  .
  103. .                and WinLeft()                                               .
  104. .                                                                            .
  105. .  @..WINSAY     Same as Clipper @..SAY except it will display use WinTop()  .
  106. .                and WinLeft()                                               .
  107. .                                                                            .
  108. .  @..WINPROMPT  Same as Builder @..ABPROMPT except it will display use      .
  109. .                WinTop() and WinLeft()                                      .
  110. .                                                                            .
  111. .  @..WINDOW     Displays a window on the screen.                            .
  112. .                                                                            .
  113. .  WINDOW REMOVE Removes a window from the screen and restores screen  area  .
  114. .                to its previous contents                                    .
  115. ..............................................................................
  116. */
  117.  
  118. #define     MENU_READER(Var,Row,Col,Array) ;
  119.               {|oGet|AbMenu(CrteMnuArry(Row,Col,Array),Var,oGet,oGet==NIL)}
  120.  
  121. #define     ABMEMBLOCK( v )           {|x|IF(x==NIL,v,v:=x)}
  122.  
  123. #define     DROPDOWN(Var,Row,Col,Array) ;
  124.               {|oGet|AbDrpDwn(Row,Col,Array,Var,oGet,oGet==NIL)}
  125.  
  126. /***
  127. *  @..GET  command for use with the Aeolus Builder
  128. */
  129.  
  130. #command @ <row>, <col> GET <var>                                       ;
  131.                         [PICTURE <pic>]                                 ;
  132.                         [VALID <valid>]                                 ;
  133.                         [WHEN <when>]                                   ;
  134.                         [VALIDBLOCK <validblk>]                         ;
  135.                         [READER <readerblk>]                            ;
  136.                         [SEND <msg>]                                    ;
  137.                                                                         ;
  138.       => AbAddGet( <row>, <col>, ABMEMBLOCK( <var> ), <"var">,          ;
  139.                    <pic>, <validblk>, <{when}>, <readerblk>, GetList )
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147. // @..GET..MENU USING (preprocessed to @..GET..READER)
  148.  
  149. #command @ <row>, <col> GET <var>                                       ;
  150.                         [<clauses,...>]                                 ;
  151.                         MENU USING <array>                              ;
  152.                         [<moreClauses,...>]                             ;
  153.                                                                         ;
  154.       => @ <row>, <col> GET <var>                                       ;
  155.                         [<clauses>]                                     ;
  156.                         READER MENU_READER(<var>,<row>,<col>,<array>)   ;
  157.                         [<moreClauses>]
  158.  
  159.  
  160.  
  161.  
  162. // @..GET..DROPDOWN USING (preprocessed to @..GET..READER)
  163.  
  164. #command @ <row>, <col> GET <var>                                       ;
  165.                         [<clauses,...>]                                 ;
  166.                         DROPDOWN USING <array>                          ;
  167.                         [<moreClauses,...>]                             ;
  168.                                                                         ;
  169.       => @ <row>, <col> GET <var>                                       ;
  170.                         [<clauses>]                                     ;
  171.                         READER DROPDOWN(<var>,<row>,<col>,<array>)      ;
  172.                         [<moreClauses>]
  173.  
  174.  
  175.  
  176.  
  177. /***
  178. *  @..ABPROMPT
  179. *
  180. */
  181.  
  182. #command @ <row>, <col> ABPROMPT <text>                                 ;
  183.                         TO <array>                                      ;
  184.                        [EXECUTE <exec>]                                 ;
  185.                        [WHEN <when>]                                    ;
  186.                        [MESSAGE <msg>                                   ;
  187.                         AT <mrow>, <mcol>]                              ;
  188.          => AddPrompt( <array>, <row>, <col>, <text>, <{exec}>,         ;
  189.                <mrow>, <mcol>, <msg>, <{when}> )                        ;
  190.  
  191.  
  192.  
  193. /***
  194. *  @..WINGET
  195. *
  196. *  Adds WinTop() and WinLeft() to screen coordinates then calls the
  197. *  regular Clipper GET
  198. *
  199. */
  200. #xcommand @ <row>, <col> WINGET <var>                                   ;
  201.                         [<getclauses,...>]                              ;
  202.                                                                         ;
  203.       => @ WinTop()+<row>, WinLeft()+<col> GET <var>                    ;
  204.                         [<getclauses>]                                  ;
  205.  
  206.  
  207.  
  208. /***
  209. *  @..WINSAY
  210. *
  211. *  Adds WinTop() and WinLeft() to screen coordinates then calls the
  212. *  regular Clipper SAY
  213. *
  214. */
  215. #xcommand @ <row>, <col> WINSAY <xpr>                                   ;
  216.                         [<sayclauses,...>]                              ;
  217.                                                                         ;
  218.       => @ WinTop()+<row>, WinLeft()+<col> SAY <xpr>                    ;
  219.                         [<sayclauses>]                                  ;
  220.  
  221.  
  222.  
  223. /***
  224. *  @..WINPROMPT
  225. *
  226. */
  227.  
  228. #command @ <row>, <col> WINROMPT [<promptclauses,...>]                  ;
  229.                                                                         ;
  230.          => @ WinTop()+<row>, WinLeft()+<col> ABPROMPT                  ;
  231.                        [<promptclauses>]                                ;
  232.  
  233.  
  234.  
  235. /***
  236. *  @..WINDOW
  237. */
  238. #xcommand @ <top>, <left>, <bottom>, <right> WINDOW                     ;
  239.                                [<nsv: NOSAVE>]                          ;
  240.                                [<ncl: NOCLEAR>]                         ;
  241.                                [<nsh: NOSHADOW>]                        ;
  242.                                [<nbr: NOBORDER>]                        ;
  243.                                [STYLE <wintype>]                        ;
  244.                                [COLOR <color>]                          ;
  245.                                                                         ;
  246.       => WinPush(                                                       ;
  247.                   <top>, <left>, <bottom>, <right>, !<.nsv.>,           ;
  248.                   !<.ncl.>, !<.nbr.>, !<.nsh.>, <wintype>, <color> )
  249.  
  250.  
  251. /***
  252. *  WINDOW REMOVE
  253. */
  254. #xcommand WINDOW REMOVE        => WinPop()
  255.  
  256.  
  257.  
  258. /***
  259. *  @..WINPROMPT
  260. */
  261. #xcommand @ <row>, <col> WINPROMPT                                      ;
  262.                          [<promptclauses,...>]                          ;
  263.                                                                         ;
  264.       => @ WinTop()+<row>, WinLeft()+<col> ABPROMPT                     ;
  265.                          [<promptclauses>]
  266.  
  267. /*
  268. ..............................................................................
  269. .                                                                            .
  270. .        The following #xtranslate directives convert Builder.lib            .
  271. .        function calls from their generic names to the names as             .
  272. .        they appear in the Builder.lib library.  All the Builder            .
  273. .        functions in the Builder.lib library are prefixed with              .
  274. .        the letters 'Ab'.  This does two things, one makes the              .
  275. .        function names unique, two makes the function names                 .
  276. .        unreadable.                                                         .
  277. .                                                                            .
  278. .        The source code generated by the Builder.exe code gen-              .
  279. .        erator will create function calls that DO NOT have the              .
  280. .        'Ab' prefix characters.  The xtranslate directives here             .
  281. .        will convert them (check your .ppo) to their actual                 .
  282. .        names.                                                              .
  283. .                                                                            .
  284. .        See the file LIBC5X.DOC for information functions names.            .
  285. .                                                                            .
  286. ..............................................................................
  287. */
  288.  
  289. // Builder.lib functions
  290. #xtranslate Add_Rec([<args,...>])         => AbAdd_Rec([<args>])
  291. #xtranslate AddGet([<args,...>])          => AbAddGet([<args>])
  292. #xtranslate AddMPad([<args,...>])         => AbAddMPad([<args>])
  293. #xtranslate AddPrompt([<args,...>])       => AbAddPrompt([<args>])
  294. #xtranslate APop([<args,...>])            => AbAPop([<args>])
  295. #xtranslate Asc2Bin([<args,...>])         => AbAsc2Bin([<args>])
  296. #xtranslate Ask([<args,...>])             => AbAsk([<args>])
  297. #xtranslate AskMenu([<args,...>])         => AbAskMenu([<args>])
  298. #xtranslate BChoice([<args,...>])         => AbBChoice([<args>])
  299. #xtranslate Between([<args,...>])         => AbBetween([<args>])
  300. #xtranslate BldrErr([<args,...>])         => AbBldrErr([<args>])
  301. #xtranslate BrowseDb([<args,...>])        => AbBrowseDb([<args>])
  302. #xtranslate Browser([<args,...>])         => AbBrowser([<args>])
  303. #xtranslate BrwMouse([<args,...>])        => AbBrwMouse([<args>])
  304. #xtranslate Center([<args,...>])          => AbCenter([<args>])
  305. #xtranslate ChkChr([<args,...>])          => AbChkChr([<args>])
  306. #xtranslate CkPrtr([<args,...>])          => AbCkPrtr([<args>])
  307. #xtranslate CrteMnuArry([<args,...>])     => AbCrteMnuArry([<args>])
  308. #xtranslate DbChanged([<args,...>])       => AbDbChanged([<args>])
  309. #xtranslate DbRepl([<args,...>])          => AbDbRepl([<args>])
  310. #xtranslate DbState([<args,...>])         => AbDbState([<args>])
  311. #xtranslate DbStor([<args,...>])          => AbDbStor([<args>])
  312. #xtranslate Dec2Hex([<args,...>])         => AbDec2Hex([<args>])
  313. #xtranslate DelColPut([<args,...>])       => AbDelColPut([<args>])
  314. #xtranslate DelMPad([<args,...>])         => AbDelMPad([<args>])
  315. #xtranslate DictPut([<args,...>])         => AbDictPut([<args>])
  316. #xtranslate DictGet([<args,...>])         => AbDictGet([<args>])
  317. #xtranslate DupChk([<args,...>])          => AbDupChk([<args>])
  318. #xtranslate Edt_Memo([<args,...>])        => AbEdt_Memo([<args>])
  319. #xtranslate ErrTone([<args,...>])         => AbErrTone([<args>])
  320. #xtranslate Etc([<args,...>])             => AbEtc([<args>])
  321. #xtranslate FEof([<args,...>])            => AbFEof([<args>])
  322. #xtranslate FGets([<args,...>])           => AbFGets([<args>])
  323. #xtranslate FGetsR([<args,...>])          => AbFGetsR([<args>])
  324. #xtranslate Fil_Lock([<args,...>])        => AbFil_Lock([<args>])
  325. #xtranslate Fld_Repl([<args,...>])        => AbFld_Repl([<args>])
  326. #xtranslate Gen_Maint([<args,...>])       => AbGen_Maint([<args>])
  327. #xtranslate GenVld([<args,...>])          => AbGenVld([<args>])
  328. #xtranslate GetEdit([<args,...>])         => AbGetEdit([<args>])
  329. #xtranslate GetJump([<args,...>])         => AbGetJump([<args>])
  330. #xtranslate Got([<args,...>])             => AbGot([<args>])
  331. #xtranslate Hex2Dec([<args,...>])         => AbHex2Dec([<args>])
  332. #xtranslate Ibar([<args,...>])            => AbIbar([<args>])
  333. #xtranslate In_Canada([<args,...>])       => AbIn_Canada([<args>])
  334. #xtranslate In_USA([<args,...>])          => AbIn_USA([<args>])
  335. #xtranslate InFile([<args,...>])          => AbInFile([<args>])
  336. #xtranslate InPath([<args,...>])          => AbInPath([<args>])
  337. #xtranslate ISeek([<args,...>])           => AbISeek([<args>])
  338. #xtranslate Kybd([<args,...>])            => AbKybd([<args>])
  339. #xtranslate Make_Empty([<args,...>])      => AbMake_Empty([<args>])
  340. #xtranslate MaxHndls([<args,...>])        => AbMaxHndls([<args>])
  341. #xtranslate MemFunc([<args,...>])         => AbMemFunc([<args>])
  342. #xtranslate Menu([<args,...>])            => AbMenu([<args>])
  343. #xtranslate Message([<args,...>])         => AbMessage([<args>])
  344. #xtranslate MGetRowCol([<args,...>])      => AbMgetRowCol([<args>])
  345. #xtranslate MMaxCol([<args,...>])         => AbMMaxCol([<args>])
  346. #xtranslate MMaxRow([<args,...>])         => AbMMaxRow([<args>])
  347. #xtranslate MousCrs([<args,...>])         => AbMousCrs([<args>])
  348. #xtranslate MousedGet([<args,...>])       => AbMousedGet([<args>])
  349. #xtranslate MouseInit([<args,...>])       => AbMouseInit([<args>])
  350. #xtranslate MReset([<args,...>])          => AbMReset([<args>])
  351. #xtranslate MSetRowCol([<args,...>])      => AbMSetRowCol([<args>])
  352. #xtranslate MsgBox([<args,...>])          => AbMsgBox([<args>])
  353. #xtranslate MStart([<args,...>])          => AbMStart([<args>])
  354. #xtranslate Net_Use([<args,...>])         => AbNet_Use([<args>])
  355. #xtranslate Not_Req([<args,...>])         => AbNot_Req([<args>])
  356. #xtranslate Numeric([<args,...>])         => AbNumeric([<args>])
  357. #xtranslate Open_Fil([<args,...>])        => AbOpen_Fil([<args>])
  358. #xtranslate PckVld([<args,...>])          => AbPckVld([<args>])
  359. #xtranslate Pdisp([<args,...>])           => AbPdisp([<args>])
  360. #xtranslate Plist([<args,...>])           => AbPlist([<args>])
  361. #xtranslate Publ_Colo([<args,...>])       => AbPubl_Colo([<args>])
  362. #xtranslate Putkey([<args,...>])          => AbPutkey([<args>])
  363. #xtranslate ReadGets([<args,...>])        => AbReadGets([<args>])
  364. #xtranslate Rec_Lock([<args,...>])        => AbRec_Lock([<args>])
  365. #xtranslate Rel_Maint([<args,...>])       => AbRel_Maint([<args>])
  366. #xtranslate Req([<args,...>])             => AbReq([<args>])
  367. #xtranslate Rght_Jst([<args,...>])        => AbRght_Jst([<args>])
  368. #xtranslate Save_It([<args,...>])         => AbSave_It([<args>])
  369. #xtranslate SetMsgLin([<args,...>])       => AbSetMsgLin([<args>])
  370. #xtranslate Shadow([<args,...>])          => AbShadow([<args>])
  371. #xtranslate Show_Memo([<args,...>])       => AbShow_Memo([<args>])
  372. #xtranslate Show_Txt([<args,...>])        => AbShow_Txt([<args>])
  373. #xtranslate TextView([<args,...>])        => AbTextView([<args>])
  374. #xtranslate Thermometr([<args,...>])      => AbThermometr([<args>])
  375. #xtranslate TtlKeyOff([<args,...>])       => AbTtlKeyOff([<args>])
  376. #xtranslate TtlKeyOn([<args,...>])        => AbTtlKeyOn([<args>])
  377. #xtranslate Var([<args,...>])             => AbVar([<args>])
  378. #xtranslate VarInit([<args,...>])         => AbVarInit([<args>])
  379. #xtranslate VarPop([<args,...>])          => AbVarPop([<args>])
  380. #xtranslate VarPush([<args,...>])         => AbVarPush([<args>])
  381. #xtranslate Waitkey([<args,...>])         => AbWaitkey([<args>])
  382. #xtranslate WinBott([<args,...>])         => AbWinBott([<args>])
  383. #xtranslate WinLeft([<args,...>])         => AbWinLeft([<args>])
  384. #xtranslate WinPop([<args,...>])          => AbWinPop([<args>])
  385. #xtranslate WinRight([<args,...>])        => AbWinRight([<args>])
  386. #xtranslate WinStyle([<args,...>])        => AbWinStyle([<args>])
  387. #xtranslate WinTop([<args,...>])          => AbWinTop([<args>])
  388. #xtranslate WinPush([<args,...>])         => AbWinPush([<args>])
  389. #xtranslate Zap_Ibar([<args,...>])        => AbZap_Ibar([<args>])
  390. #xtranslate ZapMPads([<args,...>])        => AbZapMPads([<args>])
  391.  
  392. // BldrAsm.lib functions
  393. #xtranslate ChgDir([<args,...>])          => AbChgDir([<args>])
  394. #xtranslate ChgDsk([<args,...>])          => AbChgDsk([<args>])
  395. #xtranslate DrvTst([<args,...>])          => AbDrvTst([<args>])
  396. #xtranslate Hndls([<args,...>])           => AbHndls([<args>])
  397. #xtranslate IoCtl([<args,...>])           => AbIoCtl([<args>])
  398. #xtranslate MakDir([<args,...>])          => AbMakDir([<args>])
  399. #xtranslate MouseInt([<args,...>])        => AbMouseInt([<args>])
  400. #xtranslate SetMouse([<args,...>])        => AbSetMouse([<args>])
  401. #xtranslate Timeout([<args,...>])         => AbTimeout([<args>])
  402.  
  403. // end of file Builder.ch
  404.