home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 June / PCWorld_2002-06_cd.bin / Software / Komercni / xbase / express / exd17208.r04 / exp17 / Include / Dcdialog.ch < prev    next >
Text File  |  2002-02-04  |  342KB  |  4,739 lines
  1. /*
  2.    Program..: DCDIALOG.CH
  3.    Author...: Roger Donnay
  4.    Notice...: (c) DONNAY Software Designs 1987-2001
  5.    Date.....: Aug 05, 2001
  6.    Notes....: Special Dialog commands for eXPress++
  7. */
  8.  
  9. #include 'xbp.ch'
  10. #include 'gra.ch'
  11.  
  12. #ifndef HKEY_LOCAL_MACHINE
  13.   #include "dcreg.ch"
  14. #endif
  15.  
  16. #ifndef  DCGUI_GETLIST
  17.   #define DCGUI_GETLIST    GetList
  18. #endif
  19.  
  20. #ifndef _DCDIALOG_CH
  21.  
  22. #ifndef MOUSE_ENTER
  23.   #define   MOUSE_ENTER   97
  24. #endif
  25. /*
  26. #define   FORCEVALID    OPTION 101
  27. #define   PICKLIST      OPTION 102
  28. #define   READPROTECT   OPTION 106
  29. #define   CAPFIRST      OPTION 107
  30. #define   DOUBLEPICK    OPTION 112
  31. #define   HIDEIT        OPTION 113
  32. #define   CODEBLOCK     OPTION 114
  33. */
  34. #define   PICKPOINTER   116
  35.  
  36. * ------------------- *
  37.  
  38. #define   SAYRIGHT        SAYOPTION XBPSTATIC_TEXT_RIGHT
  39. #define   SAYLEFT         SAYOPTION XBPSTATIC_TEXT_LEFT
  40. #define   SAYRIGHTBOTTOM  SAYOPTION XBPSTATIC_TEXT_RIGHT + XBPSTATIC_TEXT_BOTTOM
  41. #define   SAYLEFTBOTTOM   SAYOPTION XBPSTATIC_TEXT_LEFT + XBPSTATIC_TEXT_BOTTOM
  42. #define   SAYCENTERBOTTOM SAYOPTION XBPSTATIC_TEXT_CENTER + XBPSTATIC_TEXT_BOTTOM
  43. #define   SAYRIGHTCENTER  SAYOPTION XBPSTATIC_TEXT_RIGHT + XBPSTATIC_TEXT_VCENTER
  44. #define   SAYLEFTCENTER   SAYOPTION XBPSTATIC_TEXT_LEFT + XBPSTATIC_TEXT_VCENTER
  45. #define   SAYRIGHTTOP     SAYOPTION XBPSTATIC_TEXT_RIGHT + XBPSTATIC_TEXT_TOP
  46. #define   SAYLEFTTOP      SAYOPTION XBPSTATIC_TEXT_LEFT + XBPSTATIC_TEXT_TOP
  47. #define   SAYCENTER       SAYOPTION XBPSTATIC_TEXT_CENTER
  48. #define   SAYHCENTER      SAYOPTION XBPSTATIC_TEXT_CENTER
  49. #define   SAYBOTTOM       SAYOPTION XBPSTATIC_TEXT_BOTTOM
  50. #define   SAYTOP          SAYOPTION XBPSTATIC_TEXT_TOP
  51. #define   SAYVCENTER      SAYOPTION XBPSTATIC_TEXT_VCENTER
  52. #define   SAYHVCENTER     SAYOPTION XBPSTATIC_TEXT_VCENTER + XBPSTATIC_TEXT_CENTER
  53. #define   SAYWORDBREAK    SAYOPTION XBPSTATIC_TEXT_WORDBREAK
  54.  
  55. #define   sayright        SAYRIGHT
  56. #define   sayleft         SAYLEFT
  57. #define   sayrightbottom  SAYRIGHTBOTTOM
  58. #define   sayleftbottom   SAYLEFTBOTTOM
  59. #define   saycenterbottom SAYCENTERBOTTOM
  60. #define   sayrightcenter  SAYRIGHTCENTER
  61. #define   sayleftcenter   SAYLEFTCENTER
  62. #define   sayrighttop     SAYRIGHTTOP
  63. #define   saylefttop      SAYLEFTTOP
  64. #define   saycenter       SAYCENTER
  65. #define   sayhcenter      SAYHCENTER
  66. #define   saybottom       SAYBOTTOM
  67. #define   saytop          SAYTOP
  68. #define   sayvcenter      SAYVCENTER
  69. #define   sayhvcenter     SAYHVCENTER
  70.  
  71. #define   TOOLBAR_TOP                1
  72. #define   TOOLBAR_LEFT               2
  73. #define   TOOLBAR_BOTTOM             3
  74. #define   TOOLBAR_RIGHT              4
  75. #define   TOOLBAR_TOP_LEFT           1
  76. #define   TOOLBAR_LEFT_TOP           2
  77. #define   TOOLBAR_BOTTOM_LEFT        3
  78. #define   TOOLBAR_RIGHT_TOP          4
  79. #define   TOOLBAR_TOP_RIGHT          5
  80. #define   TOOLBAR_BOTTOM_RIGHT       6
  81. #define   TOOLBAR_LEFT_BOTTOM        7
  82. #define   TOOLBAR_RIGHT_BOTTOM       8
  83.  
  84. #define   DCGUI_ALIGN_TOP            1
  85. #define   DCGUI_ALIGN_LEFT           2
  86. #define   DCGUI_ALIGN_BOTTOM         3
  87. #define   DCGUI_ALIGN_RIGHT          4
  88.  
  89. #define   BROWSE_ARRAY               1
  90. #define   BROWSE_DATABASE            2
  91. #define   BROWSE_SQLEXPRESS          3
  92.  
  93. #define   MESSAGEBOX_TOP             1
  94. #define   MESSAGEBOX_BOTTOM          2
  95.  
  96. #define   DCGUI_DRAG_ENTIRE_OBJECT   1    // POINTER_ARROW_L
  97. #define   DCGUI_DRAG_RIGHT_TOP       2    // POINTER_SIZE1_1
  98. #define   DCGUI_DRAG_LEFT_BOTTOM     3    // POINTER_SIZE1_1
  99. #define   DCGUI_DRAG_LEFT_TOP        4    // POINTER_SIZE2_1
  100. #define   DCGUI_DRAG_RIGHT_BOTTOM    5    // POINTER_SIZE2_1
  101. #define   DCGUI_DRAG_LEFT            6    // POINTER_SIZE3_1
  102. #define   DCGUI_DRAG_RIGHT           7    // POINTER_SIZE3_1
  103. #define   DCGUI_DRAG_TOP             8    // POINTER_SIZE4_1
  104. #define   DCGUI_DRAG_BOTTOM          9    // POINTER_SIZE4_1
  105.  
  106. #define   DCGUI_REGION_OCTAGON       1
  107. #define   DCGUI_REGION_DIAMOND       2
  108. #define   DCGUI_REGION_ELLIPSE       3
  109.  
  110. #define   DCGUI_NONE            1    // Handle Default Event
  111. #define   DCGUI_IGNORE          2    // Ignore Event
  112. #define   DCGUI_CLEAR           3    // Ignore Event and Clear Queue
  113. #define   DCGUI_EXIT            4    // Exit GUI Reader
  114. #define   DCGUI_EXIT_ABORT      5    // Exit GUI Reader WITH .FALSE. and ;
  115.                                      // restore all memvars
  116. #define   DCGUI_EXIT_OK         6    // Exit GUI Reader WITH .TRUE.
  117. #define   DCGUI_MOVE_UP         7    // Set Focus to previous item in GetList
  118. #define   DCGUI_MOVE_DOWN       8    // Set Focus to next item in Getlist
  119. #define   DCGUI_MOVE_TOP        9    // Set Focus to first item in Getlist
  120. #define   DCGUI_MOVE_BOTTOM     10   // Set Focus to last item in GetList
  121. #define   DCGUI_MOVE_UP_PAR     11   // Set Focus to previous item in Parent
  122. #define   DCGUI_MOVE_DOWN_PAR   12   // Set Focus to next item in Parent
  123. #define   DCGUI_MOVE_TOP_PAR    13   // Set Focus to first item in Parent
  124. #define   DCGUI_MOVE_BOTTOM_PAR 14   // Set Focus to last item in Parent
  125. #define   DCGUI_NOHOTKEY        15   // Don't activate any hotkey associated with current event
  126.  
  127. #define   DCGUI_TAB_SELECT_NEXT     1    // Select Next Tab Page
  128. #define   DCGUI_TAB_SELECT_PREVIOUS 2    // Select Previous Tab Page
  129. #define   DCGUI_TAB_SELECT_FIRST    3    // Select First Tab Page
  130. #define   DCGUI_TAB_SELECT_LAST     4    // Select Last Tab Page
  131.  
  132. #define   DCGUI_DEBUG_CREATE        1    // Turn on debugging during creation
  133. #define   DCGUI_DEBUG_EVENTS        2    // Turn on Event Spy debugging in Event Loop
  134. #define   DCGUI_DEBUG_VALIDATE      4    // Turn on debugging when validating
  135.  
  136. #define   DCGUI_HELP_REQUEST        1    // Array element of :helpLink that holds F1 Help Request Object
  137. #define   DCGUI_HELP_TOOLTIP        2    // Array element of :helpLink that holds Tooltip Object
  138.  
  139. #define   DCGUI_ROW                 -10000
  140. #define   DCGUI_COL                 -10000
  141.  
  142. #define   DCGETREFRESH_ID_INCLUDE   1    // Only refresh included IDs
  143. #define   DCGETREFRESH_ID_EXCLUDE   2    // Only refresh excluded IDs
  144. #define   DCGETREFRESH_TYPE_INCLUDE 3    // Only refresh included Types
  145. #define   DCGETREFRESH_TYPE_EXCLUDE 4    // Only refresh excluded Types
  146.  
  147. #define   DCGUI_BROWSE_EDITEXIT     0    // Exit cell editing after ENTER
  148.  
  149. #define   DCGUI_BROWSE_EDITACROSS   1    // Move across columns during browse edit after ENTER
  150.  
  151. #define   DCGUI_BROWSE_EDITDOWN     2    // Move down columns during browse edit after ENTER
  152.  
  153. #define   DCGUI_BROWSE_INSERT       3    // Insert a new array element or record in browse
  154.  
  155. #define   DCGUI_BROWSE_DELETE       4    // Delete array element or record in browse
  156.  
  157. #define   DCGUI_BROWSE_EDITACROSSDOWN  ;
  158.                                     5    // Move across and then down
  159.  
  160. #define   DCGUI_BROWSE_APPEND       6    // Add a new array element or record in browse
  161.  
  162. #define   DCGUI_BROWSE_EDITACROSSDOWN_APPEND  ;
  163.                                     7    // Move across and then down.  Append new element or record
  164.                                          // if hit bottom.
  165.  
  166. #define   DCGUI_BROWSE_SUBMODE_1    1    // Don't allow movement to move to new row
  167. #define   DCGUI_BROWSE_SUBMODE_2    2    // Allow movement to new row
  168.  
  169. #define   DCGUI_BUTTON_OK           1    // Add OK Button
  170. #define   DCGUI_BUTTON_CANCEL       2    // Add CANCEL Button
  171. #define   DCGUI_BUTTON_EXIT         4    // Add EXIT Button
  172. #define   DCGUI_BUTTON_HELP         8    // Add HELP Button
  173. #define   DCGUI_BUTTON_CUSTOM    1024    // Add CUSTOM Button
  174.  
  175. #define   DCGUI_BUTTONALIGN_LEFT    0    // Align Buttons Left
  176. #define   DCGUI_BUTTONALIGN_CENTER  1    // Align Buttons Center
  177. #define   DCGUI_BUTTONALIGN_RIGHT   2    // Align Buttons Right
  178.  
  179. #define   DCGUI_POPUPSTYLE_OUTSIDE  0    // Popup Button is outside of GET
  180. #define   DCGUI_POPUPSTYLE_IMBEDDED 1    // Popup Button is imbedded in GET
  181.  
  182. // Events  ( 2000 - 2999 reserved by eXPress++ )
  183.  
  184. #define   DCGUI_EVENT_BROWSE_REFRESH  xbeP_User + 2000
  185.  
  186. #define   DCGUI_WINMENU_DESTROYMODE_EXIT   0
  187. #define   DCGUI_WINMENU_DESTROYMODE_CLOSE  1
  188.  
  189.  
  190. * ------------------- *
  191.  
  192. #define GETLIST_STATIC           1
  193. #define GETLIST_GET              2
  194. #define GETLIST_MLE              3
  195. #define GETLIST_3STATE           4
  196. #define GETLIST_CHECKBOX         5
  197. #define GETLIST_COMBOBOX         6
  198. #define GETLIST_LISTBOX          7
  199. #define GETLIST_PUSHBUTTON      10
  200. #define GETLIST_RADIOBUTTON     11
  201. #define GETLIST_SAY             12
  202. #define GETLIST_SAY_OPT         12.1
  203. #define GETLIST_ADDBUTTON       13
  204. #define GETLIST_SPINBUTTON      14
  205.  
  206. #define GETLIST_GROUPBOX        19
  207. #define GETLIST_TABPAGE         20
  208. #define GETLIST_SCROLLBAR       21
  209. #define GETLIST_BITMAP          22
  210. #define GETLIST_METAFILE        23
  211. #define GETLIST_TOOLBAR         24
  212. #define GETLIST_TOOLBAR_OPT     24.1
  213. #define GETLIST_MENUBAR         25
  214. #define GETLIST_SUBMENU         26
  215. #define GETLIST_MENUITEM        27
  216. #define GETLIST_BROWSE          28
  217. #define GETLIST_BROWSECOL       29
  218.  
  219. #define GETLIST_MESSAGEBOX      30
  220. #define GETLIST_MESSAGEBOX_OPT  30.1
  221. #define GETLIST_CUSTOM          31
  222. #define GETLIST_APPCRT          32
  223. #define GETLIST_PICKLIST        33
  224. #define GETLIST_PROGRESS        34
  225. #define GETLIST_STATUSBAR       35
  226. #define GETLIST_HOTKEY          36
  227. #define GETLIST_QUICKBROWSE     37
  228.  
  229. #define GETLIST_APPEDIT         40
  230. #define GETLIST_APPBROWSE       41
  231. #define GETLIST_APPFIELD        42
  232.  
  233. #define GETLIST_DIRTREE         50
  234.  
  235. #define GETLIST_TREEARRAY       60
  236. #define GETLIST_DIALOG          61
  237. #define GETLIST_TREEROOT        62
  238. #define GETLIST_TREEITEM        63
  239.  
  240. #define GETLIST_GRASTRING       70
  241. #define GETLIST_GRALINE         71
  242. #define GETLIST_GRABOX          72
  243. #define GETLIST_GRAPROC         73
  244.  
  245. #define GETLIST_OBJECT          80
  246.  
  247. #define GETLIST_SETGROUP        97
  248. #define GETLIST_SETPARENT       98
  249. #define GETLIST_DATASTORE       99
  250. #define GETLIST_CLICK           100
  251.  
  252. * -- 200 thru 499 are reserved for third party support -- *
  253. #define GETLIST_3P_START        200
  254. #define GETLIST_KLMLE           200
  255.  
  256. #define GETLIST_3P_END          499
  257.  
  258. #define GETLIST_USER            1000
  259.  
  260. #define nGETLIST_TYPE            1
  261. #define nGETLIST_SUBTYPE         2
  262. #define cGETLIST_CAPTION         3
  263. #define bGETLIST_VAR             4
  264. #define nGETLIST_STARTROW        5
  265. #define nGETLIST_STARTCOL        6
  266. #define nGETLIST_ENDROW          7
  267. #define nGETLIST_ENDCOL          8
  268. #define nGETLIST_WIDTH           9
  269. #define nGETLIST_HEIGHT         10
  270. #define cGETLIST_FONT           11
  271. #define cGETLIST_PICTURE        12
  272. #define bGETLIST_WHEN           13
  273. #define bGETLIST_VALID          14
  274. #define cGETLIST_TOOLTIP        15
  275. #define xGETLIST_CARGO          16
  276. #define aGETLIST_PRESENTATION   17
  277. #define bGETLIST_ACTION         18
  278. #define oGETLIST_OBJECT         19
  279. #define xGETLIST_ORIGVALUE      20
  280. #define xGETLIST_OPTIONS        21
  281. #define aGETLIST_COLOR          22
  282. #define cGETLIST_MESSAGE        23
  283. #define cGETLIST_HELPCODE       24
  284. #define cGETLIST_VARNAME        25
  285. #define bGETLIST_READVAR        26
  286. #define bGETLIST_DELIMVAR       27
  287. #define bGETLIST_GROUP          28
  288. #define nGETLIST_POINTER        29
  289. #define bGETLIST_PARENT         30
  290. #define bGETLIST_REFVAR         31
  291. #define bGETLIST_PROTECT        32
  292. #define lGETLIST_PIXEL          33
  293. #define nGETLIST_CURSOR         34
  294. #define bGETLIST_EVAL           35
  295. #define bGETLIST_RELATIVE       36
  296. #define xGETLIST_OPTIONS2       37
  297. #define xGETLIST_OPTIONS3       38
  298. #define xGETLIST_OPTIONS4       39
  299. #define xGETLIST_OPTIONS5       40
  300. #define xGETLIST_OPTIONS6       41
  301. #define xGETLIST_OPTIONS7       42
  302. #define xGETLIST_OPTIONS8       43
  303. #define xGETLIST_OPTIONS9       44
  304. #define cGETLIST_LEVEL          45
  305. #define cGETLIST_TITLE          46
  306. #define cGETLIST_ACCESS         47
  307. #define bGETLIST_COMPILE        48
  308. #define cGETLIST_ID             49
  309. #define dGETLIST_REVDATE        50
  310. #define cGETLIST_REVTIME        51
  311. #define cGETLIST_REVUSER        52
  312. #define bGETLIST_HIDE           53
  313. #define nGETLIST_ACCELKEY       54
  314. #define bGETLIST_GOTFOCUS       55
  315. #define bGETLIST_LOSTFOCUS      56
  316. #define lGETLIST_TABSTOP        57
  317. #define nGETLIST_TABGROUP       58
  318. #define lGETLIST_VISIBLE        59
  319. #define cGETLIST_GETGROUP       60
  320. #define lGETLIST_FLAG           61
  321. #define aGETLIST_PROC           62
  322. #define bGETLIST_PREEVAL        63
  323.  
  324. #define nGET_ARRAY_SIZE         63
  325.  
  326. #define cGETOPT_NAME            1
  327. #define cGETOPT_TITLE           2
  328. #define nGETOPT_WNDHEIGHT       3
  329. #define nGETOPT_WNDWIDTH        4
  330. #define nGETOPT_ROWSPACE        5
  331. #define nGETOPT_SAYWIDTH        6
  332. #define cGETOPT_SAYFONT         7
  333. #define cGETOPT_GETFONT         8
  334. #define nGETOPT_GETHEIGHT       9
  335. #define aGETOPT_BUTTONS        10
  336. #define nGETOPT_WNDROW         11
  337. #define nGETOPT_WNDCOL         12
  338. #define nGETOPT_ROWOFFSET      13
  339. #define nGETOPT_COLOFFSET      14
  340. #define lGETOPT_DESIGN         15
  341. #define cGETOPT_MENU           16
  342. #define lGETOPT_PIXEL          17
  343. #define xGETOPT_SPARE          18
  344. #define nGETOPT_ICON           19
  345. #define lGETOPT_CHECKGET       20
  346. #define cGETOPT_HELPFILE       21
  347. #define lGETOPT_VISIBLE        22
  348. #define lGETOPT_TRANSLATE      23
  349. #define lGETOPT_SAYRIGHT       24
  350. #define nGETOPT_BITMAP         25
  351. #define aGETOPT_PRESENT        26
  352. #define nGETOPT_BGCOLOR        27
  353. #define nGETOPT_SAYOPT         28
  354. #define bGETOPT_EVAL           29
  355. #define nGETOPT_MODALSTATE     30
  356. #define nGETOPT_SAYHEIGHT      31
  357. #define lGETOPT_MINBUTTON      32
  358. #define lGETOPT_MAXBUTTON      33
  359. #define lGETOPT_TABSTOP        34
  360. #define lGETOPT_ABORTQUERY     35
  361. #define nGETOPT_ROWPIXELS      36
  362. #define nGETOPT_COLPIXELS      37
  363. #define lGETOPT_ESCAPEKEY      38
  364. #define cGETOPT_SOURCECODE     39
  365. #define aGETOPT_TOOLCOLOR      40
  366. #define nGETOPT_BORDER         41
  367. #define lGETOPT_EXVALID        42
  368. #define lGETOPT_CLOSEQUERY     43
  369. #define lGETOPT_NOTASKLIST     44
  370. #define aGETOPT_MINSIZE        45
  371. #define aGETOPT_MAXSIZE        46
  372. #define lGETOPT_NORESIZE       47
  373. #define lGETOPT_NOTITLEBAR     48
  374. #define lGETOPT_NOMOVE         49
  375. #define nGETOPT_ORIGIN         50
  376. #define nGETOPT_HILITECOLOR    51
  377. #define lGETOPT_SUPERVISE      52
  378. #define lGETOPT_HIDEDIALOG     53
  379. #define lGETOPT_NOBUSY         54
  380. #define cGETOPT_BUSYMSG        55
  381. #define nGETOPT_DESIGNKEY      56
  382. #define lGETOPT_CASCADE        57
  383. #define lGETOPT_AUTORESIZE     58
  384. #define aGETOPT_COLORGETS      59
  385. #define lGETOPT_CONFIRM        60
  386. #define nGETOPT_FITPAD         61
  387. #define nGETOPT_BUTTONALIGN    62
  388. #define lGETOPT_EXITQUERY      63
  389. #define nGETOPT_DISABLEDCOLOR  64
  390. #define lGETOPT_ENTERTAB       65
  391. #define bGETOPT_PREEVAL        66
  392. #define cGETOPT_FONT           67
  393. #define bGETOPT_EDITPROTECT    68
  394. #define oGETOPT_MESSAGEINTO    69
  395. #define bGETOPT_NOEDITNAVKEYS  70
  396. #define aGETOPT_BUTTONSOUND    71
  397. #define lGETOPT_MESSAGECLEAR   72
  398. #define cGETOPT_HELPCODE       73
  399. #define lGETOPT_AUTOWINMENU    74
  400. #define cGETOPT_KEYBOARD       75
  401. #define lGETOPT_NOWINMENU      76
  402.  
  403. #define nGETOPT_ARRAY_SIZE     76
  404.  
  405. * ------------------------------- *
  406.  
  407. #xcommand DEFAULT <uVar1> := <uVal1> ;
  408.                [, <uVarN> := <uValN> ] => ;
  409.      <uVar1> := IIF(Valtype(<uVar1>)==Valtype(<uVal1>).OR.<uVal1>==NIL,<uVar1>,<uVal1>) ;;
  410.    [ <uVarN> := IIF(Valtype(<uVarN>)==Valtype(<uValN>).OR.<uValN>==NIL,<uVarN>,<uValN>); ]
  411.  
  412.  
  413. * ------------------------------- *
  414.  
  415. #xcommand LOGICDEFAULT <uVar> := <uVal>  => ;
  416.           <uVar> := IIF(Valtype(<uVar>)=='L',<uVar>, ;
  417.                     IIF(Valtype(<uVal>)=='L',<uVal>,.f.))
  418.  
  419. * ------------------------------- *
  420.  
  421. #command  @ <nRow> [,<nCol>] DCDIALOG <oObject>                             ;
  422.                 [DRAWINGAREA <oDrawingArea>]                                ;
  423.                 [FONT <cFont>]                                              ;
  424.                 [<c:CAPTION,TITLE> <cTitle>]                                ;
  425.                 [BITMAP <nBitMap>]                                          ;
  426.                 [ICON <nIcon>]                                              ;
  427.                 [COLOR <ncFgC> [,<ncBgC>] ]                                 ;
  428.                 [PARENT <oParent>]                                          ;
  429.                 [PARENTID <cPID>]                                           ;
  430.                 [SIZE <nWidth> [,<nHeight>]]                                ;
  431.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  432.                 [PRESENTATION <aPres>]                                      ;
  433.                 [CARGO <xCargo>]                                            ;
  434.                 [CURSOR <nCursor>]                                          ;
  435.                 [EVAL <bEval>]                                              ;
  436.                 [PREEVAL <bPreEval>]                                        ;
  437.                 [RELATIVE <oRel>]                                           ;
  438.                 [WHEN <bWhen>]                                              ;
  439.                 [HIDE <bHide>]                                              ;
  440.                 [TITLE <cTitle>]                                            ;
  441.                 [ID <cId>]                                                  ;
  442.                 [<lModal:MODAL>] [_MODAL <_modal>]                          ;
  443.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  444.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  445.                 [<lNoMin:NOMINBUTTON,NOMINIMIZE>] [_NOMINBUTTON <_nomin>]   ;
  446.                 [<lNoMax:NOMAXBUTTON,NOMAXIMIZE>] [_NOMAXBUTTON <_nomax>]   ;
  447.                 [GROUP <cGroup>]                                            ;
  448.                 [BORDER <nBorder>]                                          ;
  449.                 [<lNoTitleBar:NOTITLEBAR>] [_NOTITLEBAR <_notitlebar>]      ;
  450.                 [<lNoReSize:NORESIZE>] [_NORESIZE <_noresize>]              ;
  451.                 [<lNoTaskList:NOTASKLIST>] [_NOTASKLIST <_notasklist>]      ;
  452.                 [MINSIZE <nMinCol>, <nMinRow>]                              ;
  453.                 [MAXSIZE <nMaxCol>, <nMaxRow>]                              ;
  454.                 [MENU <acMenu> [MSGBOX <oMsgBox>]]                          ;
  455.                 [GOTFOCUS <bGotFocus>]                                      ;
  456.                 [LOSTFOCUS <bLostFocus>]                                    ;
  457.                 [<lAutoResize:AUTORESIZE>] [_AUTORESIZE <_autoresize>]      ;
  458.                 [<lFit:FIT> [_FIT <_fit>] [FITPAD <nFitPad>]]               ;
  459.                 [<lSetAppWindow:SETAPPWINDOW>]                              ;
  460.                 [_SETAPPWINDOW <_setappwindow>]                             ;
  461.   =>                                                                        ;
  462.    AADD( DCGUI_GETLIST,                                                     ;
  463.     { GETLIST_DIALOG,                           /* nGETLIST_TYPE         */ ;
  464.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  465.       <cTitle>,                                 /* cGETLIST_CAPTION      */ ;
  466.       nil,                                      /* bGETLIST_VAR          */ ;
  467.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  468.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  469.       nil,                                      /* nGETLIST_ENDROW       */ ;
  470.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  471.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  472.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  473.       <cFont>,                                  /* cGETLIST_FONT         */ ;
  474.       nil,                                      /* cGETLIST_PICTURE      */ ;
  475.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  476.       nil,                                      /* bGETLIST_VALID        */ ;
  477.       nil,                                      /* cGETLIST_TOOLTIP      */ ;
  478.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  479.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  480.       nil,                                      /* bGETLIST_ACTION       */ ;
  481.       nil,                                      /* oGETLIST_OBJECT       */ ;
  482.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  483.       { <nIcon>,<nBitMap>,!<.lNoMin.> [.AND. !<_nomin>],                    ;
  484.         !<.lNoMax.> [.AND. !<_nomax>],                                      ;
  485.         <.lModal.> [.OR. <_modal>],<nBorder>,                               ;
  486.         !<.lNoTitleBar.> [.AND. !<_notitlebar>],                            ;
  487.         <.lNoReSize.> [.OR. <_noresize>],                                   ;
  488.         [{<nMinCol>, <nMinRow>}],[{<nMaxCol>, <nMaxRow>}],                  ;
  489.         <.lNoTaskList.> [.OR. <_notasklist>],<.lFit.> [.OR. <_fit>],        ;
  490.         <nFitPad>,                                                          ;
  491.         <.lSetAppWindow.> [.OR. <_setappwindow>] },                         ;
  492.                                                 /* xGETLIST_OPTIONS      */ ;
  493.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  494.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  495.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  496.       nil,                                      /* cGETLIST_VARNAME      */ ;
  497.       nil,                                      /* bGETLIST_READVAR      */ ;
  498.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  499.       [DC_GetAnchorCB(@<oObject>,'O')],         /* bGETLIST_GROUP        */ ;
  500.       nil,                                      /* nGETLIST_POINTER      */ ;
  501.       [{DC_GetAnchorCB(@<oParent>,'O'),<(oParent)>,'O'}][<cPID>],           ;
  502.                                                 /* bGETLIST_PARENT       */ ;
  503.       [{DC_GetAnchorCB(@<oDrawingArea>,'O'),<(oDrawingArea)>,'O'}],         ;
  504.                                                 /* bGETLIST_REFVAR       */ ;
  505.       nil,                                      /* bGETLIST_PROTECT      */ ;
  506.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  507.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  508.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  509.       [{DC_GetAnchorCb(@<oRel>,'O'),<(oRel)>,'O'}],                         ;
  510.                                                 /* bGETLIST_RELATIVE     */ ;
  511.       [{<acMenu>,<oMsgBox>}],                   /* xGETLIST_OPTIONS2     */ ;
  512.       <.lAutoResize.>,                          /* xGETLIST_OPTIONS3     */ ;
  513.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  514.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  515.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  516.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  517.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  518.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  519.       nil,                                      /* cGETLIST_LEVEL        */ ;
  520.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  521.       nil,                                      /* cGETLIST_ACCESS       */ ;
  522.       nil,                                      /* bGETLIST_COMPILE      */ ;
  523.       <cId>,                                    /* cGETLIST_ID           */ ;
  524.       nil,                                      /* dGETLIST_REVDATE      */ ;
  525.       nil,                                      /* cGETLIST_REVTIME      */ ;
  526.       nil,                                      /* cGETLIST_REVUSER      */ ;
  527.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  528.       nil,                                      /* nGETLIST_ACCELKEY     */ ;
  529.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  530.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  531.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  532.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  533.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  534.                                                 /* lGETLIST_VISIBLE      */ ;
  535.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  536.       .f.,                                      /* lGETLIST_FLAG         */ ;
  537.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  538.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  539.     } )
  540.  
  541. * ------------------------ *
  542.  
  543. #command   @ <nRow> [,<nCol>] DCSAY [<cText>]                               ;
  544.                 [SAYVAR <uSayVar>]                                          ;
  545.                 [<font:FONT,SAYFONT> <cFont>]                               ;
  546.                 [PICTURE <cPict>]                                           ;
  547.                 [<color:COLOR,SAYCOLOR> <ncFgC> [,<ncBgC>] ]                ;
  548.                 [PARENT <oParent>]                                          ;
  549.                 [PARENTID <cPID>]                                           ;
  550.                 [<option:OPTIONS,SAYOPTIONS> <nOpt>]                        ;
  551.                 [<size:SIZE,SAYSIZE> <nWidth> [,<nHeight>]]                 ;
  552.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  553.                 [PRESENTATION <aPres>]                                      ;
  554.                 [<tool:TOOLTIP,SAYTOOLTIP> <cToolTip>]                      ;
  555.                 [<object:OBJECT,SAYOBJECT> <oObject>]                       ;
  556.                 [CARGO <xCargo>]                                            ;
  557.                 [CURSOR <nCursor>]                                          ;
  558.                 [<eval:EVAL,SAYEVAL> <bEval>]                               ;
  559.                 [<peval:PREEVAL,SAYPREEVAL> <bPreEval>]                     ;
  560.                 [RELATIVE <oRel>]                                           ;
  561.                 [WHEN <bWhen>]                                              ;
  562.                 [HIDE <bHide>]                                              ;
  563.                 [TITLE <cTitle>]                                            ;
  564.                 [<id:ID,SAYID> <cId>]                                       ;
  565.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  566.                 [<lInvisible:INVISIBLE>] [_INVISIBLE <_invis>]              ;
  567.                 [GROUP <cGroup>]                                            ;
  568.                 [<lGraString:GRASTRING>] [_GRASTRING <_grastring>]          ;
  569.   =>                                                                        ;
  570.    AADD( DCGUI_GETLIST,                                                     ;
  571.     { GETLIST_SAY,                              /* nGETLIST_TYPE         */ ;
  572.       XBPSTATIC_TYPE_TEXT,                      /* nGETLIST_SUBTYPE      */ ;
  573.       <cText>,                                  /* cGETLIST_CAPTION      */ ;
  574.       [{DC_GetAnchorCB(@<uSayVar>,'C'),                                     ;
  575.                        <(uSayVar)>,'C'}],       /* bGETLIST_VAR          */ ;
  576.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  577.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  578.       nil,                                      /* nGETLIST_ENDROW       */ ;
  579.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  580.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  581.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  582.       [<cFont>],                                /* cGETLIST_FONT         */ ;
  583.       <cPict>,                                  /* cGETLIST_PICTURE      */ ;
  584.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  585.       nil,                                      /* bGETLIST_VALID        */ ;
  586.       [<cToolTip>],                             /* cGETLIST_TOOLTIP      */ ;
  587.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  588.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  589.       nil,                                      /* bGETLIST_ACTION       */ ;
  590.       nil,                                      /* oGETLIST_OBJECT       */ ;
  591.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  592.       {<nOpt>},                                 /* xGETLIST_OPTIONS      */ ;
  593.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  594.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  595.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  596.       nil,                                      /* cGETLIST_VARNAME      */ ;
  597.       nil,                                      /* bGETLIST_READVAR      */ ;
  598.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  599.       [{DC_GetAnchorCB(@<oObject>,'O'),                                     ;
  600.                         <(oObject)>,'O'}],      /* bGETLIST_GROUP        */ ;
  601.       nil,                                      /* nGETLIST_POINTER      */ ;
  602.       [{DC_GetAnchorCB(@<oParent>,'O'),<(oParent)>,'O'}] [<cPID>],          ;
  603.                                                 /* bGETLIST_PARENT       */ ;
  604.       nil,                                      /* bGETLIST_REFVAR       */ ;
  605.       nil,                                      /* bGETLIST_PROTECT      */ ;
  606.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  607.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  608.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  609.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  610.                          <oRel>,'O'}],          /* bGETLIST_RELATIVE     */ ;
  611.       <.lGraString.> [.OR. <_grastring>],       /* xGETLIST_OPTIONS2     */ ;
  612.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  613.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  614.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  615.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  616.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  617.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  618.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  619.       nil,                                      /* cGETLIST_LEVEL        */ ;
  620.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  621.       nil,                                      /* cGETLIST_ACCESS       */ ;
  622.       nil,                                      /* bGETLIST_COMPILE      */ ;
  623.       [<cId>],                                  /* cGETLIST_ID           */ ;
  624.       nil,                                      /* dGETLIST_REVDATE      */ ;
  625.       nil,                                      /* cGETLIST_REVTIME      */ ;
  626.       nil,                                      /* cGETLIST_REVUSER      */ ;
  627.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  628.       nil,                                      /* nGETLIST_ACCELKEY     */ ;
  629.       nil,                                      /* bGETLIST_GOTFOCUS     */ ;
  630.       nil,                                      /* bGETLIST_LOSTFOCUS    */ ;
  631.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  632.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  633.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  634.                                                 /* lGETLIST_VISIBLE      */ ;
  635.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  636.       .f.,                                      /* lGETLIST_FLAG         */ ;
  637.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  638.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  639.     } )
  640.  
  641. * ------------------------------- *
  642.  
  643. #command  @ <nSayRow> [,<nSayCol>] DCSAY [<cText>]                          ;
  644.                 GET <uVar>                                                  ;
  645.                 [GETPOS <nGetRow> [,<nGetCol>] ]                            ;
  646.                 [DATALINK <bLink>]                                          ;
  647.                 [SAYVAR <uSayVar>]                                          ;
  648.                 [<color:COLOR,SAYCOLOR> <ncSayFgC> [,<ncSayBgC>] ]          ;
  649.                 [GETCOLOR <ncGetFgC> [,<ncGetBgC>] ]                        ;
  650.                 [OPTION <option>]                                           ;
  651.                 [<lGraString:GRASTRING>] [_GRASTRING <_grastring>]          ;
  652.                 [SAYSIZE <nSayWidth> [,<nSayHeight>]]                       ;
  653.                 [GETSIZE <nGetWidth> [,<nGetHeight>]]                       ;
  654.                 [PARENT <oParent>]                                          ;
  655.                 [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
  656.                 [VALID <bValid>]                                            ;
  657.                 [SAYOPTION <nSayOpt>]                                       ;
  658.                 [HELPCODE <cHelpCode>]                                      ;
  659.                 [PREBLOCK <preblock>]                                       ;
  660.                 [POSTBLOCK <postblock>]                                     ;
  661.                 [<kb:KEYBLOCK,KEYBOARD> <keyblock>]                         ;
  662.                 [PICTURE <cPict>]                                           ;
  663.                 [WHEN <bWhen>]                                              ;
  664.                 [HIDE <bHide>]                                              ;
  665.                 [EDITPROTECT <bProtect>]                                    ;
  666.                 [<u: UNREADABLE>] [_UNREADABLE <_unreadable>]               ;
  667.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  668.                 [<noconfirm: NOCONFIRM>] [_NOCONFIRM <_noconfirm>]          ;
  669.                 [<confirm: CONFIRM>] [_CONFIRM <_confirm>]                  ;
  670.                 [SAYPRESENTATION <aSayPres>]                                ;
  671.                 [GETPRESENTATION <aGetPres>]                                ;
  672.                 [TOOLTIP <cToolTip>]                                        ;
  673.                 [SAYTOOLTIP <cSayToolTip>]                                  ;
  674.                 [GETTOOLTIP <cGetToolTip>]                                  ;
  675.                 [SAYOBJECT <oSayObject>]                                    ;
  676.                 [GETOBJECT <oGetObject>]                                    ;
  677.                 [SAYCURSOR <nSayCursor>]                                    ;
  678.                 [GETCURSOR <nGetCursor>]                                    ;
  679.                 [SAYCARGO <xSayCargo>]                                      ;
  680.                 [GETCARGO <xGetCargo>]                                      ;
  681.                 [SAYEVAL <bSayEval>]                                        ;
  682.                 [SAYPREEVAL <bSayPreEval>]                                  ;
  683.                 [GETEVAL <bGetEval>]                                        ;
  684.                 [GETPREEVAL <bGetPreEval>]                                  ;
  685.                 [SAYTITLE <cSayTitle>]                                      ;
  686.                 [GETTITLE <cGetTitle>]                                      ;
  687.                 [SAYFONT <cSayFont>]                                        ;
  688.                 [GETFONT <cGetFont>]                                        ;
  689.                 [RELATIVE <oRel>]                                           ;
  690.                 [SAYID <cSayId>]                                            ;
  691.                 [GETID <cGetId>]                                            ;
  692.                 [POPUP <bPopUp> [<lPopTab:POPTABSTOP>]                      ;
  693.                    [<d:DROPDOWN>] [POPCAPTION <c>] [POPFONT <f>]            ;
  694.                    [POPWIDTH <w>] [POPHEIGHT <h>]                           ;
  695.                    [POPSTYLE <s>] [POPKEY <k>] [<g:POPGLOBAL>] ]            ;
  696.                    [POPTOOLTIP <t>]                                         ;
  697.                 [<pv:POPVALID>]                                             ;
  698.                 [COMBO [HEIGHT <nComboHeight>] [WIDTH <nComboWidth>]        ;
  699.                     [DATA <acbComboData>]                                   ;
  700.                     [<nf:FIELD,ELEMENT> <nbField>] [RETURN <bReturn>] ]     ;
  701.                 [ACCELKEY <nAccel>]                                         ;
  702.                 [REFERENCE <xRef>]                                          ;
  703.                 [GOTFOCUS <bGotFocus>]                                      ;
  704.                 [LOSTFOCUS <bLostFocus>]                                    ;
  705.                 [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
  706.                 [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
  707.                 [TABGROUP <nTabGroup>]                                      ;
  708.                 [<pass:PASSWORD>] [_PASSWORD <_password>]                   ;
  709.                 [<proper:PROPER> [PROPOPTIONS <aProperOptions>]]            ;
  710.                 [_PROPER <_proper>]                                         ;
  711.                 [<ljust:LEFTJUSTIFY>] [_LEFTJUSTIFY <_leftjustify>]         ;
  712.                 [RANGE <nStart>, <nEnd>]                                    ;
  713.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  714.                 [<lInvisible:INVISIBLE>] [_INVISIBLE <_invis>]              ;
  715.                 [GROUP <cGroup>]                                            ;
  716.   =>                                                                        ;
  717.    AADD( DCGUI_GETLIST,                                                     ;
  718.     { GETLIST_SAY,                              /* nGETLIST_TYPE         */ ;
  719.       XBPSTATIC_TYPE_TEXT,                      /* nGETLIST_SUBTYPE      */ ;
  720.       <cText>,                                  /* cGETLIST_CAPTION      */ ;
  721.       [{DC_GetAnchorCB(@<uSayVar>,'C'),                                     ;
  722.                        <(uSayVar)>,'C'}],       /* bGETLIST_VAR          */ ;
  723.       <nSayRow>,                                /* nGETLIST_STARTROW     */ ;
  724.       <nSayCol>,                                /* nGETLIST_STARTCOL     */ ;
  725.       nil,                                      /* nGETLIST_ENDROW       */ ;
  726.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  727.       <nSayWidth>,                              /* nGETLIST_WIDTH        */ ;
  728.       <nSayHeight>,                             /* nGETLIST_HEIGHT       */ ;
  729.       <cSayFont>,                               /* cGETLIST_FONT         */ ;
  730.       nil,                                      /* cGETLIST_PICTURE      */ ;
  731.       nil,                                      /* bGETLIST_WHEN         */ ;
  732.       nil,                                      /* bGETLIST_VALID        */ ;
  733.       [<cToolTip>][<cSayToolTip>],              /* cGETLIST_TOOLTIP      */ ;
  734.       <xSayCargo>,                              /* xGETLIST_CARGO        */ ;
  735.       <aSayPres>,                               /* aGETLIST_PRESENTATION */ ;
  736.       nil,                                      /* bGETLIST_ACTION       */ ;
  737.       nil,                                      /* oGETLIST_OBJECT       */ ;
  738.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  739.       {<nSayOpt>},                              /* xGETLIST_OPTIONS      */ ;
  740.       [{<ncSayFgC>,<ncSayBgC>}],                /* aGETLIST_COLOR        */ ;
  741.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  742.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  743.       nil,                                      /* cGETLIST_VARNAME      */ ;
  744.       nil,                                      /* bGETLIST_READVAR      */ ;
  745.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  746.       [{DC_GetAnchorCB(@<oSayObject>,'O'),                                  ;
  747.                         <(oSayObject)>,'O'}],   /* bGETLIST_GROUP        */ ;
  748.       nil,                                      /* nGETLIST_POINTER      */ ;
  749.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  750.                          <(oParent)>,'O'}],     /* bGETLIST_PARENT       */ ;
  751.       nil,                                      /* bGETLIST_REFVAR       */ ;
  752.       nil,                                      /* bGETLIST_PROTECT      */ ;
  753.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  754.       <nSayCursor>,                             /* nGETLIST_CURSOR       */ ;
  755.       <bSayEval>,                               /* bGETLIST_EVAL         */ ;
  756.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  757.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  758.       <.lGraString.> [.OR. <_grastring>],       /* xGETLIST_OPTIONS2     */ ;
  759.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  760.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  761.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  762.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  763.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  764.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  765.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  766.       nil,                                      /* cGETLIST_LEVEL        */ ;
  767.       <cSayTitle>,                              /* cGETLIST_TITLE        */ ;
  768.       nil,                                      /* cGETLIST_ACCESS       */ ;
  769.       nil,                                      /* bGETLIST_COMPILE      */ ;
  770.       <cSayId>,                                 /* cGETLIST_ID           */ ;
  771.       nil,                                      /* dGETLIST_REVDATE      */ ;
  772.       nil,                                      /* cGETLIST_REVTIME      */ ;
  773.       nil,                                      /* cGETLIST_REVUSER      */ ;
  774.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  775.       nil,                                      /* nGETLIST_ACCELKEY     */ ;
  776.       nil,                                      /* bGETLIST_GOTFOCUS     */ ;
  777.       nil,                                      /* bGETLIST_LOSTFOCUS    */ ;
  778.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  779.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  780.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  781.                                                 /* lGETLIST_VISIBLE      */ ;
  782.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  783.       .f.,                                      /* lGETLIST_FLAG         */ ;
  784.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  785.       <bSayPreEval>,                            /* bGETLIST_PREEVAL      */ ;
  786.       } )  ;
  787.    ; AADD( DCGUI_GETLIST,                                                   ;
  788.     { GETLIST_GET,                              /* nGETLIST_TYPE         */ ;
  789.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  790.       <cText>,                                  /* cGETLIST_CAPTION      */ ;
  791.       {DC_GetAnchorCB(@<uVar>,,<uVar>,<cPict>,<bLink>),                     ;
  792.                 <(uVar)>,,,<cPict>,<(bLink)>},  /* bGETLIST_VAR          */ ;
  793.       [<nGetRow>],                              /* nGETLIST_STARTROW     */ ;
  794.       [<nGetCol>],                              /* nGETLIST_STARTCOL     */ ;
  795.       nil,                                      /* nGETLIST_ENDROW       */ ;
  796.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  797.       <nGetWidth>,                              /* nGETLIST_WIDTH        */ ;
  798.       <nGetHeight>,                             /* nGETLIST_HEIGHT       */ ;
  799.       <cGetFont>,                               /* cGETLIST_FONT         */ ;
  800.       <cPict>,                                  /* cGETLIST_PICTURE      */ ;
  801.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  802.       <bValid>,                                 /* bGETLIST_VALID        */ ;
  803.       [<cToolTip>][<cGetToolTip>],              /* cGETLIST_TOOLTIP      */ ;
  804.       <xGetCargo>,                              /* xGETLIST_CARGO        */ ;
  805.       <aGetPres>,                               /* aGETLIST_PRESENTATION */ ;
  806.       nil,                                      /* bGETLIST_ACTION       */ ;
  807.       nil,                                      /* oGETLIST_OBJECT       */ ;
  808.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  809.       nil,                                      /* xGETLIST_OPTIONS      */ ;
  810.       [{<ncGetFgC>,<ncGetBgC>}],                /* aGETLIST_COLOR        */ ;
  811.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<(oMsg)>,'O'}]},                ;
  812.                                                 /* cGETLIST_MESSAGE      */ ;
  813.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  814.       [{<(uVar)>,<(bLink)>}],                   /* cGETLIST_VARNAME      */ ;
  815.       [{DC_GetAnchorCB(@<xRef>,,<xRef>),                                    ;
  816.                                <(xRef)>}],      /* bGETLIST_READVAR      */ ;
  817.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  818.       [{DC_GetAnchorCB(@<oGetObject>,'O'),                                  ;
  819.                         <(oGetObject)>,'O'}],   /* bGETLIST_GROUP        */ ;
  820.       LEN(DCGUI_GETLIST),                       /* nGETLIST_POINTER      */ ;
  821.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  822.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  823.       [{DC_GetAnchorCB(@<uVar>,,<uVar>),                                    ;
  824.                                <(uVar)>}],      /* bGETLIST_REFVAR       */ ;
  825.       <bProtect>,                               /* bGETLIST_PROTECT      */ ;
  826.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  827.       <nGetCursor>,                             /* nGETLIST_CURSOR       */ ;
  828.       <bGetEval>,                               /* bGETLIST_EVAL         */ ;
  829.       nil,                                      /* bGETLIST_RELATIVE     */ ;
  830.       {<bPopUp>,nil,<.lPopTab.>,<.d.>,<.pv.>,<c>,<f>,<w>,<h>,<s>,<k>,       ;
  831.                 <.g.>,<t>},                                                 ;
  832.                                                 /* xGETLIST_OPTIONS2     */ ;
  833.       <.u.>,                                    /* xGETLIST_OPTIONS3     */ ;
  834.       [<.noconfirm.>][!<.confirm.>],            /* xGETLIST_OPTIONS4     */ ;
  835.       <.pass.> [.OR. <_password>],              /* xGETLIST_OPTIONS5     */ ;
  836.       {<.proper.> [.OR. <_proper>],<aProperOptions>},                       ;
  837.                                                 /* xGETLIST_OPTIONS6     */ ;
  838.       <.ljust.> [.OR. <_leftjustify>],          /* xGETLIST_OPTIONS7     */ ;
  839.       [{<nStart>,<nEnd>}],                      /* xGETLIST_OPTIONS8     */ ;
  840.       [<keyblock>],                             /* xGETLIST_OPTIONS9     */ ;
  841.       nil,                                      /* cGETLIST_LEVEL        */ ;
  842.       <cGetTitle>,                              /* cGETLIST_TITLE        */ ;
  843.       nil,                                      /* cGETLIST_ACCESS       */ ;
  844.       nil,                                      /* bGETLIST_COMPILE      */ ;
  845.       <cGetId>,                                 /* cGETLIST_ID           */ ;
  846.       nil,                                      /* dGETLIST_REVDATE      */ ;
  847.       nil,                                      /* cGETLIST_REVTIME      */ ;
  848.       nil,                                      /* cGETLIST_REVUSER      */ ;
  849.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  850.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  851.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  852.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  853.       DC_LogicTest([<.lTabStop.>],[<_tab>],[<.lNoTabStop.>],[<_notab>]),    ;
  854.                                                 /* lGETLIST_TABSTOP      */ ;
  855.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  856.                                                 /* lGETLIST_VISIBLE      */ ;
  857.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  858.                                                 /* lGETLIST_VISIBLE      */ ;
  859.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  860.       .f.,                                      /* lGETLIST_FLAG         */ ;
  861.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  862.       <bGetPreEval>,                            /* bGETLIST_PREEVAL      */ ;
  863.    } )                                                                      ;
  864.       [; DC_GetAddOption(DCGUI_GETLIST,<option>) ]                          ;
  865.       [; DC_GetAddOption(DCGUI_GETLIST,                                     ;
  866.           { 120, <nComboHeight>, <acbComboData>, <nbField>, <bReturn>,      ;
  867.                  <nComboWidth> } ) ]                                        ;
  868.       [; DC_GetAddOption(DCGUI_GETLIST,{ 103, <preblock> } ) ]              ;
  869.       [; DC_GetAddOption(DCGUI_GETLIST,{ 104, <postblock> } ) ]             ;
  870.       [; DC_GetAddOption(DCGUI_GETLIST,{ 105, <cMsg> }) ]                   ;
  871.       [; DC_GetAddOption(DCGUI_GETLIST,{ 115, <cHelpCode> }) ]
  872.  
  873. * ------------------------------- *
  874.  
  875. #command  @ <nRow> [,<nCol>] DCGET [<uVar>]                                 ;
  876.                 [DATALINK <bLink> ]                                         ;
  877.                 [<color:COLOR,GETCOLOR> <ncFgC> [,<ncBgC>] ]                ;
  878.                 [<size:SIZE,GETSIZE> <nWidth> [,<nHeight>] ]                ;
  879.                 [<font:FONT,GETFONT> <cFont>]                               ;
  880.                 [COMBO [HEIGHT <nComboHeight>] [WIDTH <nComboWidth>]        ;
  881.                     [DATA <acbComboData>]                                   ;
  882.                     [<nf:FIELD,ELEMENT> <nbField>] [RETURN <bReturn>] ]     ;
  883.                 [PARENT <oParent>]                                          ;
  884.                 [OPTION <option>]                                           ;
  885.                 [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
  886.                 [VALID <bValid>]                                            ;
  887.                 [HELPCODE <cHelpCode>]                                      ;
  888.                 [PREBLOCK <preblock>]                                       ;
  889.                 [POSTBLOCK <postblock>]                                     ;
  890.                 [<kb:KEYBLOCK,KEYBOARD> <keyblock>]                         ;
  891.                 [PICTURE <cPict>]                                           ;
  892.                 [WHEN <bWhen>]                                              ;
  893.                 [HIDE <bHide>]                                              ;
  894.                 [<pp:EDITPROTECT,PROTECT> <bProtect>]                       ;
  895.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  896.                 [<u: UNREADABLE>] [_UNREADABLE <_unreadable>]               ;
  897.                 [<noconfirm: NOCONFIRM>]                                    ;
  898.                 [<confirm: CONFIRM>]                                        ;
  899.                 [<pres:PRESENTATION,GETPRESENTATION> <aPres>]               ;
  900.                 [<tool:TOOLTIP,GETTOOLTIP> <cToolTip>]                      ;
  901.                 [<obj:OBJECT,GETOBJECT> <oObject>]                          ;
  902.                 [<cur:CURSOR,GETCURSOR> <nCursor>]                          ;
  903.                 [CARGO <xCargo>]                                            ;
  904.                 [<eval:EVAL,GETEVAL> <bEval>]                               ;
  905.                 [<peval:PREEVAL,GETPREEVAL> <bPreEval>]                     ;
  906.                 [POPUP <bPopUp> [<lPopTab:POPTABSTOP>]                      ;
  907.                    [<d:DROPDOWN>] [REFERENCE <xRef>]                        ;
  908.                    [POPCAPTION <c>] [POPFONT <f>]                           ;
  909.                    [POPWIDTH <w>] [POPHEIGHT <h>]                           ;
  910.                    [POPSTYLE <s>] [POPKEY <k>] [<g:POPGLOBAL>] ]            ;
  911.                    [POPTOOLTIP <t>]                                         ;
  912.                 [<pv:POPVALID>]                                             ;
  913.                 [RELATIVE <oRel>]                                           ;
  914.                 [TITLE <cTitle>]                                            ;
  915.                 [<id:ID,GETID> <cId>]                                       ;
  916.                 [ACCELKEY <nAccel>]                                         ;
  917.                 [GOTFOCUS <bGotFocus>]                                      ;
  918.                 [LOSTFOCUS <bLostFocus>]                                    ;
  919.                 [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
  920.                 [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
  921.                 [TABGROUP <nTabGroup>]                                      ;
  922.                 [<pass:PASSWORD>] [_PASSWORD <_password>]                   ;
  923.                 [<proper:PROPER> [PROPOPTIONS <aProperOptions>]]            ;
  924.                 [_PROPER <_proper>]                                         ;
  925.                 [<ljust:LEFTJUSTIFY>] [_LEFTJUSTIFY <_leftjustify>]         ;
  926.                 [RANGE <nStart>, <nEnd>]                                    ;
  927.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  928.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  929.                 [GROUP <cGroup>]                                            ;
  930.                 [<lCellEditor:CELLEDITOR>] [_CELLEDITOR <_celleditor>]      ;
  931.   =>                                                                        ;
  932.   AADD( DCGUI_GETLIST,                                                      ;
  933.     { GETLIST_GET,                              /* nGETLIST_TYPE         */ ;
  934.       IIF(<.lCellEditor.>,1,0),                 /* nGETLIST_SUBTYPE      */ ;
  935.       nil,                                      /* cGETLIST_CAPTION      */ ;
  936.       [{DC_GetAnchorCB(@<uVar>,,<uVar>,<cPict>,<bLink>),                    ;
  937.                 <(uVar)>,,,<cPict>,<(bLink)>}], /* bGETLIST_VAR          */ ;
  938.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  939.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  940.       nil,                                      /* nGETLIST_ENDROW       */ ;
  941.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  942.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  943.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  944.       [<cFont>],                                /* cGETLIST_FONT         */ ;
  945.       <cPict>,                                  /* cGETLIST_PICTURE      */ ;
  946.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  947.       <bValid>,                                 /* bGETLIST_VALID        */ ;
  948.       [<cToolTip>],                             /* cGETLIST_TOOLTIP      */ ;
  949.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  950.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  951.       nil,                                      /* bGETLIST_ACTION       */ ;
  952.       nil,                                      /* oGETLIST_OBJECT       */ ;
  953.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  954.       nil,                                      /* xGETLIST_OPTIONS      */ ;
  955.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  956.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<(oMsg)>,'O'}]},                ;
  957.                                                 /* cGETLIST_MESSAGE      */ ;
  958.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  959.       [{<(uVar)>,<(bLink)>}],                   /* cGETLIST_VARNAME      */ ;
  960.       [{DC_GetAnchorCB(@<xRef>,,<xRef>),                                    ;
  961.                                <(xRef)>}],      /* bGETLIST_READVAR      */ ;
  962.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  963.       [{DC_GetAnchorCB(@<oObject>,'O'),                                     ;
  964.                         <(oObject)>,'O'}],      /* bGETLIST_GROUP        */ ;
  965.       nil,                                      /* nGETLIST_POINTER      */ ;
  966.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  967.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  968.       [{DC_GetAnchorCB(@<uVar>,,<uVar>),                                    ;
  969.                               <(uVar)>}],       /* bGETLIST_REFVAR       */ ;
  970.       <bProtect>,                               /* bGETLIST_PROTECT      */ ;
  971.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  972.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  973.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  974.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  975.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  976.       {<bPopUp>,nil,<.lPopTab.>,<.d.>,<.pv.>,<c>,<f>,<w>,<h>,<s>,<k>,       ;
  977.             <.g.>,<t>},                                                     ;
  978.                                                 /* xGETLIST_OPTIONS2     */ ;
  979.       <.u.> [.OR. <_unreadable>],               /* xGETLIST_OPTIONS3     */ ;
  980.       [<.noconfirm.>][!<.confirm.>],            /* xGETLIST_OPTIONS4     */ ;
  981.       <.pass.> [.OR. <_password>],              /* xGETLIST_OPTIONS5     */ ;
  982.       {<.proper.> [ .OR. <_proper>],<aProperOptions>},                      ;
  983.                                                 /* xGETLIST_OPTIONS6     */ ;
  984.       <.ljust.> [.OR. <_leftjustify>],          /* xGETLIST_OPTIONS7     */ ;
  985.       [{<nStart>,<nEnd>}],                      /* xGETLIST_OPTIONS8     */ ;
  986.       [<keyblock>],                             /* xGETLIST_OPTIONS9     */ ;
  987.       nil,                                      /* cGETLIST_LEVEL        */ ;
  988.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  989.       nil,                                      /* cGETLIST_ACCESS       */ ;
  990.       nil,                                      /* bGETLIST_COMPILE      */ ;
  991.       [<cId>],                                  /* cGETLIST_ID           */ ;
  992.       nil,                                      /* dGETLIST_REVDATE      */ ;
  993.       nil,                                      /* cGETLIST_REVTIME      */ ;
  994.       nil,                                      /* cGETLIST_REVUSER      */ ;
  995.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  996.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  997.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  998.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  999.       DC_LogicTest([<.lTabStop.>],[<_tab>],[<.lNoTabStop.>],[<_notab>]),    ;
  1000.                                                 /* lGETLIST_TABSTOP      */ ;
  1001.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  1002.                                                 /* lGETLIST_VISIBLE      */ ;
  1003.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  1004.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  1005.       .f.,                                      /* lGETLIST_FLAG         */ ;
  1006.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  1007.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  1008.    } )                                                                      ;
  1009.       [; DC_GetAddOption(DCGUI_GETLIST,<option>) ]                          ;
  1010.       [; DC_GetAddOption(DCGUI_GETLIST,                                     ;
  1011.          { 120, <nComboHeight>, <acbComboData>, <nbField>, <bReturn>,       ;
  1012.                 <nComboWidth> }) ]                                          ;
  1013.       [; DC_GetAddOption(DCGUI_GETLIST,{ 103, <preblock> } ) ]              ;
  1014.       [; DC_GetAddOption(DCGUI_GETLIST,{ 104, <postblock> } ) ]             ;
  1015.       [; DC_GetAddOption(DCGUI_GETLIST,{ 105, <cMsg> }) ]                   ;
  1016.       [; DC_GetAddOption(DCGUI_GETLIST,{ 115, <cHelpCode> }) ]
  1017.  
  1018. * ------------------------ *
  1019.  
  1020. #command  @ <nGetRow> [,<nGetCol>] DCCHECKBOX [<uVar>]                      ;
  1021.                 [DELIMVAR <cDelim>]                                         ;
  1022.                 [<prompt: PROMPT,CAPTION> <cPrompt>]                        ;
  1023.                 [VALID <bValid>]                                            ;
  1024.                 [PARENT <oParent>]                                          ;
  1025.                 [DATALINK <bLink>]                                          ;
  1026.                 [ACTION <bAction>]                                          ;
  1027.                 [FONT <cFont>]                                              ;
  1028.                 [COLOR <ncFgC> [,<ncBgC>] ]                                 ;
  1029.                 [CARGO <xCargo>]                                            ;
  1030.                 [WHEN <bWhen>]                                              ;
  1031.                 [HIDE <bHide>]                                              ;
  1032.                 [EDITPROTECT <bProtect>]                                    ;
  1033.                 [SIZE <nWidth>[,<nHeight>]]                                 ;
  1034.                 [PRESENTATION <aPres>]                                      ;
  1035.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  1036.                 [TOOLTIP <cToolTip>]                                        ;
  1037.                 [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
  1038.                 [OBJECT <oObject>]                                          ;
  1039.                 [CURSOR <nCursor>]                                          ;
  1040.                 [EVAL <bEval>]                                              ;
  1041.                 [PREEVAL <bPreEval>]                                        ;
  1042.                 [TITLE <cTitle>]                                            ;
  1043.                 [RELATIVE <oRel>]                                           ;
  1044.                 [ID <cId>]                                                  ;
  1045.                 [ACCELKEY <nAccel>]                                         ;
  1046.                 [GOTFOCUS <bGotFocus>]                                      ;
  1047.                 [LOSTFOCUS <bLostFocus>]                                    ;
  1048.                 [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
  1049.                 [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
  1050.                 [TABGROUP <nTabGroup>]                                      ;
  1051.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  1052.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  1053.                 [GROUP <cGroup>]                                            ;
  1054.                 [HELPCODE <cHelpCode>]                                      ;
  1055.   =>                                                                        ;
  1056.    AADD( DCGUI_GETLIST,                                                     ;
  1057.     { GETLIST_CHECKBOX,                         /* nGETLIST_TYPE         */ ;
  1058.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  1059.       <cPrompt>,                                /* cGETLIST_CAPTION      */ ;
  1060.       [{DC_GetAnchorCB(@<uVar>,'L',,,<bLink>),                              ;
  1061.                    <(uVar)>,'L',,,<(bLink)>}],  /* bGETLIST_VAR          */ ;
  1062.       <nGetRow>,                                /* nGETLIST_STARTROW     */ ;
  1063.       <nGetCol>,                                /* nGETLIST_STARTCOL     */ ;
  1064.       nil,                                      /* nGETLIST_ENDROW       */ ;
  1065.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  1066.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  1067.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  1068.       <cFont>,                                  /* cGETLIST_FONT         */ ;
  1069.       nil,                                      /* cGETLIST_PICTURE      */ ;
  1070.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  1071.       <bValid>,                                 /* bGETLIST_VALID        */ ;
  1072.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  1073.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  1074.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  1075.       <bAction>,                                /* bGETLIST_ACTION       */ ;
  1076.       nil,                                      /* oGETLIST_OBJECT       */ ;
  1077.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  1078.       nil,                                      /* xGETLIST_OPTIONS      */ ;
  1079.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  1080.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<(oMsg)>,'O'}]},                ;
  1081.                                                 /* cGETLIST_MESSAGE      */ ;
  1082.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  1083.       <(uVar)>,                                 /* cGETLIST_VARNAME      */ ;
  1084.       [{||DC_ReadVar(@<uVar>,,,.t.)}],          /* bGETLIST_READVAR      */ ;
  1085.       [{DC_GetAnchorCB(@<cDelim>),<(cDelim)>}], /* bGETLIST_DELIMVAR     */ ;
  1086.       [{DC_GetAnchorCB(@<oObject>,'O'),                                     ;
  1087.                        <(oObject)>,'O'}],       /* bGETLIST_GROUP        */ ;
  1088.       nil,                                      /* nGETLIST_POINTER      */ ;
  1089.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  1090.                        <(oParent)>,'O'}],       /* bGETLIST_PARENT       */ ;
  1091.       nil,                                      /* bGETLIST_REFVAR       */ ;
  1092.       <bProtect>,                               /* bGETLIST_PROTECT      */ ;
  1093.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  1094.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  1095.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  1096.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  1097.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  1098.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  1099.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  1100.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  1101.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  1102.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  1103.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  1104.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  1105.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  1106.       nil,                                      /* cGETLIST_LEVEL        */ ;
  1107.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  1108.       nil,                                      /* cGETLIST_ACCESS       */ ;
  1109.       nil,                                      /* bGETLIST_COMPILE      */ ;
  1110.       <cId>,                                    /* cGETLIST_ID           */ ;
  1111.       nil,                                      /* dGETLIST_REVDATE      */ ;
  1112.       nil,                                      /* cGETLIST_REVTIME      */ ;
  1113.       nil,                                      /* cGETLIST_REVUSER      */ ;
  1114.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  1115.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  1116.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  1117.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  1118.       DC_LogicTest([<.lTabStop.>],[<_tab>],[<.lNoTabStop.>],[<_notab>]),    ;
  1119.                                                 /* lGETLIST_TABSTOP      */ ;
  1120.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  1121.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  1122.                                                 /* lGETLIST_VISIBLE      */ ;
  1123.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  1124.       .f.,                                      /* lGETLIST_FLAG         */ ;
  1125.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  1126.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  1127.      } )
  1128.  
  1129. * ------------------------------- *
  1130.  
  1131. #command  @ <nRow> [,<nCol>] DCRADIOBUTTON [<uVar>]                         ;
  1132.                 [VALUE <xVal>]                                              ;
  1133.                 [PARENT <oParent>]                                          ;
  1134.                 [<prompt: PROMPT,CAPTION> <cPrompt>]                        ;
  1135.                 [DELIMVAR <cDelim>]                                         ;
  1136.                 [DATALINK <bLink>]                                          ;
  1137.                 [FONT <cFont>]                                              ;
  1138.                 [ACTION <bAction>]                                          ;
  1139.                 [OBJECT <oObject>]                                          ;
  1140.                 [COLOR <ncFgC> [,<ncBgC>] ]                                 ;
  1141.                 [CARGO <xCargo>]                                            ;
  1142.                 [WHEN <bWhen>]                                              ;
  1143.                 [HIDE <bHide>]                                              ;
  1144.                 [<b:PROTECT,EDITPROTECT> <bProtect>]                        ;
  1145.                 [SIZE <nWidth> [,<nHeight>]]                                ;
  1146.                 [PRESENTATION <aPres>]                                      ;
  1147.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  1148.                 [TOOLTIP <cToolTip>]                                        ;
  1149.                 [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
  1150.                 [CURSOR <nCursor>]                                          ;
  1151.                 [TITLE <cTitle>]                                            ;
  1152.                 [EVAL <bEval>]                                              ;
  1153.                 [PREEVAL <bPreEval>]                                        ;
  1154.                 [RELATIVE <oRel>]                                           ;
  1155.                 [ID <cId>]                                                  ;
  1156.                 [ACCELKEY <nAccel>]                                         ;
  1157.                 [GOTFOCUS <bGotFocus>]                                      ;
  1158.                 [LOSTFOCUS <bLostFocus>]                                    ;
  1159.                 [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
  1160.                 [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
  1161.                 [TABGROUP <nTabGroup>]                                      ;
  1162.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  1163.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  1164.                 [GROUP <cGroup>]                                            ;
  1165.                 [HELPCODE <cHelpCode>]                                      ;
  1166.   =>                                                                        ;
  1167.    AADD( DCGUI_GETLIST,                                                     ;
  1168.     { GETLIST_RADIOBUTTON,                      /* nGETLIST_TYPE         */ ;
  1169.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  1170.       <cPrompt>,                                /* cGETLIST_CAPTION      */ ;
  1171.       [{DC_GetAnchorCB(@<uVar>,,<uVar>,,<bLink>,<xVal>),                    ;
  1172.         <(uVar)>,,<(xVal)>,,<(bLink)>,<xVal>}], /* bGETLIST_VAR          */ ;
  1173.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  1174.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  1175.       nil,                                      /* nGETLIST_ENDROW       */ ;
  1176.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  1177.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  1178.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  1179.       <cFont>,                                  /* cGETLIST_FONT         */ ;
  1180.       nil,                                      /* cGETLIST_PICTURE      */ ;
  1181.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  1182.       nil,                                      /* bGETLIST_VALID        */ ;
  1183.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  1184.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  1185.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  1186.       <bAction>,                                /* bGETLIST_ACTION       */ ;
  1187.       nil,                                      /* oGETLIST_OBJECT       */ ;
  1188.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  1189.       {<xVal>},                                 /* xGETLIST_OPTIONS      */ ;
  1190.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  1191.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<(oMsg)>,'O'}]},                ;
  1192.                                                 /* cGETLIST_MESSAGE      */ ;
  1193.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  1194.       <(uVar)>,                                 /* cGETLIST_VARNAME      */ ;
  1195.       {||DC_ReadVar(@<uVar>,,<xVal>,.f.)},      /* bGETLIST_READVAR      */ ;
  1196.       [{DC_GetAnchorCB(@<cDelim>),<(cDelim)>}], /* bGETLIST_DELIMVAR     */ ;
  1197.       [{DC_GetAnchorCB(@<oObject>,'O'),                                     ;
  1198.                         <(oObject)>,'O'}],      /* bGETLIST_GROUP        */ ;
  1199.       nil,                                      /* nGETLIST_POINTER      */ ;
  1200.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  1201.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  1202.       nil,                                      /* bGETLIST_REFVAR       */ ;
  1203.       <bProtect>,                               /* bGETLIST_PROTECT      */ ;
  1204.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  1205.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  1206.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  1207.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  1208.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  1209.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  1210.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  1211.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  1212.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  1213.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  1214.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  1215.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  1216.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  1217.       nil,                                      /* cGETLIST_LEVEL        */ ;
  1218.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  1219.       nil,                                      /* cGETLIST_ACCESS       */ ;
  1220.       nil,                                      /* bGETLIST_COMPILE      */ ;
  1221.       <cId>,                                    /* cGETLIST_ID           */ ;
  1222.       nil,                                      /* dGETLIST_REVDATE      */ ;
  1223.       nil,                                      /* cGETLIST_REVTIME      */ ;
  1224.       nil,                                      /* cGETLIST_REVUSER      */ ;
  1225.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  1226.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  1227.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  1228.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  1229.       DC_LogicTest([<.lTabStop.>],[<_tab>],[<.lNoTabStop.>],[<_notab>]),    ;
  1230.                                                 /* lGETLIST_TABSTOP      */ ;
  1231.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  1232.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  1233.                                                 /* lGETLIST_VISIBLE      */ ;
  1234.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  1235.       .f.,                                      /* lGETLIST_FLAG         */ ;
  1236.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  1237.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  1238.     } )
  1239.  
  1240. * ------------------------------- *
  1241.  
  1242. #command  @ <nRow> [,<nCol>] DCMULTILINE [<uVar>]                           ;
  1243.                 [PARENT <oParent>]                                          ;
  1244.                 [VALID <bValid>]                                            ;
  1245.                 [WHEN <bWhen>]                                              ;
  1246.                 [HIDE <bHide>]                                              ;
  1247.                 [EDITPROTECT <bProtect>]                                    ;
  1248.                 [SIZE <nWidth> [,<nHeight>]]                                ;
  1249.                 [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
  1250.                 [FONT <cFont>]                                              ;
  1251.                 [COLOR <ncFgC> [,<ncBgC>] ]                                 ;
  1252.                 [HELPCODE <cHelpCode>]                                      ;
  1253.                 [DATALINK <bLink>]                                          ;
  1254.                 [OBJECT <oObject>]                                          ;
  1255.                 [CARGO <xCargo>]                                            ;
  1256.                 [<lNoWW:NOWORDWRAP>] [_NOWORDWRAP <_noww>]                  ;
  1257.                 [<lNoB:NOBORDER>] [_NOBORDER <_nob>]                        ;
  1258.                 [<lNoV:NOVERTSCROLL,NOVSCROLL>] [_NOVSCROLL <_nov>]         ;
  1259.                 [<lNoH:NOHORIZSCROLL,NOHSCROLL>] [_NOHSCROLL <_noh>]        ;
  1260.                 [<lIgT:IGNORETAB>] [_IGNORETAB <_ignoretab>]                ;
  1261.                 [<lRO:READONLY>] [_READONLY <_ro>]                          ;
  1262.                 [MAXLINES <nMaxLines> [MESSAGE <cMessage1>]]                ;
  1263.                 [LINELENGTH <nLineLength> [MESSAGE <cMessage2>]]            ;
  1264.                 [MAXCHARS <nMaxChars> [MESSAGE <cMessage3>]]                ;
  1265.                 [EXITKEY <nExitKey>]                                        ;
  1266.                 [PRESENTATION <aPres>]                                      ;
  1267.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  1268.                 [TOOLTIP <cToolTip>]                                        ;
  1269.                 [<lCompat:COMPATIBILE,COMPATABILE,COMPATABLE,COMPATIBLE >]  ;
  1270.                    [_COMPAT <_compat>]                                      ;
  1271.                 [CURSOR <nCursor>]                                          ;
  1272.                 [EVAL <bEval>]                                              ;
  1273.                 [PREEVAL <bPreEval>]                                        ;
  1274.                 [TITLE <cTitle>]                                            ;
  1275.                 [RELATIVE <oRel>]                                           ;
  1276.                 [ID <cId>]                                                  ;
  1277.                 [ACCELKEY <nAccel>]                                         ;
  1278.                 [GOTFOCUS <bGotFocus>]                                      ;
  1279.                 [LOSTFOCUS <bLostFocus>]                                    ;
  1280.                 [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
  1281.                 [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
  1282.                 [TABGROUP <nTabGroup>]                                      ;
  1283.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  1284.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  1285.                 [GROUP <cGroup>]                                            ;
  1286.   =>                                                                        ;
  1287.    AADD( DCGUI_GETLIST,                                                     ;
  1288.     { GETLIST_MLE,                              /* nGETLIST_TYPE         */ ;
  1289.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  1290.       nil,                                      /* cGETLIST_CAPTION      */ ;
  1291.       [{DC_GetAnchorCB(@<uVar>,,,,<bLink>),                                 ;
  1292.                       <(uVar)>,,,,<(bLink)>}],  /* bGETLIST_VAR          */ ;
  1293.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  1294.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  1295.       nil,                                      /* nGETLIST_ENDROW       */ ;
  1296.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  1297.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  1298.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  1299.       <cFont>,                                  /* cGETLIST_FONT         */ ;
  1300.       nil,                                      /* cGETLIST_PICTURE      */ ;
  1301.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  1302.       <bValid>,                                 /* bGETLIST_VALID        */ ;
  1303.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  1304.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  1305.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  1306.       nil,                                      /* bGETLIST_ACTION       */ ;
  1307.       nil,                                      /* oGETLIST_OBJECT       */ ;
  1308.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  1309.       {<.lNoWW.> [.OR. <_noww>],                                            ;
  1310.        <.lNoB.> [.OR. <_nob>],                                              ;
  1311.        <.lNoV.> [.OR. <_nov>],                                              ;
  1312.        <.lNoH.> [.OR. <_noh>],                                              ;
  1313.        <.lIgT.> [.OR. <_ignoretab>],                                        ;
  1314.        <.lCompat.> [.OR. <_compat>],                                        ;
  1315.        <.lRO.> [.OR. <_ro>],                                                ;
  1316.        <nExitKey>},                             /* xGETLIST_OPTIONS      */ ;
  1317.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  1318.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<(oMsg)>,'O'}]},                ;
  1319.                                                 /* cGETLIST_MESSAGE      */ ;
  1320.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  1321.       <(uVar)>,                                 /* cGETLIST_VARNAME      */ ;
  1322.       nil,                                      /* bGETLIST_READVAR      */ ;
  1323.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  1324.       [{DC_GetAnchorCB(@<oObject>,'O'),                                     ;
  1325.                        <(oObject)>,'O'}],       /* bGETLIST_GROUP        */ ;
  1326.       nil,                                      /* nGETLIST_POINTER      */ ;
  1327.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  1328.                        <(oParent)>,'O'}],       /* bGETLIST_PARENT       */ ;
  1329.       nil,                                      /* bGETLIST_REFVAR       */ ;
  1330.       <bProtect>,                               /* bGETLIST_PROTECT      */ ;
  1331.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  1332.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  1333.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  1334.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  1335.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  1336.       {<nMaxLines>,<cMessage1>},                /* xGETLIST_OPTIONS2     */ ;
  1337.       {<nLineLength>,<cMessage2>},              /* xGETLIST_OPTIONS3     */ ;
  1338.       {<nMaxChars>,<cMessage3>},                /* xGETLIST_OPTIONS4     */ ;
  1339.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  1340.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  1341.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  1342.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  1343.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  1344.       nil,                                      /* cGETLIST_LEVEL        */ ;
  1345.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  1346.       nil,                                      /* cGETLIST_ACCESS       */ ;
  1347.       nil,                                      /* bGETLIST_COMPILE      */ ;
  1348.       <cId>,                                    /* cGETLIST_ID           */ ;
  1349.       nil,                                      /* dGETLIST_REVDATE      */ ;
  1350.       nil,                                      /* cGETLIST_REVTIME      */ ;
  1351.       nil,                                      /* cGETLIST_REVUSER      */ ;
  1352.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  1353.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  1354.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  1355.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  1356.       DC_LogicTest([<.lTabStop.>],[<_tab>],[<.lNoTabStop.>],[<_notab>]),    ;
  1357.                                                 /* lGETLIST_TABSTOP      */ ;
  1358.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  1359.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  1360.                                                 /* lGETLIST_VISIBLE      */ ;
  1361.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  1362.       .f.,                                      /* lGETLIST_FLAG         */ ;
  1363.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  1364.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  1365.     } )
  1366.  
  1367. * ------------------------------- *
  1368.  
  1369. #command  @ <nRow> [,<nCol>] DCLISTBOX [<uVar>]                             ;
  1370.                 [LIST <aList>]                                              ;
  1371.                 [PARENT <oParent>]                                          ;
  1372.                 [SIZE <nWidth>,<nHeight>]                                   ;
  1373.                 [FONT <cFont>]                                              ;
  1374.                 [PRESENTATION <aPres>]                                      ;
  1375.                 [MARKMODE <nMarkMode>]                                      ;
  1376.                 [SELECT <aSelect>]                                          ;
  1377.                 [<lH:HORIZSCROLL>] [_HORIZSCROLL <_horizscroll>]            ;
  1378.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  1379.                 [TOOLTIP <cToolTip>]                                        ;
  1380.                 [DATALINK <bLink>]                                          ;
  1381.                 [ITEMMARKED <bItemMarked>]                                  ;
  1382.                 [ITEMSELECTED <bItemSelected>]                              ;
  1383.                 [COLOR <ncFgC> [,<ncBgC>] ]                                 ;
  1384.                 [OBJECT <oObject>]                                          ;
  1385.                 [CARGO <xCargo>]                                            ;
  1386.                 [HIDE <bHide>]                                              ;
  1387.                 [EDITPROTECT <bProtect>]                                    ;
  1388.                 [VALID <bValid>]                                            ;
  1389.                 [CURSOR <nCursor>]                                          ;
  1390.                 [EVAL <bEval>]                                              ;
  1391.                 [PREEVAL <bPreEval>]                                        ;
  1392.                 [TITLE <cTitle>]                                            ;
  1393.                 [RELATIVE <oRel>]                                           ;
  1394.                 [ID <cId>]                                                  ;
  1395.                 [ACCELKEY <nAccel>]                                         ;
  1396.                 [GOTFOCUS <bGotFocus>]                                      ;
  1397.                 [LOSTFOCUS <bLostFocus>]                                    ;
  1398.                 [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
  1399.                 [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
  1400.                 [TABGROUP <nTabGroup>]                                      ;
  1401.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  1402.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  1403.                 [GROUP <cGroup>]                                            ;
  1404.                 [<lMultiColumn:MULTICOLUMN>] [_MULTICOLUMN <_multicolumn>]  ;
  1405.                 [HELPCODE <cHelpCode>]                                      ;
  1406.                 [MESSAGE <cMessage>]                                        ;
  1407.   =>                                                                        ;
  1408.    AADD( DCGUI_GETLIST,                                                     ;
  1409.     { GETLIST_LISTBOX,                          /* nGETLIST_TYPE         */ ;
  1410.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  1411.       nil,                                      /* cGETLIST_CAPTION      */ ;
  1412.       [{DC_GetAnchorCB(@<uVar>,,,,<bLink>),                                 ;
  1413.                       <(uVar)>,,,,<(bLink)>}],  /* bGETLIST_VAR          */ ;
  1414.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  1415.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  1416.       nil,                                      /* nGETLIST_ENDROW       */ ;
  1417.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  1418.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  1419.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  1420.       <cFont>,                                  /* cGETLIST_FONT         */ ;
  1421.       nil,                                      /* cGETLIST_PICTURE      */ ;
  1422.       nil,                                      /* bGETLIST_WHEN         */ ;
  1423.       <bValid>,                                 /* bGETLIST_VALID        */ ;
  1424.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  1425.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  1426.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  1427.       nil,                                      /* bGETLIST_ACTION       */ ;
  1428.       nil,                                      /* oGETLIST_OBJECT       */ ;
  1429.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  1430.       {<.lH.> [.OR. <_horizscroll>],                                        ;
  1431.         <nMarkMode>,<aSelect>,                                              ;
  1432.         <.lMultiColumn.> [.OR. <_multicolumn>],                             ;
  1433.         <bItemMarked>,<bItemSelected>},         /* xGETLIST_OPTIONS      */ ;
  1434.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  1435.       <cMessage>,                               /* cGETLIST_MESSAGE      */ ;
  1436.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  1437.       <(uVar)>,                                 /* cGETLIST_VARNAME      */ ;
  1438.       nil,                                      /* bGETLIST_READVAR      */ ;
  1439.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  1440.       [{DC_GetAnchorCB(@<oObject>,'O'),                                     ;
  1441.                         <(oObject)>,'O'}],      /* bGETLIST_GROUP        */ ;
  1442.       nil,                                      /* nGETLIST_POINTER      */ ;
  1443.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  1444.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  1445.       [{DC_GetAnchorCB(@<aList>,'A'),                                       ;
  1446.                       <(aList)>,'A'}],          /* bGETLIST_REFVAR       */ ;
  1447.       <bProtect>,                               /* bGETLIST_PROTECT      */ ;
  1448.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  1449.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  1450.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  1451.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  1452.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  1453.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  1454.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  1455.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  1456.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  1457.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  1458.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  1459.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  1460.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  1461.       nil,                                      /* cGETLIST_LEVEL        */ ;
  1462.       nil,                                      /* cGETLIST_TITLE        */ ;
  1463.       nil,                                      /* cGETLIST_ACCESS       */ ;
  1464.       nil,                                      /* bGETLIST_COMPILE      */ ;
  1465.       <cId>,                                    /* cGETLIST_ID           */ ;
  1466.       nil,                                      /* dGETLIST_REVDATE      */ ;
  1467.       nil,                                      /* cGETLIST_REVTIME      */ ;
  1468.       nil,                                      /* cGETLIST_REVUSER      */ ;
  1469.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  1470.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  1471.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  1472.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  1473.       DC_LogicTest([<.lTabStop.>],[<_tab>],[<.lNoTabStop.>],[<_notab>]),    ;
  1474.                                                 /* lGETLIST_TABSTOP      */ ;
  1475.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  1476.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  1477.                                                 /* lGETLIST_VISIBLE      */ ;
  1478.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  1479.       .f.,                                      /* lGETLIST_FLAG         */ ;
  1480.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  1481.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  1482.      } )
  1483.  
  1484. * ------------------------------- *
  1485.  
  1486. #command @ <nRow> [, <nCol>] DCPUSHBUTTON [<text:CAPTION,PROMPT> <cText>]   ;
  1487.                 [<fancy:FANCY>] [_FANCY <_fancy>]                           ;
  1488.                 [<static:STATIC>] [_STATIC <_static>]                       ;
  1489.                   [FOCUSCOLOR <nTextColor>[,<nFrameColor>]]                 ;
  1490.                   [BITMAP <nBMUp> [,<nBMDn> [,<nBMNu> [,<nBMFl>]]]]         ;
  1491.                   [FLASH <nFiter> [,<nFDelay>]]                             ;
  1492.                   [REGION <aRegion>]                                        ;
  1493.                 [<graphics:GRAPHICS>] [_GRAPHICS <_graphics>]               ;
  1494.                 [SIZE <nWidth> [,<nHeight>]]                                ;
  1495.                 [TEXTOFFSET <nHoriz>, <nVert>]                              ;
  1496.                 [TEXTHEIGHT <nTextHeight>]                                  ;
  1497.                 [<action:ACTION,ACTIVATE> <bAction>]                        ;
  1498.                 [WHEN <bWhen>]                                              ;
  1499.                 [PARENT <oParent>]                                          ;
  1500.                 [COLOR <ncFgC> [,<ncBgC>]]                                  ;
  1501.                 [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
  1502.                 [HELPCODE <cHelpCode>]                                      ;
  1503.                 [FONT <cFont>]                                              ;
  1504.                 [PRESENTATION <aPres>]                                      ;
  1505.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  1506.                 [OBJECT <oObject>]                                          ;
  1507.                 [TOOLTIP <cToolTip>]                                        ;
  1508.                 [CURSOR <nCursor>]                                          ;
  1509.                 [CARGO <xCargo>]                                            ;
  1510.                 [EVAL <bEval>]                                              ;
  1511.                 [PREEVAL <bPreEval>]                                        ;
  1512.                 [HIDE <bHide>]                                              ;
  1513.                 [EDITPROTECT <bProtect>]                                    ;
  1514.                 [TITLE <cTitle> ]                                           ;
  1515.                 [RELATIVE <oRel> ]                                          ;
  1516.                 [ID <cId>]                                                  ;
  1517.                 [ACCELKEY <nAccel>]                                         ;
  1518.                 [GOTFOCUS <bGotFocus>]                                      ;
  1519.                 [LOSTFOCUS <bLostFocus>]                                    ;
  1520.                 [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
  1521.                 [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
  1522.                 [TABGROUP <nTabGroup>]                                      ;
  1523.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  1524.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  1525.                 [GROUP <cGroup>]                                            ;
  1526.                 [SOUND <abSound>]                                           ;
  1527.  =>                                                                         ;
  1528.   AADD( DCGUI_GETLIST,                                                      ;
  1529.     { GETLIST_PUSHBUTTON,                       /* nGETLIST_TYPE         */ ;
  1530.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  1531.       <cText>,                                  /* cGETLIST_CAPTION      */ ;
  1532.       nil,                                      /* bGETLIST_VAR          */ ;
  1533.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  1534.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  1535.       nil,                                      /* nGETLIST_ENDROW       */ ;
  1536.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  1537.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  1538.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  1539.       <cFont>,                                  /* cGETLIST_FONT         */ ;
  1540.       nil,                                      /* cGETLIST_PICTURE      */ ;
  1541.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  1542.       nil,                                      /* bGETLIST_VALID        */ ;
  1543.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  1544.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  1545.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  1546.       <bAction>,                                /* bGETLIST_ACTION       */ ;
  1547.       nil,                                      /* oGETLIST_OBJECT       */ ;
  1548.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  1549.       { <nHoriz>,<nVert>,<nTextHeight>,<.fancy.> [.OR. <_fancy>],           ;
  1550.         <.graphics.> [.OR. <_graphics>], <.static.> [.OR. <_static>] },     ;
  1551.                                                 /* xGETLIST_OPTIONS      */ ;
  1552.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  1553.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<(oMsg)>,'O'}]},                ;
  1554.                                                 /* cGETLIST_MESSAGE      */ ;
  1555.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  1556.       nil,                                      /* cGETLIST_VARNAME      */ ;
  1557.       nil,                                      /* bGETLIST_READVAR      */ ;
  1558.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  1559.       [{DC_GetAnchorCB(@<oObject>,'O'),                                     ;
  1560.                         <(oObject)>,'O'}],      /* nGETLIST_GROUP        */ ;
  1561.       <nCursor>,                                /* bGETLIST_POINTER      */ ;
  1562.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  1563.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  1564.       nil,                                      /* bGETLIST_REFVAR       */ ;
  1565.       <bProtect>,                               /* bGETLIST_PROTECT      */ ;
  1566.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  1567.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  1568.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  1569.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  1570.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  1571.       <abSound>,                                /* xGETLIST_OPTIONS2     */ ;
  1572.       [{<nBMUp>,<nBMDn>,<nBMNu>,<nBMFl>}],      /* xGETLIST_OPTIONS3     */ ;
  1573.       [{<nTextColor>,<nFrameColor>}],           /* xGETLIST_OPTIONS4     */ ;
  1574.       <aRegion>,                                /* xGETLIST_OPTIONS5     */ ;
  1575.       [{<nFiter>,<nFDelay>}],                   /* xGETLIST_OPTIONS6     */ ;
  1576.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  1577.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  1578.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  1579.       nil,                                      /* cGETLIST_LEVEL        */ ;
  1580.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  1581.       nil,                                      /* cGETLIST_ACCESS       */ ;
  1582.       nil,                                      /* bGETLIST_COMPILE      */ ;
  1583.       <cId>,                                    /* cGETLIST_ID           */ ;
  1584.       nil,                                      /* dGETLIST_REVDATE      */ ;
  1585.       nil,                                      /* cGETLIST_REVTIME      */ ;
  1586.       nil,                                      /* cGETLIST_REVUSER      */ ;
  1587.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  1588.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  1589.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  1590.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  1591.       DC_LogicTest([<.lTabStop.>],[<_tab>],[<.lNoTabStop.>],[<_notab>]),    ;
  1592.                                                 /* lGETLIST_TABSTOP      */ ;
  1593.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  1594.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  1595.                                                 /* lGETLIST_VISIBLE      */ ;
  1596.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  1597.       .f.,                                      /* lGETLIST_FLAG         */ ;
  1598.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  1599.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  1600.     } )
  1601.  
  1602. * ------------------------------- *
  1603.  
  1604. #command  @ <nSRow>,<nSCol>,<nERow>,<nECol> DCBOX [<cBox>]                  ;
  1605.                 [COLOR <ncFgC> [,<ncBgC>] ]                                 ;
  1606.                 [CAPTION <cText>]                                           ;
  1607.                 [GROUP <oGroup>]                                            ;
  1608.                 [PARENT <oParent>]                                          ;
  1609.                 [PRESENTATION <aPres>]                                      ;
  1610.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  1611.                 [TOOLTIP <cToolTip>]                                        ;
  1612.                 [CURSOR <nCursor>]                                          ;
  1613.                 [HIDE <bHide>]                                              ;
  1614.                 [EDITPROTECT <bProtect>]                                    ;
  1615.                 [EVAL <bEval>]                                              ;
  1616.                 [PREEVAL <bPreEval>]                                        ;
  1617.                 [TITLE <cTitle>]                                            ;
  1618.                 [RELATIVE <oRel>]                                           ;
  1619.                 [ID <cId>]                                                  ;
  1620.                 [ACCELKEY <nAccel>]                                         ;
  1621.                 [GOTFOCUS <bGotFocus>]                                      ;
  1622.                 [LOSTFOCUS <bLostFocus>]                                    ;
  1623.                 [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
  1624.                 [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
  1625.                 [TABGROUP <nTabGroup>]                                      ;
  1626.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  1627.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  1628.                 [GROUP <cGroup>]                                            ;
  1629.  =>                                                                         ;
  1630.    AADD( DCGUI_GETLIST,                                                     ;
  1631.      { GETLIST_STATIC,                          /* nGETLIST_TYPE         */ ;
  1632.       XBPSTATIC_TYPE_GROUPBOX,                  /* nGETLIST_SUBTYPE      */ ;
  1633.       <cText>,                                  /* cGETLIST_CAPTION      */ ;
  1634.       nil,                                      /* bGETLIST_VAR          */ ;
  1635.       <nSRow>,                                  /* nGETLIST_STARTROW     */ ;
  1636.       <nSCol>,                                  /* nGETLIST_STARTCOL     */ ;
  1637.       <nERow>,                                  /* nGETLIST_ENDROW       */ ;
  1638.       <nECol>,                                  /* nGETLIST_ENDCOL       */ ;
  1639.       nil,                                      /* nGETLIST_WIDTH        */ ;
  1640.       nil,                                      /* nGETLIST_HEIGHT       */ ;
  1641.       nil,                                      /* cGETLIST_FONT         */ ;
  1642.       nil,                                      /* cGETLIST_PICTURE      */ ;
  1643.       nil,                                      /* bGETLIST_WHEN         */ ;
  1644.       nil,                                      /* bGETLIST_VALID        */ ;
  1645.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  1646.       <cBox>,                                   /* xGETLIST_CARGO        */ ;
  1647.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  1648.       nil,                                      /* bGETLIST_ACTION       */ ;
  1649.       nil,                                      /* oGETLIST_OBJECT       */ ;
  1650.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  1651.       DC_ReadOptions(GETLIST_STATIC,{}),        /* xGETLIST_OPTIONS      */ ;
  1652.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  1653.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  1654.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  1655.       nil,                                      /* cGETLIST_VARNAME      */ ;
  1656.       nil,                                      /* bGETLIST_READVAR      */ ;
  1657.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  1658.       [{DC_GetAnchorCB(@<oGroup>,'O'),                                      ;
  1659.                         <(oGroup)>,'O'}],       /* bGETLIST_GROUP        */ ;
  1660.       nil,                                      /* nGETLIST_POINTER      */ ;
  1661.       [DC_GetAnchorCB(@<oParent>,'O'),                                      ;
  1662.                        <(oParent)>,'O'}],       /* bGETLIST_PARENT       */ ;
  1663.       nil,                                      /* bGETLIST_REFVAR       */ ;
  1664.       nil,                                      /* bGETLIST_PROTECT      */ ;
  1665.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  1666.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  1667.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  1668.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  1669.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  1670.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  1671.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  1672.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  1673.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  1674.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  1675.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  1676.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  1677.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  1678.       nil,                                      /* cGETLIST_LEVEL        */ ;
  1679.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  1680.       nil,                                      /* cGETLIST_ACCESS       */ ;
  1681.       nil,                                      /* bGETLIST_COMPILE      */ ;
  1682.       <cId>,                                    /* cGETLIST_ID           */ ;
  1683.       nil,                                      /* dGETLIST_REVDATE      */ ;
  1684.       nil,                                      /* cGETLIST_REVTIME      */ ;
  1685.       nil,                                      /* cGETLIST_REVUSER      */ ;
  1686.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  1687.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  1688.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  1689.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  1690.       DC_LogicTest([<.lTabStop.>],[<_tab>],[<.lNoTabStop.>],[<_notab>]),    ;
  1691.                                                 /* lGETLIST_TABSTOP      */ ;
  1692.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  1693.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  1694.                                                 /* lGETLIST_VISIBLE      */ ;
  1695.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  1696.       .f.,                                      /* lGETLIST_FLAG         */ ;
  1697.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  1698.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  1699.     } )
  1700.  
  1701. * ----------------------------- *
  1702.  
  1703. #command  @ <nRow> [,<nCol>] DCCOMBOBOX [<uVar>]                            ;
  1704.                 [LIST <aList>]                                              ;
  1705.                 [SIZE <nWidth> [,<nHeight>]]                                ;
  1706.                 [PARENT <oParent>]                                          ;
  1707.                 [<r:REFRESH>] [_REFRESH <_refresh>]                         ;
  1708.                 [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
  1709.                 [VALID <bValid>]                                            ;
  1710.                 [HELPCODE <cHelpCode>]                                      ;
  1711.                 [POINTER <nVar>]                                            ;
  1712.                 [COLOR <ncFgC> [,<ncBgC>] ]                                 ;
  1713.                 [DATALINK <bLink>]                                          ;
  1714.                 [WHEN <bWhen>]                                              ;
  1715.                 [FONT <cFont>]                                              ;
  1716.                 [HIDE <bHide>]                                              ;
  1717.                 [EDITPROTECT <bProtect>]                                    ;
  1718.                 [PRESENTATION <aPres>]                                      ;
  1719.                 [TYPE <nType>]                                              ;
  1720.                 [OBJECT <oObject>]                                          ;
  1721.                 [CARGO <xCargo>]                                            ;
  1722.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  1723.                 [TOOLTIP <cToolTip>]                                        ;
  1724.                 [CURSOR <nCursor>]                                          ;
  1725.                 [TITLE <cTitle>]                                            ;
  1726.                 [EVAL <bEval>]                                              ;
  1727.                 [PREEVAL <bPreEval>]                                        ;
  1728.                 [RELATIVE <oRel>]                                           ;
  1729.                 [ID <cId>]                                                  ;
  1730.                 [ACCELKEY <nAccel>]                                         ;
  1731.                 [GOTFOCUS <bGotFocus>]                                      ;
  1732.                 [LOSTFOCUS <bLostFocus>]                                    ;
  1733.                 [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
  1734.                 [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
  1735.                 [TABGROUP <nTabGroup>]                                      ;
  1736.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  1737.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  1738.                 [GROUP <cGroup>]                                            ;
  1739.   =>                                                                        ;
  1740.    AADD( DCGUI_GETLIST,                                                     ;
  1741.     { GETLIST_COMBOBOX,                         /* nGETLIST_TYPE         */ ;
  1742.       <nType>,                                  /* nGETLIST_SUBTYPE      */ ;
  1743.       nil,                                      /* cGETLIST_CAPTION      */ ;
  1744.       [{DC_GetAnchorCB(@<uVar>,,<uVar>,,<bLink>),                           ;
  1745.               <(uVar)>,,,,<(bLink)>}],          /* bGETLIST_VAR          */ ;
  1746.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  1747.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  1748.       nil,                                      /* nGETLIST_ENDROW       */ ;
  1749.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  1750.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  1751.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  1752.       <cFont>,                                  /* cGETLIST_FONT         */ ;
  1753.       nil,                                      /* cGETLIST_PICTURE      */ ;
  1754.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  1755.       <bValid>,                                 /* bGETLIST_VALID        */ ;
  1756.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  1757.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  1758.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  1759.       nil,                                      /* bGETLIST_ACTION       */ ;
  1760.       nil,                                      /* oGETLIST_OBJECT       */ ;
  1761.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  1762.       {<.r.> [.OR. <_refresh>]},                /* xGETLIST_OPTIONS      */ ;
  1763.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  1764.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<(oMsg)>,'O'}]},                ;
  1765.                                                 /* cGETLIST_MESSAGE      */ ;
  1766.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  1767.       <(uVar)>,                                 /* cGETLIST_VARNAME      */ ;
  1768.       nil,                                      /* bGETLIST_READVAR      */ ;
  1769.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  1770.       [{DC_GetAnchorCB(@<oObject>,'O'),                                     ;
  1771.                         <(oObject)>,'O'}],      /* bGETLIST_GROUP        */ ;
  1772.       nil,                                      /* nGETLIST_POINTER      */ ;
  1773.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  1774.                        <(oParent)>,'O'}],       /* bGETLIST_PARENT       */ ;
  1775.       [{DC_GetAnchorCB(@<aList>,'A'),                                       ;
  1776.                       <(aList)>,'A'}],          /* bGETLIST_REFVAR       */ ;
  1777.       <bProtect>,                               /* bGETLIST_PROTECT      */ ;
  1778.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  1779.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  1780.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  1781.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  1782.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  1783.       [{DC_GetAnchorCB(@<nVar>,'N'),<(nVar)>}], /* xGETLIST_OPTIONS2     */ ;
  1784.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  1785.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  1786.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  1787.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  1788.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  1789.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  1790.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  1791.       nil,                                      /* cGETLIST_LEVEL        */ ;
  1792.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  1793.       nil,                                      /* cGETLIST_ACCESS       */ ;
  1794.       nil,                                      /* bGETLIST_COMPILE      */ ;
  1795.       <cId>,                                    /* cGETLIST_ID           */ ;
  1796.       nil,                                      /* dGETLIST_REVDATE      */ ;
  1797.       nil,                                      /* cGETLIST_REVTIME      */ ;
  1798.       nil,                                      /* cGETLIST_REVUSER      */ ;
  1799.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  1800.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  1801.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  1802.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  1803.       DC_LogicTest([<.lTabStop.>],[<_tab>],[<.lNoTabStop.>],[<_notab>]),    ;
  1804.                                                 /* lGETLIST_TABSTOP      */ ;
  1805.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  1806.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  1807.                                                 /* lGETLIST_VISIBLE      */ ;
  1808.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  1809.       .f.,                                      /* lGETLIST_FLAG         */ ;
  1810.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  1811.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  1812.     } )
  1813.  
  1814. * ----------------------------- *
  1815.  
  1816. #xcommand DCTOOLBAR [<options,...>] => @ DCTOOLBAR [<options>]
  1817.  
  1818. #command @ [<nRow>] [, <nCol>] DCTOOLBAR [OBJECT] <oToolBar> [TYPE <nType>] ;
  1819.                 [SIZE <nWidth> [,<nHeight>]]                                ;
  1820.                 [BUTTONSIZE <nBWidth> [,<nBHeight>]]                        ;
  1821.                 [PARENT <oParent>]                                          ;
  1822.                 [RELATIVE <oRel>]                                           ;
  1823.                 [<fancy:FANCY>] [_FANCY <_fancy>]                           ;
  1824.                 [PRESENTATION <aPres>]                                      ;
  1825.                 [COLOR <ncFgC> [,<ncBgC>] ]                                 ;
  1826.                 [ALIGN <nAlign>]                                            ;
  1827.                 [CARGO <xCargo>]                                            ;
  1828.                 [<v:VERTICAL>] [_VERTICAL <_vertical>]                      ;
  1829.                 [<h:HORIZONTAL>] [_HORIZONTAL <_horizontal>]                ;
  1830.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  1831.                 [TITLE <cTitle>]                                            ;
  1832.                 [WHEN <bWhen>]                                              ;
  1833.                 [HIDE <bHide>]                                              ;
  1834.                 [EVAL <bEval>]                                              ;
  1835.                 [PREEVAL <bPreEval>]                                        ;
  1836.                 [CURSOR <nCursor>]                                          ;
  1837.                 [ID <cId>]                                                  ;
  1838.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  1839.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  1840.                 [GROUP <cGroup>]                                            ;
  1841.   =>                                                                        ;
  1842.    AADD( DCGUI_GETLIST,                                                     ;
  1843.     { GETLIST_TOOLBAR,                          /* nGETLIST_TYPE         */ ;
  1844.       <nType>,                                  /* nGETLIST_SUBTYPE      */ ;
  1845.       nil,                                      /* cGETLIST_CAPTION      */ ;
  1846.       nil,                                      /* bGETLIST_VAR          */ ;
  1847.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  1848.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  1849.       nil,                                      /* nGETLIST_ENDROW       */ ;
  1850.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  1851.       [<nWidth>],                               /* nGETLIST_WIDTH        */ ;
  1852.       [<nHeight>],                              /* nGETLIST_HEIGHT       */ ;
  1853.       nil,                                      /* cGETLIST_FONT         */ ;
  1854.       nil,                                      /* cGETLIST_PICTURE      */ ;
  1855.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  1856.       nil,                                      /* bGETLIST_VALID        */ ;
  1857.       nil,                                      /* cGETLIST_TOOLTIP      */ ;
  1858.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  1859.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  1860.       nil,                                      /* bGETLIST_ACTION       */ ;
  1861.       nil,                                      /* oGETLIST_OBJECT       */ ;
  1862.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  1863.       { <nAlign>,<nBWidth>,<nBHeight>,<.fancy.> [.OR. <_fancy>],            ;
  1864.         <.v.> [.OR. <_vertical>],                                           ;
  1865.         <.h.> [.OR. <_horizontal>]},            /* xGETLIST_OPTIONS      */ ;
  1866.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  1867.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  1868.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  1869.       nil,                                      /* cGETLIST_VARNAME      */ ;
  1870.       nil,                                      /* bGETLIST_READVAR      */ ;
  1871.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  1872.       {DC_GetAnchorCB(@<oToolBar>,'O'),                                     ;
  1873.                        <(oToolBar)>,'O'},       /* bGETLIST_GROUP        */ ;
  1874.       <nCursor>,                                /* nGETLIST_POINTER      */ ;
  1875.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  1876.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  1877.       nil,                                      /* bGETLIST_REFVAR       */ ;
  1878.       nil,                                      /* bGETLIST_PROTECT      */ ;
  1879.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  1880.       nil,                                      /* nGETLIST_CURSOR       */ ;
  1881.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  1882.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  1883.                          <oRel>,'O'}],          /* bGETLIST_RELATIVE     */ ;
  1884.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  1885.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  1886.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  1887.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  1888.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  1889.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  1890.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  1891.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  1892.       nil,                                      /* cGETLIST_LEVEL        */ ;
  1893.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  1894.       nil,                                      /* cGETLIST_ACCESS       */ ;
  1895.       nil,                                      /* bGETLIST_COMPILE      */ ;
  1896.       <cId>,                                    /* cGETLIST_ID           */ ;
  1897.       nil,                                      /* dGETLIST_REVDATE      */ ;
  1898.       nil,                                      /* cGETLIST_REVTIME      */ ;
  1899.       nil,                                      /* cGETLIST_REVUSER      */ ;
  1900.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  1901.       nil,                                      /* nGETLIST_ACCELKEY     */ ;
  1902.       nil,                                      /* bGETLIST_GOTFOCUS     */ ;
  1903.       nil,                                      /* bGETLIST_LOSTFOCUS    */ ;
  1904.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  1905.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  1906.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  1907.                                                 /* lGETLIST_VISIBLE      */ ;
  1908.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  1909.       .f.,                                      /* lGETLIST_FLAG         */ ;
  1910.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  1911.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  1912.     } )
  1913.  
  1914. * ------------------------------- *
  1915.  
  1916. #xcommand DCADDBUTTON  [CAPTION <cText>]                                    ;
  1917.                 [<fancy:FANCY>] [_FANCY <_fancy>]                           ;
  1918.                 [TYPE <nType>]                                              ;
  1919.                 [SIZE <nWidth> [,<nHeight>]]                                ;
  1920.                 [<static:STATIC>] [_STATIC <_static>]                       ;
  1921.                   [FOCUSCOLOR <nTextColor>[,<nFrameColor>]]                 ;
  1922.                   [BITMAP <nBMUp> [,<nBMDn> [,<nBMNu> [,<nBMFl>]]]]         ;
  1923.                   [FLASH <nFiter> [,<nFDelay>]]                             ;
  1924.                   [REGION <aRegion>]                                        ;
  1925.                 [<graphics:GRAPHICS>] [_GRAPHICS <_graphics>]               ;
  1926.                 [TEXTHEIGHT <nTextHeight>]                                  ;
  1927.                 [TEXTOFFSET <nHoriz>, <nVert>]                              ;
  1928.                 [ACTION <bAction>]                                          ;
  1929.                 [PARENT <oParent>]                                          ;
  1930.                 [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
  1931.                 [HELPCODE <cHelpCode>]                                      ;
  1932.                 [COLOR <ncFgC> [,<ncBgC>]]                                  ;
  1933.                 [FONT <cFont> ]                                             ;
  1934.                 [PRESENTATION <aPres>]                                      ;
  1935.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  1936.                 [TOOLTIP <cToolTip>]                                        ;
  1937.                 [OBJECT <oObject>]                                          ;
  1938.                 [DRAWINGAREA <oDrawingArea>]                                ;
  1939.                 [CURSOR <nCursor>]                                          ;
  1940.                 [EVAL <bEval>]                                              ;
  1941.                 [PREEVAL <bPreEval>]                                        ;
  1942.                 [TITLE <cTitle>]                                            ;
  1943.                 [WHEN <bWhen>]                                              ;
  1944.                 [HIDE <bHide>]                                              ;
  1945.                 [<pr:EDITPROTECT,PROTECT> <bProtect>]                       ;
  1946.                 [ID <cId>]                                                  ;
  1947.                 [ACCELKEY <nAccel>]                                         ;
  1948.                 [GOTFOCUS <bGotFocus>]                                      ;
  1949.                 [LOSTFOCUS <bLostFocus>]                                    ;
  1950.                 [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
  1951.                 [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
  1952.                 [TABGROUP <nTabGroup>]                                      ;
  1953.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  1954.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  1955.                 [GROUP <cGroup>]                                            ;
  1956.                 [CARGO <xCargo>]                                            ;
  1957.                 [SOUND <abSound>]                                           ;
  1958.  =>                                                                         ;
  1959.   AADD( DCGUI_GETLIST,                                                      ;
  1960.     { GETLIST_ADDBUTTON,                        /* nGETLIST_TYPE         */ ;
  1961.       <nType>,                                  /* nGETLIST_SUBTYPE      */ ;
  1962.       <cText>,                                  /* cGETLIST_CAPTION      */ ;
  1963.       nil,                                      /* bGETLIST_VAR          */ ;
  1964.       nil,                                      /* nGETLIST_STARTROW     */ ;
  1965.       nil,                                      /* nGETLIST_STARTCOL     */ ;
  1966.       nil,                                      /* nGETLIST_ENDROW       */ ;
  1967.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  1968.       [<nWidth>],                               /* nGETLIST_WIDTH        */ ;
  1969.       [<nHeight>],                              /* nGETLIST_HEIGHT       */ ;
  1970.       <cFont>,                                  /* cGETLIST_FONT         */ ;
  1971.       nil,                                      /* cGETLIST_PICTURE      */ ;
  1972.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  1973.       nil,                                      /* bGETLIST_VALID        */ ;
  1974.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  1975.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  1976.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  1977.       <bAction>,                                /* bGETLIST_ACTION       */ ;
  1978.       nil,                                      /* oGETLIST_OBJECT       */ ;
  1979.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  1980.       {nil,nil,nil,<.fancy.> [.OR. <_fancy>],                               ;
  1981.         <.graphics.> [.OR. <_graphics>], <.static.> [.OR. <_static>] },     ;
  1982.                                                 /* xGETLIST_OPTIONS       */ ;
  1983.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  1984.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<(oMsg)>,'O'}]},                ;
  1985.                                                 /* cGETLIST_MESSAGE      */ ;
  1986.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  1987.       nil,                                      /* cGETLIST_VARNAME      */ ;
  1988.       nil,                                      /* bGETLIST_READVAR      */ ;
  1989.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  1990.       [{DC_GetAnchorCB(@<oObject>,'O'),                                     ;
  1991.                         <(oObject)>,'O'}],      /* bGETLIST_GROUP        */ ;
  1992.       <nCursor>,                                /* nGETLIST_POINTER      */ ;
  1993.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  1994.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  1995.       [{DC_GetAnchorCB(@<oDrawingArea>,'O'),                                ;
  1996.                         <(oDrawingArea)>,'O'}], /* bGETLIST_REFVAR       */ ;
  1997.       <bProtect>,                               /* bGETLIST_PROTECT      */ ;
  1998.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  1999.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  2000.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  2001.       nil,                                      /* bGETLIST_RELATIVE     */ ;
  2002.       <abSound>,                                /* xGETLIST_OPTIONS2     */ ;
  2003.       [{<nBMUp>,<nBMDn>,<nBMNu>,<nBMFl>}],      /* xGETLIST_OPTIONS3     */ ;
  2004.       [{<nTextColor>,<nFrameColor>}],           /* xGETLIST_OPTIONS4     */ ;
  2005.       <aRegion>,                                /* xGETLIST_OPTIONS5     */ ;
  2006.       [{<nFiter>,<nFDelay>}],                   /* xGETLIST_OPTIONS6     */ ;
  2007.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  2008.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  2009.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  2010.       nil,                                      /* cGETLIST_LEVEL        */ ;
  2011.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  2012.       nil,                                      /* cGETLIST_ACCESS       */ ;
  2013.       nil,                                      /* bGETLIST_COMPILE      */ ;
  2014.       <cId>,                                    /* cGETLIST_ID           */ ;
  2015.       nil,                                      /* dGETLIST_REVDATE      */ ;
  2016.       nil,                                      /* cGETLIST_REVTIME      */ ;
  2017.       nil,                                      /* cGETLIST_REVUSER      */ ;
  2018.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  2019.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  2020.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  2021.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  2022.       DC_LogicTest([<.lTabStop.>],[<_tab>],[<.lNoTabStop.>],[<_notab>]),    ;
  2023.                                                 /* lGETLIST_TABSTOP      */ ;
  2024.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  2025.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  2026.                                                 /* lGETLIST_VISIBLE      */ ;
  2027.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  2028.       .f.,                                      /* lGETLIST_FLAG         */ ;
  2029.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  2030.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  2031.     } )
  2032.  
  2033. * ----------------------------- *
  2034.  
  2035. #xcommand DCMESSAGEBOX <oMsgBox> [<options,...>] =>                         ;
  2036.           @ DCMESSAGEBOX OBJECT <oMsgBox> [<options>]
  2037.  
  2038. #command @ [<nRow>] [,<nCol>] DCMESSAGEBOX                                  ;
  2039.                 [OBJECT <oMsgBox>]                                          ;
  2040.                 [TEXTOBJECT <oMsgBoxText>]                                  ;
  2041.                 [TYPE <nType>]                                              ;
  2042.                 [SIZE <nWidth> [,<nHeight>] ]                               ;
  2043.                 [PARENT <oParent>]                                          ;
  2044.                 [RELATIVE <oRel>]                                           ;
  2045.                 [FONT <cFont>]                                              ;
  2046.                 [COLOR <ncFgC> [,<ncBgC>] ]                                 ;
  2047.                 [CARGO <xCargo>]                                            ;
  2048.                 [PRESENTATION <aPres>]                                      ;
  2049.                 [ALIGN <nAlign>]                                            ;
  2050.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  2051.                 [TITLE <cTitle>]                                            ;
  2052.                 [HIDE <bHide>]                                              ;
  2053.                 [EVAL <bEval>]                                              ;
  2054.                 [PREEVAL <bPreEval>]                                        ;
  2055.                 [<lMotion:MOTION>] [_MOTION <_motion>]                      ;
  2056.                 [<lClear:CLEAR>] [_CLEAR <_clear>]                          ;
  2057.                 [ID <cId>]                                                  ;
  2058.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  2059.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  2060.                 [GROUP <cGroup>]                                            ;
  2061.                 [<option:OPTIONS,SAYOPTIONS> <nOpt>]                        ;
  2062.   =>                                                                        ;
  2063.    AADD( DCGUI_GETLIST,                                                     ;
  2064.     { GETLIST_MESSAGEBOX,                       /* nGETLIST_TYPE         */ ;
  2065.       <nType>,                                  /* nGETLIST_SUBTYPE      */ ;
  2066.       nil,                                      /* cGETLIST_CAPTION      */ ;
  2067.       nil,                                      /* bGETLIST_VAR          */ ;
  2068.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  2069.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  2070.       nil,                                      /* nGETLIST_ENDROW       */ ;
  2071.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  2072.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  2073.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  2074.       <cFont>,                                  /* cGETLIST_FONT         */ ;
  2075.       nil,                                      /* cGETLIST_PICTURE      */ ;
  2076.       nil,                                      /* bGETLIST_WHEN         */ ;
  2077.       nil,                                      /* bGETLIST_VALID        */ ;
  2078.       nil,                                      /* cGETLIST_TOOLTIP      */ ;
  2079.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  2080.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  2081.       nil,                                      /* bGETLIST_ACTION       */ ;
  2082.       nil,                                      /* oGETLIST_OBJECT       */ ;
  2083.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  2084.       {<nAlign>,<.lMotion.> [.OR. <_motion>],<nOpt>,                        ;
  2085.        <.lClear.> [.OR. <_clear>] },                                        ;
  2086.                                                 /* xGETLIST_OPTIONS      */ ;
  2087.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  2088.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  2089.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  2090.       nil,                                      /* cGETLIST_VARNAME      */ ;
  2091.       nil,                                      /* bGETLIST_READVAR      */ ;
  2092.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  2093.       [{DC_GetAnchorCB(@<oMsgBox>,'O'),<(oMsgBox)>,'O'}],                   ;
  2094.                                                 /* bGETLIST_GROUP        */ ;
  2095.       nil,                                      /* nGETLIST_POINTER      */ ;
  2096.       [{DC_GetAnchorCB(@<oParent>,'O'),<(oParent)>,'O'}],                   ;
  2097.                                                 /* bGETLIST_PARENT       */ ;
  2098.       nil,                                      /* bGETLIST_REFVAR       */ ;
  2099.       nil,                                      /* bGETLIST_PROTECT      */ ;
  2100.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  2101.       nil,                                      /* nGETLIST_CURSOR       */ ;
  2102.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  2103.       [{DC_GetAnchorCb(@<oRel>,'O'),<(oRel)>,'O'}],                         ;
  2104.                                                 /* bGETLIST_RELATIVE     */ ;
  2105.       [{DC_GetAnchorCb(@<oMsgBoxText>,'O'),<(oMsgBoxText)>,'O'}],           ;
  2106.                                                 /* xGETLIST_OPTIONS2     */ ;
  2107.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  2108.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  2109.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  2110.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  2111.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  2112.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  2113.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  2114.       nil,                                      /* cGETLIST_LEVEL        */ ;
  2115.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  2116.       nil,                                      /* cGETLIST_ACCESS       */ ;
  2117.       nil,                                      /* bGETLIST_COMPILE      */ ;
  2118.       <cId>,                                    /* cGETLIST_ID           */ ;
  2119.       nil,                                      /* dGETLIST_REVDATE      */ ;
  2120.       nil,                                      /* cGETLIST_REVTIME      */ ;
  2121.       nil,                                      /* cGETLIST_REVUSER      */ ;
  2122.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  2123.       nil,                                      /* nGETLIST_ACCELKEY     */ ;
  2124.       nil,                                      /* bGETLIST_GOTFOCUS     */ ;
  2125.       nil,                                      /* bGETLIST_LOSTFOCUS    */ ;
  2126.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  2127.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  2128.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  2129.                                                 /* lGETLIST_VISIBLE      */ ;
  2130.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  2131.       .f.,                                      /* lGETLIST_FLAG         */ ;
  2132.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  2133.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  2134.     } )
  2135.  
  2136.  
  2137. * ------------------------------- *
  2138.  
  2139. #command  @ <nRow> [,<nCol>] DC3STATE [<uVar>]                              ;
  2140.                 [<prompt: PROMPT,CAPTION> <aVar>]                           ;
  2141.                 [SIZE <nWidth> [,<nHeight>]]                                ;
  2142.                 [PARENT <oParent>]                                          ;
  2143.                 [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
  2144.                 [COLOR <ncFgC> [,<ncBgC>] ]                                 ;
  2145.                 [HELPCODE <cHelpCode>]                                      ;
  2146.                 [DATALINK <bLink>]                                          ;
  2147.                 [FONT <cFont>]                                              ;
  2148.                 [WHEN <bWhen>]                                              ;
  2149.                 [PRESENTATION <aPres>]                                      ;
  2150.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  2151.                 [OBJECT <oObject>]                                          ;
  2152.                 [TOOLTIP <cToolTip>]                                        ;
  2153.                 [CURSOR <nCursor>]                                          ;
  2154.                 [CARGO <xCargo>]                                            ;
  2155.                 [HIDE <bHide>]                                              ;
  2156.                 [EDITPROTECT <bProtect>]                                    ;
  2157.                 [EVAL <bEval>]                                              ;
  2158.                 [PREEVAL <bPreEval>]                                        ;
  2159.                 [TITLE <cTitle>]                                            ;
  2160.                 [RELATIVE <oRel>]                                           ;
  2161.                 [ID <cId>]                                                  ;
  2162.                 [ACCELKEY <nAccel>]                                         ;
  2163.                 [GOTFOCUS <bGotFocus>]                                      ;
  2164.                 [LOSTFOCUS <bLostFocus>]                                    ;
  2165.                 [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
  2166.                 [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
  2167.                 [TABGROUP <nTabGroup>]                                      ;
  2168.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  2169.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  2170.                 [GROUP <cGroup>]                                            ;
  2171.   =>                                                                        ;
  2172.    AADD( DCGUI_GETLIST,                                                     ;
  2173.     { GETLIST_3STATE,                           /* nGETLIST_TYPE         */ ;
  2174.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  2175.       nil,                                      /* cGETLIST_CAPTION      */ ;
  2176.       [{DC_GetAnchorCB(@<uVar>,'N',,,<bLink>),                              ;
  2177.                <(uVar)>,'N',,,<(bLink)>}],      /* bGETLIST_VAR          */ ;
  2178.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  2179.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  2180.       nil,                                      /* nGETLIST_ENDROW       */ ;
  2181.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  2182.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  2183.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  2184.       <cFont>,                                  /* cGETLIST_FONT         */ ;
  2185.       nil,                                      /* cGETLIST_PICTURE      */ ;
  2186.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  2187.       nil,                                      /* bGETLIST_VALID        */ ;
  2188.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  2189.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  2190.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  2191.       nil,                                      /* bGETLIST_ACTION       */ ;
  2192.       nil,                                      /* oGETLIST_OBJECT       */ ;
  2193.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  2194.       nil,                                      /* xGETLIST_OPTIONS      */ ;
  2195.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  2196.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<(oMsg)>,'O'}]},                ;
  2197.                                                 /* cGETLIST_MESSAGE      */ ;
  2198.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  2199.       <(uVar)>,                                 /* cGETLIST_VARNAME      */ ;
  2200.       nil,                                      /* bGETLIST_READVAR      */ ;
  2201.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  2202.       [{DC_GetAnchorCB(@<oObject>,'O'),                                     ;
  2203.                         <(oObject)>,'O'}],      /* bGETLIST_GROUP        */ ;
  2204.       nil,                                      /* nGETLIST_POINTER      */ ;
  2205.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  2206.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  2207.       [{DC_GetAnchorCB(@<aVar>),<(aVar)>}],     /* bGETLIST_REFVAR       */ ;
  2208.       <bProtect>,                               /* bGETLIST_PROTECT      */ ;
  2209.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  2210.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  2211.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  2212.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  2213.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  2214.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  2215.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  2216.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  2217.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  2218.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  2219.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  2220.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  2221.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  2222.       nil,                                      /* cGETLIST_LEVEL        */ ;
  2223.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  2224.       nil,                                      /* cGETLIST_ACCESS       */ ;
  2225.       nil,                                      /* bGETLIST_COMPILE      */ ;
  2226.       <cId>,                                    /* cGETLIST_ID           */ ;
  2227.       nil,                                      /* dGETLIST_REVDATE      */ ;
  2228.       nil,                                      /* cGETLIST_REVTIME      */ ;
  2229.       nil,                                      /* cGETLIST_REVUSER      */ ;
  2230.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  2231.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  2232.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  2233.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  2234.       DC_LogicTest([<.lTabStop.>],[<_tab>],[<.lNoTabStop.>],[<_notab>]),    ;
  2235.                                                 /* lGETLIST_TABSTOP      */ ;
  2236.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  2237.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  2238.                                                 /* lGETLIST_VISIBLE      */ ;
  2239.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  2240.       .f.,                                      /* lGETLIST_FLAG         */ ;
  2241.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  2242.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  2243.     } )
  2244.  
  2245. * ------------------------------- *
  2246.  
  2247. #command  @ <nSRow>,<nSCol> [,<nERow>,<nECol>] DCGROUP <oGroup>             ;
  2248.                 [BOX <cBox>]                                                ;
  2249.                 [PARENT <oParent>]                                          ;
  2250.                 [SIZE <nWidth>, <nHeight>]                                  ;
  2251.                 [CAPTION <cText>]                                           ;
  2252.                 [FONT <cFont>]                                              ;
  2253.                 [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
  2254.                 [COLOR <ncFgC> [,<ncBgC>] ]                                 ;
  2255.                 [HELPCODE <cHelpCode>]                                      ;
  2256.                 [PRESENTATION <aPres>]                                      ;
  2257.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  2258.                 [TOOLTIP <cToolTip>]                                        ;
  2259.                 [CURSOR <nCursor>]                                          ;
  2260.                 [WHEN <bWhen>]                                              ;
  2261.                 [HIDE <bHide>]                                              ;
  2262.                 [CARGO <xCargo>]                                            ;
  2263.                 [EVAL <bEval>]                                              ;
  2264.                 [PREEVAL <bPreEval>]                                        ;
  2265.                 [TITLE <cTitle>]                                            ;
  2266.                 [RELATIVE <oRel>]                                           ;
  2267.                 [ID <cId>]                                                  ;
  2268.                 [ACCELKEY <nAccel>]                                         ;
  2269.                 [GOTFOCUS <bGotFocus>]                                      ;
  2270.                 [LOSTFOCUS <bLostFocus>]                                    ;
  2271.                 [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
  2272.                 [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
  2273.                 [TABGROUP <nTabGroup>]                                      ;
  2274.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  2275.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  2276.                 [GROUP <cGroup>]                                            ;
  2277.   =>                                                                        ;
  2278.   AADD( DCGUI_GETLIST,                                                      ;
  2279.     { GETLIST_STATIC,                           /* nGETLIST_TYPE         */ ;
  2280.       XBPSTATIC_TYPE_GROUPBOX,                  /* nGETLIST_SUBTYPE      */ ;
  2281.       <cText>,                                  /* cGETLIST_CAPTION      */ ;
  2282.       nil,                                      /* bGETLIST_VAR          */ ;
  2283.       <nSRow>,                                  /* nGETLIST_STARTROW     */ ;
  2284.       <nSCol>,                                  /* nGETLIST_STARTCOL     */ ;
  2285.       [<nERow>],                                /* nGETLIST_ENDROW       */ ;
  2286.       [<nECol>],                                /* nGETLIST_ENDCOL       */ ;
  2287.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  2288.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  2289.       <cFont>,                                  /* cGETLIST_FONT         */ ;
  2290.       nil,                                      /* cGETLIST_PICTURE      */ ;
  2291.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  2292.       nil,                                      /* bGETLIST_VALID        */ ;
  2293.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  2294.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  2295.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  2296.       nil,                                      /* bGETLIST_ACTION       */ ;
  2297.       nil,                                      /* oGETLIST_OBJECT       */ ;
  2298.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  2299.       {<cBox>},                                 /* xGETLIST_OPTIONS      */ ;
  2300.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  2301.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<(oMsg)>,'O'}]},                ;
  2302.                                                 /* cGETLIST_MESSAGE      */ ;
  2303.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  2304.       nil,                                      /* cGETLIST_VARNAME      */ ;
  2305.       nil,                                      /* bGETLIST_READVAR      */ ;
  2306.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  2307.       {DC_GetAnchorCB(@<oGroup>,'O'),                                       ;
  2308.                        <(oGroup)>,'O'},         /* bGETLIST_GROUP        */ ;
  2309.       nil,                                      /* nGETLIST_POINTER      */ ;
  2310.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  2311.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  2312.       nil,                                      /* bGETLIST_REFVAR       */ ;
  2313.       nil,                                      /* bGETLIST_PROTECT      */ ;
  2314.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  2315.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  2316.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  2317.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  2318.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  2319.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  2320.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  2321.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  2322.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  2323.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  2324.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  2325.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  2326.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  2327.       nil,                                      /* cGETLIST_LEVEL        */ ;
  2328.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  2329.       nil,                                      /* cGETLIST_ACCESS       */ ;
  2330.       nil,                                      /* bGETLIST_COMPILE      */ ;
  2331.       <cId>,                                    /* cGETLIST_ID           */ ;
  2332.       nil,                                      /* dGETLIST_REVDATE      */ ;
  2333.       nil,                                      /* cGETLIST_REVTIME      */ ;
  2334.       nil,                                      /* cGETLIST_REVUSER      */ ;
  2335.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  2336.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  2337.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  2338.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  2339.       DC_LogicTest([<.lTabStop.>],[<_tab>],[<.lNoTabStop.>],[<_notab>]),    ;
  2340.                                                 /* lGETLIST_TABSTOP      */ ;
  2341.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  2342.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  2343.                                                 /* lGETLIST_VISIBLE      */ ;
  2344.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  2345.       .f.,                                      /* lGETLIST_FLAG         */ ;
  2346.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  2347.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  2348.    } )
  2349.  
  2350. * ------------------------------- *
  2351.  
  2352. #command  @ <nRow> [,<nCol>] DCSTATIC [ [TYPE] <nType> ]                    ;
  2353.                 [SIZE <nWidth> [,<nHeight>]]                                ;
  2354.                 [OBJECT <oObject>]                                          ;
  2355.                 [PARENT <oParent>]                                          ;
  2356.                 [COLOR <ncFgC> [,<ncBgC>] ]                                 ;
  2357.                 [OPTIONS <nOptions>]                                        ;
  2358.                 [FONT <cFont>]                                              ;
  2359.                 [CARGO <xCargo>]                                            ;
  2360.                 [CAPTION <xCaption>]                                        ;
  2361.                 [PRESENTATION <aPres>]                                      ;
  2362.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  2363.                 [WHEN <bWhen>]                                              ;
  2364.                 [HIDE <bHide>]                                              ;
  2365.                 [TOOLTIP <cToolTip>]                                        ;
  2366.                 [CURSOR <nCursor>]                                          ;
  2367.                 [EVAL <bEval>]                                              ;
  2368.                 [PREEVAL <bPreEval>]                                        ;
  2369.                 [TITLE <cTitle>]                                            ;
  2370.                 [RELATIVE <oRel>]                                           ;
  2371.                 [ID <cId>]                                                  ;
  2372.                 [HELPCODE <cHelpCode>]                                      ;
  2373.                 [ACCELKEY <nAccel>]                                         ;
  2374.                 [GOTFOCUS <bGotFocus>]                                      ;
  2375.                 [LOSTFOCUS <bLostFocus>]                                    ;
  2376.                 [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
  2377.                 [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
  2378.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  2379.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  2380.                 [GROUP <cGroup>]                                            ;
  2381.                 [VSCROLL <oVStatic>                                         ;
  2382.                          RANGE <nVStart>, <nVEnd> [OBJECT <oVScroll>] ]     ;
  2383.                 [HSCROLL <oHStatic>                                         ;
  2384.                          RANGE <nHStart>, <nHEnd> [OBJECT <oHScroll>] ]     ;
  2385.  =>                                                                         ;
  2386.   AADD( DCGUI_GETLIST,                                                      ;
  2387.     { GETLIST_STATIC,                           /* nGETLIST_TYPE         */ ;
  2388.       <nType>,                                  /* nGETLIST_SUBTYPE      */ ;
  2389.       <xCaption>,                               /* cGETLIST_CAPTION      */ ;
  2390.       nil,                                      /* bGETLIST_VAR          */ ;
  2391.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  2392.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  2393.       nil,                                      /* nGETLIST_ENDROW       */ ;
  2394.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  2395.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  2396.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  2397.       <cFont>,                                  /* cGETLIST_FONT         */ ;
  2398.       nil,                                      /* cGETLIST_PICTURE      */ ;
  2399.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  2400.       nil,                                      /* bGETLIST_VALID        */ ;
  2401.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  2402.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  2403.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  2404.       nil,                                      /* bGETLIST_ACTION       */ ;
  2405.       nil,                                      /* oGETLIST_OBJECT       */ ;
  2406.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  2407.       {<nOptions>},                             /* xGETLIST_OPTIONS      */ ;
  2408.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  2409.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  2410.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  2411.       nil,                                      /* cGETLIST_VARNAME      */ ;
  2412.       nil,                                      /* bGETLIST_READVAR      */ ;
  2413.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  2414.       [{DC_GetAnchorCB(@<oObject>,'O'),                                     ;
  2415.                         <(oObject)>,'O'}],      /* bGETLIST_GROUP        */ ;
  2416.       nil,                                      /* nGETLIST_POINTER      */ ;
  2417.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  2418.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  2419.       nil,                                      /* bGETLIST_REFVAR       */ ;
  2420.       nil,                                      /* bGETLIST_PROTECT      */ ;
  2421.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  2422.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  2423.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  2424.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  2425.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  2426.       { [{DC_GetAnchorCb(@<oVStatic>,'O'),<(oVStatic)>,'O'}],               ;
  2427.          <nVStart>, <nVEnd>,                                                ;
  2428.          [{DC_GetAnchorCb(@<oVScroll>,'O'),<(oVScroll)>,'O'}] },            ;
  2429.                                                 /* xGETLIST_OPTIONS2     */ ;
  2430.       { [{DC_GetAnchorCb(@<oHStatic>,'O'),<(oHStatic)>,'O'}],               ;
  2431.          <nHStart>, <nHEnd>,                                                ;
  2432.          [{DC_GetAnchorCb(@<oHScroll>,'O'),<(oHScroll)>,'O'}] },            ;
  2433.                                                 /* xGETLIST_OPTIONS3     */ ;
  2434.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  2435.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  2436.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  2437.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  2438.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  2439.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  2440.       nil,                                      /* cGETLIST_LEVEL        */ ;
  2441.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  2442.       nil,                                      /* cGETLIST_ACCESS       */ ;
  2443.       nil,                                      /* bGETLIST_COMPILE      */ ;
  2444.       <cId>,                                    /* cGETLIST_ID           */ ;
  2445.       nil,                                      /* dGETLIST_REVDATE      */ ;
  2446.       nil,                                      /* cGETLIST_REVTIME      */ ;
  2447.       nil,                                      /* cGETLIST_REVUSER      */ ;
  2448.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  2449.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  2450.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  2451.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  2452.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  2453.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  2454.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  2455.                                                 /* lGETLIST_VISIBLE      */ ;
  2456.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  2457.       .f.,                                      /* lGETLIST_FLAG         */ ;
  2458.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  2459.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  2460.    } )
  2461.  
  2462. * ------------------------------- *
  2463.  
  2464. #command  @ <nSRow> [,<nSCol>] DCTABPAGE [<oObject1>]                       ;
  2465.                 [OBJECT <oObject2>]                                         ;
  2466.                 [SIZE <nWidth> [,<nHeight>]]                                ;
  2467.                 [TYPE <nType>]                                              ;
  2468.                 [TABHEIGHT <nTabH>]                                         ;
  2469.                 [TABWIDTH <nTabW>]                                          ;
  2470.                 [PREOFFSET <nPre>]                                          ;
  2471.                 [POSTOFFSET <nPost>]                                        ;
  2472.                 [PARENT <oParent>]                                          ;
  2473.                 [GROUP <nGroup>]                                            ;
  2474.                 [FONT <cFont>]                                              ;
  2475.                 [CAPTION <cText>]                                           ;
  2476.                 [CARGO <xCargo>]                                            ;
  2477.                 [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
  2478.                 [HELPCODE <cHelpCode>]                                      ;
  2479.                 [COLOR <ncColor> [,<ncDisabled>] ]                          ;
  2480.                 [DATALINK <bDataLink>]                                      ;
  2481.                 [WHEN <bWhen>]                                              ;
  2482.                 [HIDE <bHide>]                                              ;
  2483.                 [VALID <bValid>]                                            ;
  2484.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  2485.                 [TOOLTIP <cToolTip>]                                        ;
  2486.                 [CURSOR <nCursor>]                                          ;
  2487.                 [RELATIVE <oRel>]                                           ;
  2488.                 [TITLE <cTitle>]                                            ;
  2489.                 [EVAL <bEval>]                                              ;
  2490.                 [PREEVAL <bPreEval>]                                        ;
  2491.                 [ID <cId>]                                                  ;
  2492.                 [ACCELKEY <nAccel>]                                         ;
  2493.                 [GOTFOCUS <bGotFocus>]                                      ;
  2494.                 [LOSTFOCUS <bLostFocus>]                                    ;
  2495.                 [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
  2496.                 [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
  2497.                 [TABGROUP <nTabGroup>]                                      ;
  2498.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  2499.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  2500.                 [PRESENTATION <aPres>]                                      ;
  2501.                 [GROUP <cGroup>]                                            ;
  2502.                 [STATICAREA <oStatic>]                                      ;
  2503.                 [ANGLE <nAngle>]                                            ;
  2504.  =>                                                                         ;
  2505.   AADD( DCGUI_GETLIST,                                                      ;
  2506.     { GETLIST_TABPAGE,                          /* nGETLIST_TYPE         */ ;
  2507.       <nType>,                                  /* nGETLIST_SUBTYPE      */ ;
  2508.       <cText>,                                  /* cGETLIST_CAPTION      */ ;
  2509.       nil,                                      /* bGETLIST_VAR          */ ;
  2510.       <nSRow>,                                  /* nGETLIST_STARTROW     */ ;
  2511.       <nSCol>,                                  /* nGETLIST_STARTCOL     */ ;
  2512.       nil,                                      /* nGETLIST_ENDROW       */ ;
  2513.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  2514.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  2515.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  2516.       <cFont>,                                  /* cGETLIST_FONT         */ ;
  2517.       nil,                                      /* cGETLIST_PICTURE      */ ;
  2518.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  2519.       <bValid>,                                 /* bGETLIST_VALID        */ ;
  2520.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  2521.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  2522.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  2523.       {<bDataLink>,<(bDataLink)>},              /* bGETLIST_ACTION       */ ;
  2524.       nil,                                      /* oGETLIST_OBJECT       */ ;
  2525.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  2526.       { <nPre>, <nPost>, <nGroup>, <nTabH>, <nTabW>, <nAngle> },            ;
  2527.                                                 /* xGETLIST_OPTIONS      */ ;
  2528.       {<ncColor>,<ncDisabled>},                 /* aGETLIST_COLOR        */ ;
  2529.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<(oMsg)>,'O'}]},                ;
  2530.                                                 /* cGETLIST_MESSAGE      */ ;
  2531.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  2532.       nil,                                      /* cGETLIST_VARNAME      */ ;
  2533.       nil,                                      /* bGETLIST_READVAR      */ ;
  2534.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  2535.       {[DC_GetAnchorCB(@<oObject1>,'O'),<(oObject1)>,'O']                   ;
  2536.        [DC_GetAnchorCB(@<oObject2>,'O'),<(oObject2)>,'O']},                 ;
  2537.                                                 /* bGETLIST_GROUP        */ ;
  2538.       nil,                                      /* nGETLIST_POINTER      */ ;
  2539.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  2540.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  2541.       [{DC_GetAnchorCB(@<oStatic>,'O'),                                     ;
  2542.                         <(oStatic)>,'O'}],      /* bGETLIST_REFVAR       */ ;
  2543.       nil,                                      /* bGETLIST_PROTECT      */ ;
  2544.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  2545.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  2546.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  2547.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  2548.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  2549.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  2550.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  2551.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  2552.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  2553.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  2554.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  2555.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  2556.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  2557.       nil,                                      /* cGETLIST_LEVEL        */ ;
  2558.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  2559.       nil,                                      /* cGETLIST_ACCESS       */ ;
  2560.       nil,                                      /* bGETLIST_COMPILE      */ ;
  2561.       <cId>,                                    /* cGETLIST_ID           */ ;
  2562.       nil,                                      /* dGETLIST_REVDATE      */ ;
  2563.       nil,                                      /* cGETLIST_REVTIME      */ ;
  2564.       nil,                                      /* cGETLIST_REVUSER      */ ;
  2565.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  2566.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  2567.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  2568.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  2569.       DC_LogicTest([<.lTabStop.>],[<_tab>],[<.lNoTabStop.>],[<_notab>]),    ;
  2570.                                                 /* lGETLIST_TABSTOP      */ ;
  2571.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  2572.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  2573.                                                 /* lGETLIST_VISIBLE      */ ;
  2574.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  2575.       .f.,                                      /* lGETLIST_FLAG         */ ;
  2576.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  2577.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  2578.     } )
  2579.  
  2580. * ------------------------------- *
  2581.  
  2582. #xcommand  DCMENUBAR [OBJECT] <oMenuBar> [PARENT <oParent>]                 ;
  2583.            [EVAL <bEval>]                                                   ;
  2584.            [PREEVAL <bPreEval>]                                             ;
  2585.            [TITLE <cTitle>]                                                 ;
  2586.            [CARGO <xCargo>]                                                 ;
  2587.            [ID <cId>]                                                       ;
  2588.            [GROUP <cGroup>]                                                 ;
  2589.   =>                                                                        ;
  2590.   AADD( DCGUI_GETLIST,                                                      ;
  2591.     { GETLIST_MENUBAR,                          /* nGETLIST_TYPE         */ ;
  2592.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  2593.       nil,                                      /* cGETLIST_CAPTION      */ ;
  2594.       nil,                                      /* bGETLIST_VAR          */ ;
  2595.       nil,                                      /* nGETLIST_STARTROW     */ ;
  2596.       nil,                                      /* nGETLIST_STARTCOL     */ ;
  2597.       nil,                                      /* nGETLIST_ENDROW       */ ;
  2598.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  2599.       nil,                                      /* nGETLIST_WIDTH        */ ;
  2600.       nil,                                      /* nGETLIST_HEIGHT       */ ;
  2601.       nil,                                      /* cGETLIST_FONT         */ ;
  2602.       nil,                                      /* cGETLIST_PICTURE      */ ;
  2603.       nil,                                      /* bGETLIST_WHEN         */ ;
  2604.       nil,                                      /* bGETLIST_VALID        */ ;
  2605.       nil,                                      /* cGETLIST_TOOLTIP      */ ;
  2606.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  2607.       nil,                                      /* aGETLIST_PRESENTATION */ ;
  2608.       nil,                                      /* bGETLIST_ACTION       */ ;
  2609.       nil,                                      /* oGETLIST_OBJECT       */ ;
  2610.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  2611.       nil,                                      /* xGETLIST_OPTIONS      */ ;
  2612.       nil,                                      /* aGETLIST_COLOR        */ ;
  2613.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  2614.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  2615.       nil,                                      /* cGETLIST_VARNAME      */ ;
  2616.       nil,                                      /* bGETLIST_READVAR      */ ;
  2617.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  2618.       {DC_GetAnchorCB(@<oMenuBar>,'O'),                                     ;
  2619.                        <(oMenuBar)>,'O'},       /* bGETLIST_GROUP        */ ;
  2620.       nil,                                      /* nGETLIST_POINTER      */ ;
  2621.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  2622.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  2623.       nil,                                      /* bGETLIST_REFVAR       */ ;
  2624.       nil,                                      /* bGETLIST_PROTECT      */ ;
  2625.       .f.,                                      /* lGETLIST_PIXEL        */ ;
  2626.       nil,                                      /* nGETLIST_CURSOR       */ ;
  2627.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  2628.       nil,                                      /* bGETLIST_RELATIVE     */ ;
  2629.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  2630.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  2631.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  2632.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  2633.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  2634.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  2635.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  2636.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  2637.       nil,                                      /* cGETLIST_LEVEL        */ ;
  2638.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  2639.       nil,                                      /* cGETLIST_ACCESS       */ ;
  2640.       nil,                                      /* bGETLIST_COMPILE      */ ;
  2641.       <cId>,                                    /* cGETLIST_ID           */ ;
  2642.       nil,                                      /* dGETLIST_REVDATE      */ ;
  2643.       nil,                                      /* cGETLIST_REVTIME      */ ;
  2644.       nil,                                      /* cGETLIST_REVUSER      */ ;
  2645.       nil,                                      /* bGETLIST_HIDE         */ ;
  2646.       nil,                                      /* nGETLIST_ACCELKEY     */ ;
  2647.       nil,                                      /* bGETLIST_GOTFOCUS     */ ;
  2648.       nil,                                      /* bGETLIST_LOSTFOCUS    */ ;
  2649.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  2650.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  2651.       nil,                                      /* lGETLIST_VISIBLE      */ ;
  2652.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  2653.       .f.,                                      /* lGETLIST_FLAG         */ ;
  2654.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  2655.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  2656.     } )
  2657.  
  2658. * ------------------------------- *
  2659.  
  2660. #xcommand  DCSUBMENU <oSubMenu>                                             ;
  2661.                 [<prompt: PROMPT,CAPTION> <cPrompt>]                        ;
  2662.                 [TOOLTIP <cToolTip>]                                        ;
  2663.                 [INDEX <nIndex>]                                            ;
  2664.                 [PARENT <oParent>]                                          ;
  2665.                 [WHEN <bWhen>]                                              ;
  2666.                 [ACTION <bAction>]                                          ;
  2667.                 [HELPCODE <cHelpCode>]                                      ;
  2668.                 [<lCheck:CHECKED>] [_CHECKED <_checked>]                    ;
  2669.                 [<lSep:SEPARATOR>] [_SEPARATOR <_separator>]                ;
  2670.                 [<lSelect:SELECT>] [_SELECT <_select>]                      ;
  2671.                 [STYLE <nStyle>]                                            ;
  2672.                 [ATTRIBUTE <nAttr>]                                         ;
  2673.                 [LOCK <cLock>]                                              ;
  2674.                 [PROTECT <bProtect>]                                        ;
  2675.                 [RETURN <nReturn>]                                          ;
  2676.                 [CARGO <xCargo>]                                            ;
  2677.                 [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
  2678.                 [ID <cId>]                                                  ;
  2679.                 [PRESENTATION <aPres>]                                      ;
  2680.                 [TITLE <cTitle>]                                            ;
  2681.                 [EVAL <bEval>]                                              ;
  2682.                 [PREEVAL <bPreEval>]                                        ;
  2683.                 [ID <cId>]                                                  ;
  2684.                 [ACCELKEY <nAccel>]                                         ;
  2685.                 [GROUP <cGroup>]                                            ;
  2686.                 [BITMAP <nBmUnChecked> [, <nBmChecked>] ]                   ;
  2687.  =>                                                                         ;
  2688.   AADD( DCGUI_GETLIST,                                                      ;
  2689.     { GETLIST_SUBMENU,                          /* nGETLIST_TYPE         */ ;
  2690.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  2691.       <cPrompt>,                                /* cGETLIST_CAPTION      */ ;
  2692.       [{DC_GetAnchorCB(@<nIndex>,'N',),                                     ;
  2693.                          <(nIndex)>,'N'}],      /* bGETLIST_VAR          */ ;
  2694.       nil,                                      /* nGETLIST_STARTROW     */ ;
  2695.       nil,                                      /* nGETLIST_STARTCOL     */ ;
  2696.       nil,                                      /* nGETLIST_ENDROW       */ ;
  2697.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  2698.       nil,                                      /* nGETLIST_WIDTH        */ ;
  2699.       nil,                                      /* nGETLIST_HEIGHT       */ ;
  2700.       nil,                                      /* cGETLIST_FONT         */ ;
  2701.       nil,                                      /* cGETLIST_PICTURE      */ ;
  2702.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  2703.       nil,                                      /* bGETLIST_VALID        */ ;
  2704.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  2705.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  2706.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  2707.       <bAction>,                                /* bGETLIST_ACTION       */ ;
  2708.       nil,                                      /* oGETLIST_OBJECT       */ ;
  2709.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  2710.       {<nReturn>,<cId>,<cLock>,                                             ;
  2711.        <.lCheck.> [.OR. <_checked>],<.lSep.> [.OR. <_separator>],           ;
  2712.        <nStyle>,<nAttr>,<.lSelect.> [.OR. <_select>]},                      ;
  2713.                                                 /* xGETLIST_OPTIONS      */ ;
  2714.       nil,                                      /* aGETLIST_COLOR        */ ;
  2715.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<(oMsg)>,'O'}]},                ;
  2716.                                                 /* cGETLIST_MESSAGE      */ ;
  2717.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  2718.       nil,                                      /* cGETLIST_VARNAME      */ ;
  2719.       nil,                                      /* bGETLIST_READVAR      */ ;
  2720.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  2721.       {DC_GetAnchorCB(@<oSubMenu>,'O'),                                     ;
  2722.                        <(oSubMenu)>,'O'},       /* bGETLIST_GROUP        */ ;
  2723.       nil,                                      /* nGETLIST_POINTER      */ ;
  2724.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  2725.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  2726.       nil,                                      /* bGETLIST_REFVAR       */ ;
  2727.       <bProtect>,                               /* bGETLIST_PROTECT      */ ;
  2728.       .f.,                                      /* lGETLIST_PIXEL        */ ;
  2729.       nil,                                      /* nGETLIST_CURSOR       */ ;
  2730.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  2731.       nil,                                      /* bGETLIST_RELATIVE     */ ;
  2732.       [{<nBmUnChecked>,<nBmChecked>}],          /* xGETLIST_OPTIONS2     */ ;
  2733.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  2734.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  2735.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  2736.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  2737.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  2738.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  2739.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  2740.       nil,                                      /* cGETLIST_LEVEL        */ ;
  2741.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  2742.       nil,                                      /* cGETLIST_ACCESS       */ ;
  2743.       nil,                                      /* bGETLIST_COMPILE      */ ;
  2744.       <cId>,                                    /* cGETLIST_ID           */ ;
  2745.       nil,                                      /* dGETLIST_REVDATE      */ ;
  2746.       nil,                                      /* cGETLIST_REVTIME      */ ;
  2747.       nil,                                      /* cGETLIST_REVUSER      */ ;
  2748.       nil,                                      /* bGETLIST_HIDE         */ ;
  2749.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  2750.       nil,                                      /* bGETLIST_GOTFOCUS     */ ;
  2751.       nil,                                      /* bGETLIST_LOSTFOCUS    */ ;
  2752.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  2753.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  2754.       nil,                                      /* lGETLIST_VISIBLE      */ ;
  2755.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  2756.       .f.,                                      /* lGETLIST_FLAG         */ ;
  2757.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  2758.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  2759.     } )
  2760.  
  2761. * ------------------------------- *
  2762.  
  2763. #xcommand  DCMENUITEM [[CAPTION][PROMPT] <cPrompt>]                         ;
  2764.                 [INDEX <nIndex>]                                            ;
  2765.                 [TOOLTIP <cToolTip>]                                        ;
  2766.                 [PARENT <oParent>]                                          ;
  2767.                 [WHEN <bWhen>]                                              ;
  2768.                 [CHECKWHEN <bCheckWhen>]                                    ;
  2769.                 [ACTION <bAction>]                                          ;
  2770.                 [STYLE <nStyle>]                                            ;
  2771.                 [ATTRIBUTE <nAttr>]                                         ;
  2772.                 [HELPCODE <cHelpCode>]                                      ;
  2773.                 [LOCK <cLock>]                                              ;
  2774.                 [PROTECT <bProtect>]                                        ;
  2775.                 [<lCheck:CHECKED>] [_CHECKED <_checked>]                    ;
  2776.                 [<lSep:SEPARATOR>] [_SEPARATOR <_separator>]                ;
  2777.                 [<lSelect:SELECT>] [_SELECT <_select>]                      ;
  2778.                 [RETURN <nReturn>]                                          ;
  2779.                 [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
  2780.                 [CARGO <xCargo>]                                            ;
  2781.                 [ID <cId>]                                                  ;
  2782.                 [TITLE <cTitle>]                                            ;
  2783.                 [PRESENTATION <aPres>]                                      ;
  2784.                 [EVAL <bEval>]                                              ;
  2785.                 [PREEVAL <bPreEval>]                                        ;
  2786.                 [ACCELKEY <nAccel>]                                         ;
  2787.                 [GROUP <cGroup>]                                            ;
  2788.                 [BITMAP <nBmUnChecked> [, <nBmChecked>] ]                   ;
  2789.  =>                                                                         ;
  2790.   AADD( DCGUI_GETLIST,                                                      ;
  2791.     { GETLIST_MENUITEM,                         /* nGETLIST_TYPE         */ ;
  2792.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  2793.       <cPrompt>,                                /* cGETLIST_CAPTION      */ ;
  2794.       [{DC_GetAnchorCB(@<nIndex>,'N',),                                     ;
  2795.                          <(nIndex)>,'N'}],      /* bGETLIST_VAR          */ ;
  2796.       nil,                                      /* nGETLIST_STARTROW     */ ;
  2797.       nil,                                      /* nGETLIST_STARTCOL     */ ;
  2798.       nil,                                      /* nGETLIST_ENDROW       */ ;
  2799.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  2800.       nil,                                      /* nGETLIST_WIDTH        */ ;
  2801.       nil,                                      /* nGETLIST_HEIGHT       */ ;
  2802.       nil,                                      /* cGETLIST_FONT         */ ;
  2803.       nil,                                      /* cGETLIST_PICTURE      */ ;
  2804.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  2805.       nil,                                      /* bGETLIST_VALID        */ ;
  2806.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  2807.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  2808.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  2809.       <bAction>,                                /* bGETLIST_ACTION       */ ;
  2810.       nil,                                      /* oGETLIST_OBJECT       */ ;
  2811.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  2812.       {<nReturn>,<cId>,<cLock>,                                             ;
  2813.        <.lCheck.> [.OR. <_checked>],<.lSep.> [.OR. <_separator>],           ;
  2814.        <nStyle>,<nAttr>,<.lSelect.> [.OR. <_select>],<bCheckWhen>},         ;
  2815.                                                 /* xGETLIST_OPTIONS      */ ;
  2816.       nil,                                      /* aGETLIST_COLOR        */ ;
  2817.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<(oMsg)>,'O'}]},                ;
  2818.                                                 /* cGETLIST_MESSAGE      */ ;
  2819.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  2820.       nil,                                      /* cGETLIST_VARNAME      */ ;
  2821.       nil,                                      /* bGETLIST_READVAR      */ ;
  2822.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  2823.       nil,                                      /* oGETLIST_GROUP        */ ;
  2824.       nil,                                      /* nGETLIST_POINTER      */ ;
  2825.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  2826.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  2827.       nil,                                      /* bGETLIST_REFVAR       */ ;
  2828.       <bProtect>,                               /* bGETLIST_PROTECT      */ ;
  2829.       .f.,                                      /* lGETLIST_PIXEL        */ ;
  2830.       nil,                                      /* nGETLIST_CURSOR       */ ;
  2831.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  2832.       nil,                                      /* bGETLIST_RELATIVE     */ ;
  2833.       [{<nBmUnChecked>,<nBmChecked>}],          /* xGETLIST_OPTIONS2     */ ;
  2834.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  2835.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  2836.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  2837.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  2838.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  2839.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  2840.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  2841.       nil,                                      /* cGETLIST_LEVEL        */ ;
  2842.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  2843.       nil,                                      /* cGETLIST_ACCESS       */ ;
  2844.       nil,                                      /* bGETLIST_COMPILE      */ ;
  2845.       <cId>,                                    /* cGETLIST_ID           */ ;
  2846.       nil,                                      /* dGETLIST_REVDATE      */ ;
  2847.       nil,                                      /* cGETLIST_REVTIME      */ ;
  2848.       nil,                                      /* cGETLIST_REVUSER      */ ;
  2849.       nil,                                      /* bGETLIST_HIDE         */ ;
  2850.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  2851.       nil,                                      /* bGETLIST_GOTFOCUS     */ ;
  2852.       nil,                                      /* bGETLIST_LOSTFOCUS    */ ;
  2853.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  2854.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  2855.       nil,                                      /* lGETLIST_VISIBLE      */ ;
  2856.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  2857.       .f.,                                      /* lGETLIST_FLAG         */ ;
  2858.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  2859.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  2860.     } )
  2861.  
  2862. * ------------------------------- *
  2863.  
  2864. #xcommand  @ <nRow> [, <nCol>] DCBROWSE  [OBJECT] <oBrowse>                 ;
  2865.                 [DATA <xData> [ELEMENT <nElement>]]                         ;
  2866.                 [ALIAS <cAlias>]                                            ;
  2867.                 [SIZE <nWidth> [,<nHeight>]]                                ;
  2868.                 [PARENT <oParent>]                                          ;
  2869.                 [INTO <uVar>]                                               ;
  2870.                 [POINTER <nVar>]                                            ;
  2871.                 [DATALINK <bLink>]                                          ;
  2872.                 [PRESENTATION <aPres>]                                      ;
  2873.                 [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
  2874.                 [COLOR <bncFgC> [,<ncBgC>]]                                 ;
  2875.                 [WHEN <bWhen>]                                              ;
  2876.                 [HIDE <bHide>]                                              ;
  2877.                 [FONT <cFont>]                                              ;
  2878.                 [CARGO <xCargo>]                                            ;
  2879.                 [CURSORMODE <nCursorMode>]                                  ;
  2880.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  2881.                 [EDIT <nEditEvent> [ACTION <bEditAction>]                   ;
  2882.                    [MODE <nEditMode>] [FONT <cEditFont>]                    ;
  2883.                    [EXIT <bEditExit>]                                       ;
  2884.                    [<lNoAutoLock:NOAUTOLOCK>] [_NOAUTOLOCK <_noautolock>]]  ;
  2885.                 [INSERT <nInsertEvent> [ACTION <bInsertAction>]             ;
  2886.                    [INSMODE <nInsertMode>]                                  ;
  2887.                    [EXIT <bInsertExit>] [DEFAULT <abDefault1>]              ;
  2888.                    [APPEND <nAppendEvent>] [APPMODE <nAppendMode>] ]        ;
  2889.                 [DELETE <nDeleteEvent> [ACTION <bDeleteAction>]             ;
  2890.                    [EXIT <bDeleteExit>] ]                                   ;
  2891.                 [DEFAULT <abDefault2>]                                      ;
  2892.                 [HANDLER <EditHandler> [REFERENCE <xRef>]]                  ;
  2893.                 [EVAL <bEval>]                                              ;
  2894.                 [PREEVAL <bPreEval>]                                        ;
  2895.                 [RELATIVE <oRel>]                                           ;
  2896.                 [TITLE <cTitle>]                                            ;
  2897.                 [FREEZELEFT <aFreezeL>]                                     ;
  2898.                 [FREEZERIGHT <aFreezeR>]                                    ;
  2899.                 [MARK <nbMark>]                                             ;
  2900.                 [MKCOLOR <nbMarkEval>, <ncMFgC> [,<ncMBgC>] ]               ;
  2901.                 [ITEMMARKED <bItemMarked>]                                  ;
  2902.                 [ITEMSELECTED <bItemSelected>]                              ;
  2903.                 [ID <cId>]                                                  ;
  2904.                 [ACCELKEY <nAccel>]                                         ;
  2905.                 [GOTFOCUS <bGotFocus>]                                      ;
  2906.                 [LOSTFOCUS <bLostFocus>]                                    ;
  2907.                 [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
  2908.                 [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
  2909.                 [TABGROUP <nTabGroup>]                                      ;
  2910.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  2911.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  2912.                 [<lScope:SCOPE>] [_SCOPE <_lScope>]                         ;
  2913.                 [<lNoV:NOVSCROLL,NOVERTSCROLL>] [_NOVSCROLL <_lNoV>]        ;
  2914.                 [<lNoH:NOHSCROLL,NOHORIZSCROLL>] [_NOHSCROLL <_lNoH>]       ;
  2915.                 [<lNoST:NOSOFTTRACK>] [_NOSOFTTRACK <_lNoST>]               ;
  2916.                 [GROUP <cGroup>]                                            ;
  2917.                 [THUMBLOCK <nThumbRecs>]                                    ;
  2918.                 [HEADLINES <nHeadLines> [DELIMITER <cHeadDelim>]]           ;
  2919.                 [FOOTLINES <nFootLines> [DELIMITER <cFootDelim>]]           ;
  2920.                 [HEADPRES <aHeadPres>]                                      ;
  2921.                 [FOOTPRES <aFootPres>]                                      ;
  2922.                 [<lFit:FIT>] [_FIT <_lFit>]                                 ;
  2923.                 [<lOptimize:OPTIMIZE>] [_OPTIMIZE <_lOptimize>]             ;
  2924.                 [<lNoSizeCols:NOSIZECOLS>] [_NOSIZECOLS <_lNoSizeCols>]     ;
  2925.                 [SORTSCOLOR <nSortedColorFG> [,<nSortedColorBG>] ]          ;
  2926.                 [SORTUCOLOR <nUnSortedColorFG> [,<nUnSortedColorBG>] ]      ;
  2927.                 [SORTUPBITMAP <nBitmapSortUp>]                              ;
  2928.                 [SORTDOWNBITMAP <nBitmapSortDown>]                          ;
  2929.                 [<lDescend:DESCENDING>] [_DESCENDING <_lDescend>]           ;
  2930.                 [AUTOREFRESH <nRefreshInterval>]                            ;
  2931.                 [<lRbSelect:RBSELECT>] [_RBSELECT <_lRbSelect>]             ;
  2932.                 [HELPCODE <cHelpCode>]                                      ;
  2933.  =>                                                                         ;
  2934.   AADD( DCGUI_GETLIST,                                                      ;
  2935.     { GETLIST_BROWSE,                           /* nGETLIST_TYPE         */ ;
  2936.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  2937.       nil,                                      /* cGETLIST_CAPTION      */ ;
  2938.       [{DC_GetAnchorCB(@<uVar>,,<uVar>),                                    ;
  2939.                                 <(uVar)>}],     /* bGETLIST_VAR          */ ;
  2940.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  2941.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  2942.       nil,                                      /* nGETLIST_ENDROW       */ ;
  2943.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  2944.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  2945.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  2946.       <cFont>,                                  /* cGETLIST_FONT         */ ;
  2947.       nil,                                      /* cGETLIST_PICTURE      */ ;
  2948.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  2949.       nil,                                      /* bGETLIST_VALID        */ ;
  2950.       nil,                                      /* cGETLIST_TOOLTIP      */ ;
  2951.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  2952.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  2953.       [{<bLink>,<(bLink)>}],                    /* bGETLIST_ACTION       */ ;
  2954.       nil,                                      /* oGETLIST_OBJECT       */ ;
  2955.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  2956.       { <nbMark>, <(nbMark)> ,                                              ;
  2957.         <nbMarkEval>, <(nbMarkEval)> ,                                      ;
  2958.         <ncMFgC>, <ncMBgC>,                                                 ;
  2959.         <aFreezeL>, <aFreezeR>,                                             ;
  2960.         <.lScope.> [.OR. <_lScope>], <nThumbRecs>,                          ;
  2961.         <nHeadLines>, <cHeadDelim>,                                         ;
  2962.         <nFootLines>, <cFootDelim>,                                         ;
  2963.         <aHeadPres>, <aFootPres>,                                           ;
  2964.         <.lNoV.> [.OR. <_lNoV>], <.lNoH.> [.OR. <_lNoH>],                   ;
  2965.         <.lNoST.> [.OR. <_lNoST>], <.lFit.> [.OR. <_lFit>],                 ;
  2966.         <.lOptimize.> [.OR. <_lOptimize>], <bItemMarked>,                   ;
  2967.         <bItemSelected>, <.lNoSizeCols.> [.OR. <_lNoSizeCols>],             ;
  2968.         <nSortedColorFG>,<nSortedColorBG>,                                  ;
  2969.         <nUnSortedColorFG>,<nUnSortedColorBG>,                              ;
  2970.         <nBitmapSortUp>,<nBitmapSortDown>,                                  ;
  2971.         <.lDescend.> [.OR. <_lDescend>],                                    ;
  2972.         <nRefreshInterval>,                                                 ;
  2973.         <.lRbSelect.> [.OR. <_lRbSelect>]},     /* xGETLIST_OPTIONS      */ ;
  2974.       [{<bncFgC>,<ncBgC>}],                     /* aGETLIST_COLOR        */ ;
  2975.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<(oMsg)>,'O'}]},                ;
  2976.                                                 /* cGETLIST_MESSAGE      */ ;
  2977.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  2978.       <cAlias>,                                 /* cGETLIST_VARNAME      */ ;
  2979.       nil,                                      /* bGETLIST_READVAR      */ ;
  2980.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  2981.       {DC_GetAnchorCB(@<oBrowse>,'O'),                                      ;
  2982.                        <(oBrowse)>,'O'},        /* bGETLIST_GROUP        */ ;
  2983.       nil,                                      /* nGETLIST_POINTER      */ ;
  2984.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  2985.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  2986.       [{DC_GetAnchorCB(@<xData>),<(xData)>}],                               ;
  2987.                                                 /* bGETLIST_REFVAR       */ ;
  2988.       nil,                                      /* bGETLIST_PROTECT      */ ;
  2989.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  2990.       nil,                                      /* nGETLIST_CURSOR       */ ;
  2991.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  2992.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  2993.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  2994.       {<nEditEvent>,<bEditAction>,<nEditMode>,<cEditFont>,<bEditExit>,      ;
  2995.        <.lNoAutoLock.> [.OR. <_noautolock>], <abDefault2>},                 ;
  2996.                                                 /* xGETLIST_OPTIONS2     */ ;
  2997.       [{<nInsertEvent>,<bInsertAction>, <abDefault1>,<bInsertExit>,         ;
  2998.         <nAppendEvent>,<nInsertMode>,<nAppendMode>}],                       ;
  2999.                                                 /* xGETLIST_OPTIONS3     */ ;
  3000.       [{<nDeleteEvent>,<bDeleteAction>,<bDeleteExit>}],                     ;
  3001.                                                 /* xGETLIST_OPTIONS4     */ ;
  3002.       <nElement>,                               /* xGETLIST_OPTIONS5     */ ;
  3003.       [{DC_GetAnchorCB(@<nVar>,'N'),<(nVar)>}], /* xGETLIST_OPTIONS6     */ ;
  3004.       [<nCursorMode>],                          /* xGETLIST_OPTIONS7     */ ;
  3005.       [{|a,b,c,d,e,f,g,h|<EditHandler>(a,b,c,d,e,f,@g,h)}],                 ;
  3006.                                                 /* xGETLIST_OPTIONS8     */ ;
  3007.       <xRef>,                                   /* xGETLIST_OPTIONS9     */ ;
  3008.       nil,                                      /* cGETLIST_LEVEL        */ ;
  3009.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  3010.       nil,                                      /* cGETLIST_ACCESS       */ ;
  3011.       nil,                                      /* bGETLIST_COMPILE      */ ;
  3012.       <cId>,                                    /* cGETLIST_ID           */ ;
  3013.       nil,                                      /* dGETLIST_REVDATE      */ ;
  3014.       nil,                                      /* cGETLIST_REVTIME      */ ;
  3015.       nil,                                      /* cGETLIST_REVUSER      */ ;
  3016.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  3017.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  3018.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  3019.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  3020.       DC_LogicTest([<.lTabStop.>],[<_tab>],[<.lNoTabStop.>],[<_notab>]),    ;
  3021.                                                 /* lGETLIST_TABSTOP      */ ;
  3022.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  3023.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  3024.                                                 /* lGETLIST_VISIBLE      */ ;
  3025.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  3026.       .f.,                                      /* lGETLIST_FLAG         */ ;
  3027.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  3028.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  3029.     } )
  3030.  
  3031.  
  3032. * ------------------------------- *
  3033.  
  3034. #xcommand DCBROWSECOL                                                       ;
  3035.                 [DATA <xData>]                                              ;
  3036.                 [FIELD <fld>]                                               ;
  3037.                 [PICTURE <cPict>]                                           ;
  3038.                 [ELEMENT <nPointer>]                                        ;
  3039.                 [WIDTH <nWidth>]                                            ;
  3040.                 [<h:HEADER,HEADING> <cHeader>] [HEADPRES <aHeadPres>]       ;
  3041.                 [<f:FOOTER,FOOTING> <cFooter>] [FOOTPRES <aFootPres>]       ;
  3042.                 [TYPE <anType>]                                             ;
  3043.                 [REPRESENTATION <aRep>]                                     ;
  3044.                 [ALIGN <nAlign>]                                            ;
  3045.                 [COLOR <bncFgC> [,<ncBgC>] ]                                ;
  3046.                 [HCOLOR <bncHFgC> [,<ncHBgC>] ]                             ;
  3047.                 [FCOLOR <bncFFgC> [,<ncFBgC>] ]                             ;
  3048.                 [PARENT <oParent>]                                          ;
  3049.                 [TOOLTIP <cToolTip>]                                        ;
  3050.                 [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
  3051.                 [HELPCODE <cHelpCode>]                                      ;
  3052.                 [OBJECT <oObject>]                                          ;
  3053.                 [HIDE <bHide>]                                              ;
  3054.                 [VALID <bValid>]                                            ;
  3055.                 [FONT <cFont>]                                              ;
  3056.                 [CARGO <xCargo>]                                            ;
  3057.                 [PRESENTATION <aPres>]                                      ;
  3058.                 [EVAL <bEval>]                                              ;
  3059.                 [PREEVAL <bPreEval>]                                        ;
  3060.                 [WHEN <bWhen>]                                              ;
  3061.                 [SORT <bSort>                                               ;
  3062.                      [<lb:LEFTBUTTON>] [_LEFTBUTTON <lLeftButton>]          ;
  3063.                      [<def:DEFAULT>] [_DEFAULT <lDefault>]]                 ;
  3064.                 [TITLE <cTitle>]                                            ;
  3065.                 [ID <cId>]                                                  ;
  3066.                 [ACCELKEY <nAccel>]                                         ;
  3067.                 [GOTFOCUS <bGotFocus>]                                      ;
  3068.                 [LOSTFOCUS <bLostFocus>]                                    ;
  3069.                 [EDITOR <bcEdit> [EXITKEY <nExitKey>] ]                     ;
  3070.                 [GROUP <cGroup>]                                            ;
  3071.                 [<prot: PROTECT, EDITPROTECT> <bProtect>]                   ;
  3072.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  3073.                 [DATATOOLTIP <bTipWhen> [TIPBLOCK <bTipBlock>]]             ;
  3074.                 [<lNoCreate:NOCREATE>]                                      ;
  3075.  =>                                                                         ;
  3076.   AADD( DCGUI_GETLIST,                                                      ;
  3077.     { GETLIST_BROWSECOL,                        /* nGETLIST_TYPE         */ ;
  3078.       <anType>,                                 /* nGETLIST_SUBTYPE      */ ;
  3079.       <cHeader>,                                /* cGETLIST_CAPTION      */ ;
  3080.       [ {|a| IIF(a==NIL .OR. <fld>==a, <fld>, <fld>:=a) } ],                ;
  3081.                                                 /* bGETLIST_VAR          */ ;
  3082.       nil,                                      /* nGETLIST_STARTROW     */ ;
  3083.       nil,                                      /* nGETLIST_STARTCOL     */ ;
  3084.       nil,                                      /* nGETLIST_ENDROW       */ ;
  3085.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  3086.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  3087.       nil,                                      /* nGETLIST_HEIGHT       */ ;
  3088.       <cFont>,                                  /* cGETLIST_FONT         */ ;
  3089.       <cPict>,                                  /* cGETLIST_PICTURE      */ ;
  3090.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  3091.       <bValid>,                                 /* bGETLIST_VALID        */ ;
  3092.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  3093.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  3094.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  3095.       nil,                                      /* bGETLIST_ACTION       */ ;
  3096.       nil,                                      /* oGETLIST_OBJECT       */ ;
  3097.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  3098.       {<bSort>,<(bSort)>,<cFooter>,                                         ;
  3099.         <bcEdit>,<nExitKey>,                                                ;
  3100.         <.lb.>[.OR.<lLeftButton>],                                          ;
  3101.         <.lNoCreate.>,                                                      ;
  3102.         <.def.>[.OR.<lDefault>]},               /* xGETLIST_OPTIONS      */ ;
  3103.       [{<bncFgC>,<ncBgC>}],                     /* aGETLIST_COLOR        */ ;
  3104.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<(oMsg)>,'O'}]},                ;
  3105.                                                 /* cGETLIST_MESSAGE      */ ;
  3106.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  3107.       nil,                                      /* cGETLIST_VARNAME      */ ;
  3108.       nil,                                      /* bGETLIST_READVAR      */ ;
  3109.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  3110.       [{DC_GetAnchorCB(@<oObject>,'O'),                                     ;
  3111.                         <(oObject)>,'O'}],      /* bGETLIST_GROUP        */ ;
  3112.       <nPointer>,                               /* nGETLIST_POINTER      */ ;
  3113.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  3114.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  3115.       [{<xData>,<(xData)>}],                    /* bGETLIST_REFVAR       */ ;
  3116.       <bProtect>,                               /* bGETLIST_PROTECT      */ ;
  3117.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  3118.       nil,                                      /* nGETLIST_CURSOR       */ ;
  3119.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  3120.       nil,                                      /* bGETLIST_RELATIVE     */ ;
  3121.       [{<bncHFgC>,<ncHBgC>}],                   /* xGETLIST_OPTIONS2     */ ;
  3122.       <aHeadPres>,                              /* xGETLIST_OPTIONS3     */ ;
  3123.       <aFootPres>,                              /* xGETLIST_OPTIONS4     */ ;
  3124.       <(fld)>,                                  /* xGETLIST_OPTIONS5     */ ;
  3125.       <aRep>,                                   /* xGETLIST_OPTIONS6     */ ;
  3126.       <nAlign>,                                 /* xGETLIST_OPTIONS7     */ ;
  3127.       [{<bncFFgC>,<ncFBgC>}],                   /* xGETLIST_OPTIONS8     */ ;
  3128.       [{<bTipWhen>,<bTipBlock>}],               /* xGETLIST_OPTIONS9     */ ;
  3129.       nil,                                      /* cGETLIST_LEVEL        */ ;
  3130.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  3131.       nil,                                      /* cGETLIST_ACCESS       */ ;
  3132.       nil,                                      /* bGETLIST_COMPILE      */ ;
  3133.       <cId>,                                    /* cGETLIST_ID           */ ;
  3134.       nil,                                      /* dGETLIST_REVDATE      */ ;
  3135.       nil,                                      /* cGETLIST_REVTIME      */ ;
  3136.       nil,                                      /* cGETLIST_REVUSER      */ ;
  3137.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  3138.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  3139.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  3140.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  3141.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  3142.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  3143.       nil,                                      /* lGETLIST_VISIBLE      */ ;
  3144.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  3145.       .f.,                                      /* lGETLIST_FLAG         */ ;
  3146.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  3147.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  3148.     } )
  3149.  
  3150. * ------------------------------- *
  3151.  
  3152. #xcommand  @ <nRow> [, <nCol>] DCQUICKBROWSE                                ;
  3153.                 [OBJECT <oBrowse>]                                          ;
  3154.                 [ALIAS <cAlias>]                                            ;
  3155.                 [FIELDS <aFields>]                                          ;
  3156.                 [DATA <xData>]                                              ;
  3157.                 [COLUMNS <aColumns>]                                        ;
  3158.                 [COLTYPE <aColType>]                                        ;
  3159.                 [COLREPRESENTATION <aColRep>]                               ;
  3160.                 [COLWIDTH <aColWidth>]                                      ;
  3161.                 [COLALIGN <aColAlign>]                                      ;
  3162.                 [HEADERS <aHeaders>]                                        ;
  3163.                 [SIZE <nWidth> [,<nHeight>]]                                ;
  3164.                 [STYLE <nStyle>]                                            ;
  3165.                 [PARENT <oParent>]                                          ;
  3166.                 [INTO <uVar>]                                               ;
  3167.                 [POINTER <nVar>]                                            ;
  3168.                 [DATALINK <bLink>]                                          ;
  3169.                 [PRESENTATION <aPres>]                                      ;
  3170.                 [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
  3171.                 [COLOR <bncFgC> [,<ncBgC>]]                                 ;
  3172.                 [WHEN <bWhen>]                                              ;
  3173.                 [HIDE <bHide>]                                              ;
  3174.                 [FONT <cFont>]                                              ;
  3175.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  3176.                 [CARGO <xCargo>]                                            ;
  3177.                 [CURSORMODE <nCursorMode>]                                  ;
  3178.                 [EDIT <nEditEvent> [ACTION <bEditAction>]                   ;
  3179.                    [MODE <nEditMode>] [FONT <cEditFont>]                    ;
  3180.                    [EXIT <bEditExit>] [<lNoAutoLock:NOAUTOLOCK>] ]          ;
  3181.                 [INSERT <nInsertEvent> [ACTION <bInsertAction>]             ;
  3182.                    [DEFAULT <abDefault>] [EXIT <bInsertExit>]               ;
  3183.                    [APPEND <nAppendEvent>] ]                                ;
  3184.                 [DELETE <nDeleteEvent> [ACTION <bDeleteAction>]             ;
  3185.                    [EXIT <bDeleteExit>] ]                                   ;
  3186.                 [HANDLER <EditHandler> [REFERENCE <xRef>]]                  ;
  3187.                 [EVAL <bEval>]                                              ;
  3188.                 [PREEVAL <bPreEval>]                                        ;
  3189.                 [RELATIVE <oRel>]                                           ;
  3190.                 [TITLE <cTitle>]                                            ;
  3191.                 [ID <cId>]                                                  ;
  3192.                 [ACCELKEY <nAccel>]                                         ;
  3193.                 [GOTFOCUS <bGotFocus>]                                      ;
  3194.                 [LOSTFOCUS <bLostFocus>]                                    ;
  3195.                 [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
  3196.                 [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
  3197.                 [<lNoV:NOVSCROLL>] [_NOVSCROLL <_nov>]                      ;
  3198.                 [<lNoH:NOHSCROLL>] [_NOHSCROLL <_noh>]                      ;
  3199.                 [TABGROUP <nTabGroup>]                                      ;
  3200.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  3201.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  3202.                 [GROUP <cGroup>]                                            ;
  3203.                 [ITEMMARKED <bItemMarked>]                                  ;
  3204.                 [ITEMSELECTED <bItemSelected>]                              ;
  3205.  =>                                                                         ;
  3206.   AADD( DCGUI_GETLIST,                                                      ;
  3207.     { GETLIST_QUICKBROWSE,                      /* nGETLIST_TYPE         */ ;
  3208.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  3209.       nil,                                      /* cGETLIST_CAPTION      */ ;
  3210.       [{DC_GetAnchorCB(@<uVar>,,<uVar>),                                    ;
  3211.                                 <(uVar)>}],     /* bGETLIST_VAR          */ ;
  3212.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  3213.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  3214.       nil,                                      /* nGETLIST_ENDROW       */ ;
  3215.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  3216.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  3217.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  3218.       <cFont>,                                  /* cGETLIST_FONT         */ ;
  3219.       nil,                                      /* cGETLIST_PICTURE      */ ;
  3220.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  3221.       nil,                                      /* bGETLIST_VALID        */ ;
  3222.       nil,                                      /* cGETLIST_TOOLTIP      */ ;
  3223.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  3224.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  3225.       [{<bLink>,<(bLink)>}],                    /* bGETLIST_ACTION       */ ;
  3226.       nil,                                      /* oGETLIST_OBJECT       */ ;
  3227.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  3228.       { <nCursorMode>, <nStyle>,                                            ;
  3229.         <.lNoV.> [.OR. <_nov>], <.lNoH.> [.OR. <_noh>],                     ;
  3230.         <bItemMarked>, <bItemSelected> } ,                                  ;
  3231.                                                 /* xGETLIST_OPTIONS      */ ;
  3232.       [{<bncFgC>,<ncBgC>}],                     /* aGETLIST_COLOR        */ ;
  3233.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<(oMsg)>,'O'}]},                ;
  3234.                                                 /* cGETLIST_MESSAGE      */ ;
  3235.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  3236.       <cAlias>,                                 /* cGETLIST_VARNAME      */ ;
  3237.       nil,                                      /* bGETLIST_READVAR      */ ;
  3238.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  3239.       [{DC_GetAnchorCB(@<oBrowse>,'O'),                                     ;
  3240.                        <(oBrowse)>,'O'}],       /* bGETLIST_GROUP        */ ;
  3241.       nil,                                      /* nGETLIST_POINTER      */ ;
  3242.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  3243.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  3244.       [{DC_GetAnchorCB(@<xData>),<(xData)>}],   /* bGETLIST_REFVAR       */ ;
  3245.       nil,                                      /* bGETLIST_PROTECT      */ ;
  3246.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  3247.       nil,                                      /* nGETLIST_CURSOR       */ ;
  3248.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  3249.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  3250.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  3251.       [{<nEditEvent>,<bEditAction>,<nEditMode>,                             ;
  3252.         <cEditFont>,<bEditExit>,                                            ;
  3253.         <.lNoAutoLock.>}],                      /* xGETLIST_OPTIONS2     */ ;
  3254.       [{<nInsertEvent>,<bInsertAction>,                                     ;
  3255.         <abDefault>,<bInsertExit>,                                          ;
  3256.         <nAppendEvent>}],                       /* xGETLIST_OPTIONS3     */ ;
  3257.       [{<nDeleteEvent>,<bDeleteAction>,                                     ;
  3258.         <bDeleteExit>}],                        /* xGETLIST_OPTIONS4     */ ;
  3259.       [{<aHeaders>,<aColumns>,<aFields>,<aColType>,                         ;
  3260.         <aColRep>,<aColWidth>,<aColAlign>}],    /* xGETLIST_OPTIONS5     */ ;
  3261.       [{DC_GetAnchorCB(@<nVar>,'N'),<(nVar)>}], /* xGETLIST_OPTIONS6     */ ;
  3262.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  3263.       [{|a,b,c,d,e,f,g,h|<EditHandler>(a,b,c,d,e,f,@g,h)}],                 ;
  3264.                                                 /* xGETLIST_OPTIONS8     */ ;
  3265.       <xRef>,                                   /* xGETLIST_OPTIONS9     */ ;
  3266.       nil,                                      /* cGETLIST_LEVEL        */ ;
  3267.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  3268.       nil,                                      /* cGETLIST_ACCESS       */ ;
  3269.       nil,                                      /* bGETLIST_COMPILE      */ ;
  3270.       <cId>,                                    /* cGETLIST_ID           */ ;
  3271.       nil,                                      /* dGETLIST_REVDATE      */ ;
  3272.       nil,                                      /* cGETLIST_REVTIME      */ ;
  3273.       nil,                                      /* cGETLIST_REVUSER      */ ;
  3274.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  3275.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  3276.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  3277.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  3278.       DC_LogicTest([<.lTabStop.>],[<_tab>],[<.lNoTabStop.>],[<_notab>]),    ;
  3279.                                                 /* lGETLIST_TABSTOP      */ ;
  3280.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  3281.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  3282.                                                 /* lGETLIST_VISIBLE      */ ;
  3283.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  3284.       .f.,                                      /* lGETLIST_FLAG         */ ;
  3285.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  3286.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  3287.     } )
  3288.  
  3289. * ------------------------------- *
  3290.  
  3291. #xcommand  DCBITMAP <ncbResource>                                           ;
  3292.                 [PARENT <oParent>]                                          ;
  3293.                 [TARGETRECT <nSRow>,<nSCol>,<nERow>,<nECol>]                ;
  3294.                 [SOURCERECT <a>,<b>,<c>,<d>]                                ;
  3295.                 [BITS <nB>]                                                 ;
  3296.                 [HIDE <bHide>]                                              ;
  3297.                 [PLANES <nP>]                                               ;
  3298.                 [OBJECT <oObject>]                                          ;
  3299.                 [CARGO <xCargo>]                                            ;
  3300.                 [<s: AUTOSCALE>] [_AUTOSCALE <_autoscale> ]                 ;
  3301.                 [<cen: CENTER>] [_CENTER <_center>]                         ;
  3302.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  3303.                 [EVAL <bEval>]                                              ;
  3304.                 [PREEVAL <bPreEval>]                                        ;
  3305.                 [TITLE <cTitle>]                                            ;
  3306.                 [RELATIVE <oRel>]                                           ;
  3307.                 [ID <cId>]                                                  ;
  3308.                 [GROUP <cGroup>]                                            ;
  3309.  =>                                                                         ;
  3310.   AADD( DCGUI_GETLIST,                                                      ;
  3311.     { GETLIST_BITMAP,                           /* nGETLIST_TYPE         */ ;
  3312.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  3313.       nil,                                      /* cGETLIST_CAPTION      */ ;
  3314.       <ncbResource>,                            /* bGETLIST_VAR          */ ;
  3315.       <nSRow>,                                  /* nGETLIST_STARTROW     */ ;
  3316.       <nSCol>,                                  /* nGETLIST_STARTCOL     */ ;
  3317.       <nERow>,                                  /* nGETLIST_ENDROW       */ ;
  3318.       <nECol>,                                  /* nGETLIST_ENDCOL       */ ;
  3319.       nil,                                      /* nGETLIST_WIDTH        */ ;
  3320.       nil,                                      /* nGETLIST_HEIGHT       */ ;
  3321.       nil,                                      /* cGETLIST_FONT         */ ;
  3322.       nil,                                      /* cGETLIST_PICTURE      */ ;
  3323.       nil,                                      /* bGETLIST_WHEN         */ ;
  3324.       nil,                                      /* bGETLIST_VALID        */ ;
  3325.       nil,                                      /* cGETLIST_TOOLTIP      */ ;
  3326.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  3327.       nil,                                      /* aGETLIST_PRESENTATION */ ;
  3328.       nil,                                      /* bGETLIST_ACTION       */ ;
  3329.       nil,                                      /* oGETLIST_OBJECT       */ ;
  3330.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  3331.       {<nB>,<nP>,<.s.> [.OR. <_autoscale>],<a>,<b>,<c>,<d>,                 ;
  3332.        <.cen.> [.OR. <_center>]},               /* xGETLIST_OPTIONS      */ ;
  3333.       nil,                                      /* aGETLIST_COLOR        */ ;
  3334.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  3335.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  3336.       nil,                                      /* cGETLIST_VARNAME      */ ;
  3337.       nil,                                      /* bGETLIST_READVAR      */ ;
  3338.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  3339.       [{DC_GetAnchorCB(@<oObject>,'O'),                                     ;
  3340.                         <(oObject)>,'O'}],      /* bGETLIST_GROUP        */ ;
  3341.       nil,                                      /* nGETLIST_POINTER      */ ;
  3342.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  3343.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  3344.       nil,                                      /* bGETLIST_REFVAR       */ ;
  3345.       nil,                                      /* bGETLIST_PROTECT      */ ;
  3346.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  3347.       nil,                                      /* nGETLIST_CURSOR       */ ;
  3348.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  3349.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  3350.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  3351.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  3352.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  3353.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  3354.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  3355.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  3356.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  3357.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  3358.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  3359.       nil,                                      /* cGETLIST_LEVEL        */ ;
  3360.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  3361.       nil,                                      /* cGETLIST_ACCESS       */ ;
  3362.       nil,                                      /* bGETLIST_COMPILE      */ ;
  3363.       <cId>,                                    /* cGETLIST_ID           */ ;
  3364.       nil,                                      /* dGETLIST_REVDATE      */ ;
  3365.       nil,                                      /* cGETLIST_REVTIME      */ ;
  3366.       nil,                                      /* cGETLIST_REVUSER      */ ;
  3367.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  3368.       nil,                                      /* nGETLIST_ACCELKEY     */ ;
  3369.       nil,                                      /* bGETLIST_GOTFOCUS     */ ;
  3370.       nil,                                      /* bGETLIST_LOSTFOCUS    */ ;
  3371.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  3372.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  3373.       nil,                                      /* lGETLIST_VISIBLE      */ ;
  3374.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  3375.       .f.,                                      /* lGETLIST_FLAG         */ ;
  3376.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  3377.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  3378.    } )
  3379.  
  3380. * ----------------------------- *
  3381.  
  3382. #command  @ <nRow> [,<nCol>] DCSPINBUTTON [<nVar>]                          ;
  3383.                 [SIZE <nWidth> [,<nHeight>]]                                ;
  3384.                 [PARENT <oParent>]                                          ;
  3385.                 [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
  3386.                 [VALID <bValid>]                                            ;
  3387.                 [HELPCODE <cHelpCode>]                                      ;
  3388.                 [FONT <cFont>]                                              ;
  3389.                 [WHEN <bWhen>]                                              ;
  3390.                 [HIDE <bHide>]                                              ;
  3391.                 [EDITPROTECT <bProtect>]                                    ;
  3392.                 [PRESENTATION <aPres>]                                      ;
  3393.                 [MASTER <oMaster>]                                          ;
  3394.                 [OBJECT <oObject>]                                          ;
  3395.                 [CALLBACK <bCallBack>]                                      ;
  3396.                 [COLOR <ncFgC> [,<ncBgC>] ]                                 ;
  3397.                 [DATALINK <bLink>]                                          ;
  3398.                 [<l: LIMITS,RANGE> <nBott>,<nTop>]                          ;
  3399.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  3400.                 [<f: FASTSPIN>] [_FASTSPIN <_fastspin>]                     ;
  3401.                 [<z: PADZERO>] [_PADZERO <_padzero>]                        ;
  3402.                 [TOOLTIP <cToolTip>]                                        ;
  3403.                 [CURSOR <nCursor>]                                          ;
  3404.                 [CARGO <xCargo>]                                            ;
  3405.                 [EVAL <bEval>]                                              ;
  3406.                 [PREEVAL <bPreEval>]                                        ;
  3407.                 [TITLE <cTitle>]                                            ;
  3408.                 [RELATIVE <oRel>]                                           ;
  3409.                 [ID <cId>]                                                  ;
  3410.                 [ACCELKEY <nAccel>]                                         ;
  3411.                 [GOTFOCUS <bGotFocus>]                                      ;
  3412.                 [LOSTFOCUS <bLostFocus>]                                    ;
  3413.                 [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
  3414.                 [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
  3415.                 [TABGROUP <nTabGroup>]                                      ;
  3416.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  3417.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  3418.                 [GROUP <cGroup>]                                            ;
  3419.   =>                                                                        ;
  3420.    AADD( DCGUI_GETLIST,                                                     ;
  3421.     { GETLIST_SPINBUTTON,                       /* nGETLIST_TYPE         */ ;
  3422.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  3423.       nil,                                      /* cGETLIST_CAPTION      */ ;
  3424.       [{DC_GetAnchorCB(@<nVar>,'N',,<bLink>),                               ;
  3425.                 <(nVar)>,'N',,<(bLink)>}],      /* bGETLIST_VAR          */ ;
  3426.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  3427.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  3428.       nil,                                      /* nGETLIST_ENDROW       */ ;
  3429.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  3430.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  3431.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  3432.       <cFont>,                                  /* cGETLIST_FONT         */ ;
  3433.       nil,                                      /* cGETLIST_PICTURE      */ ;
  3434.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  3435.       <bValid>,                                 /* bGETLIST_VALID        */ ;
  3436.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  3437.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  3438.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  3439.       {<bCallBack>,<(bCallBack)>},              /* bGETLIST_ACTION       */ ;
  3440.       nil,                                      /* oGETLIST_OBJECT       */ ;
  3441.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  3442.       {<.f.> [.OR. <_fastspin>],<.z.> [.OR. <_padzero>],                    ;
  3443.        <nBott>,<nTop>},                         /* xGETLIST_OPTIONS      */ ;
  3444.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  3445.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<(oMsg)>,'O'}]},                ;
  3446.                                                 /* cGETLIST_MESSAGE      */ ;
  3447.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  3448.       <(nVar)>,                                 /* cGETLIST_VARNAME      */ ;
  3449.       nil,                                      /* bGETLIST_READVAR      */ ;
  3450.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  3451.       [{DC_GetAnchorCB(@<oObject>,'O'),                                     ;
  3452.                         <(oObject)>,'O'}],      /* bGETLIST_GROUP        */ ;
  3453.       nil,                                      /* nGETLIST_POINTER      */ ;
  3454.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  3455.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  3456.       [{DC_GetAnchorCB(@<oMaster>,'O'),                                     ;
  3457.                         <(oMaster)>,'O'}],      /* bGETLIST_REFVAR       */ ;
  3458.       <bProtect>,                               /* bGETLIST_PROTECT      */ ;
  3459.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  3460.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  3461.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  3462.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  3463.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  3464.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  3465.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  3466.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  3467.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  3468.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  3469.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  3470.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  3471.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  3472.       nil,                                      /* cGETLIST_LEVEL        */ ;
  3473.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  3474.       nil,                                      /* cGETLIST_ACCESS       */ ;
  3475.       nil,                                      /* bGETLIST_COMPILE      */ ;
  3476.       <cId>,                                    /* cGETLIST_ID           */ ;
  3477.       nil,                                      /* dGETLIST_REVDATE      */ ;
  3478.       nil,                                      /* cGETLIST_REVTIME      */ ;
  3479.       nil,                                      /* cGETLIST_REVUSER      */ ;
  3480.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  3481.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  3482.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  3483.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  3484.       DC_LogicTest([<.lTabStop.>],[<_tab>],[<.lNoTabStop.>],[<_notab>]),    ;
  3485.                                                 /* lGETLIST_TABSTOP      */ ;
  3486.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  3487.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  3488.                                                 /* lGETLIST_VISIBLE      */ ;
  3489.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  3490.       .f.,                                      /* lGETLIST_FLAG         */ ;
  3491.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  3492.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  3493.     } )
  3494.  
  3495. * ----------------------------- *
  3496.  
  3497. #command  @ <nRow> [,<nCol>] DCSCROLLBAR                                    ;
  3498.                 [DATA <uVar>]                                               ;
  3499.                 [SIZE <nWidth> [,<nHeight>]]                                ;
  3500.                 [PARENT <oParent>]                                          ;
  3501.                 [PRESENTATION <aPres>]                                      ;
  3502.                 [TYPE <nType>]                                              ;
  3503.                 [SCROLL <bScroll>]                                          ;
  3504.                 [OBJECT <oBar>]                                             ;
  3505.                 [RANGE <nBott>,<nTop>]                                      ;
  3506.                 [TOOLTIP <cToolTip>]                                        ;
  3507.                 [CURSOR <nCursor>]                                          ;
  3508.                 [CARGO <xCargo>]                                            ;
  3509.                 [HIDE <bHide>]                                              ;
  3510.                 [EVAL <bEval>]                                              ;
  3511.                 [PREEVAL <bPreEval>]                                        ;
  3512.                 [<a :AUTOTRACK>] [_AUTOTRACK <_autotrack>]                  ;
  3513.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  3514.                 [TITLE <cTitle>]                                            ;
  3515.                 [RELATIVE <oRel>]                                           ;
  3516.                 [ID <cId>]                                                  ;
  3517.                 [ACCELKEY <nAccel>]                                         ;
  3518.                 [GOTFOCUS <bGotFocus>]                                      ;
  3519.                 [LOSTFOCUS <bLostFocus>]                                    ;
  3520.                 [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
  3521.                 [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
  3522.                 [TABGROUP <nTabGroup>]                                      ;
  3523.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  3524.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  3525.                 [GROUP <cGroup>]                                            ;
  3526.   =>                                                                        ;
  3527.    AADD( DCGUI_GETLIST,                                                     ;
  3528.     { GETLIST_SCROLLBAR,                        /* nGETLIST_TYPE         */ ;
  3529.       <nType>,                                  /* nGETLIST_SUBTYPE      */ ;
  3530.       nil,                                      /* cGETLIST_CAPTION      */ ;
  3531.       [{DC_GetAnchorCB(@<uVar>,,<uVar>),                                    ;
  3532.                        <(uVar)>}],              /* bGETLIST_VAR          */ ;
  3533.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  3534.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  3535.       nil,                                      /* nGETLIST_ENDROW       */ ;
  3536.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  3537.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  3538.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  3539.       nil,                                      /* cGETLIST_FONT         */ ;
  3540.       nil,                                      /* cGETLIST_PICTURE      */ ;
  3541.       nil,                                      /* bGETLIST_WHEN         */ ;
  3542.       nil,                                      /* bGETLIST_VALID        */ ;
  3543.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  3544.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  3545.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  3546.       {<bScroll>,<(bScroll)>},                  /* bGETLIST_ACTION       */ ;
  3547.       nil,                                      /* oGETLIST_OBJECT       */ ;
  3548.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  3549.       {<.a.> [.OR. <_autotrack>],<nBott>,<nTop>},                           ;
  3550.                                                 /* xGETLIST_OPTIONS      */ ;
  3551.       nil,                                      /* aGETLIST_COLOR        */ ;
  3552.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  3553.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  3554.       nil,                                      /* cGETLIST_VARNAME      */ ;
  3555.       nil,                                      /* bGETLIST_READVAR      */ ;
  3556.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  3557.       [{DC_GetAnchorCB(@<oBar>,'O'),                                        ;
  3558.                      <(oBar)>,'O'}],            /* bGETLIST_GROUP        */ ;
  3559.       nil,                                      /* nGETLIST_POINTER      */ ;
  3560.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  3561.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  3562.       nil,                                      /* bGETLIST_REFVAR       */ ;
  3563.       nil,                                      /* bGETLIST_PROTECT      */ ;
  3564.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  3565.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  3566.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  3567.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  3568.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  3569.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  3570.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  3571.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  3572.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  3573.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  3574.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  3575.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  3576.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  3577.       nil,                                      /* cGETLIST_LEVEL        */ ;
  3578.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  3579.       nil,                                      /* cGETLIST_ACCESS       */ ;
  3580.       nil,                                      /* bGETLIST_COMPILE      */ ;
  3581.       <cId>,                                    /* cGETLIST_ID           */ ;
  3582.       nil,                                      /* dGETLIST_REVDATE      */ ;
  3583.       nil,                                      /* cGETLIST_REVTIME      */ ;
  3584.       nil,                                      /* cGETLIST_REVUSER      */ ;
  3585.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  3586.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  3587.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  3588.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  3589.       DC_LogicTest([<.lTabStop.>],[<_tab>],[<.lNoTabStop.>],[<_notab>]),    ;
  3590.                                                 /* lGETLIST_TABSTOP      */ ;
  3591.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  3592.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  3593.                                                 /* lGETLIST_VISIBLE      */ ;
  3594.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  3595.       .f.,                                      /* lGETLIST_FLAG         */ ;
  3596.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  3597.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  3598.     } )
  3599.  
  3600. * ----------------------------- *
  3601.  
  3602. #command  @ <nRow> [,<nCol>] DCCUSTOM <bCustom>                             ;
  3603.                 [SIZE <nWidth> [,<nHeight>]]                                ;
  3604.                 [VAR <uVar>]                                                ;
  3605.                 [PARENT <oParent>]                                          ;
  3606.                 [CAPTION <cCaption>]                                        ;
  3607.                 [PRESENTATION <aPres>]                                      ;
  3608.                 [TYPE <nType>]                                              ;
  3609.                 [OBJECT <oCustom>]                                          ;
  3610.                 [COLOR <ncFgC> [,<ncBgC>] ]                                 ;
  3611.                 [OPTIONS <aOptions>]                                        ;
  3612.                 [DATALINK <bLink>]                                          ;
  3613.                 [FONT <cFont>]                                              ;
  3614.                 [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
  3615.                 [WHEN <bWhen>]                                              ;
  3616.                 [HIDE <bHide>]                                              ;
  3617.                 [EDITPROTECT <bProtect>]                                    ;
  3618.                 [VALID <bValid>]                                            ;
  3619.                 [HELPCODE <cHelpCode>]                                      ;
  3620.                 [TOOLTIP <cToolTip>]                                        ;
  3621.                 [ACTION <bAction>]                                          ;
  3622.                 [CURSOR <nCursor>]                                          ;
  3623.                 [CARGO <xCargo>]                                            ;
  3624.                 [EVAL <bEval>]                                              ;
  3625.                 [PREEVAL <bPreEval>]                                        ;
  3626.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  3627.                 [TITLE <cTitle>]                                            ;
  3628.                 [RELATIVE <oRel>]                                           ;
  3629.                 [ ID <cId>]                                                 ;
  3630.                 [ACCELKEY <nAccel>]                                         ;
  3631.                 [GOTFOCUS <bGotFocus>]                                      ;
  3632.                 [LOSTFOCUS <bLostFocus>]                                    ;
  3633.                 [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
  3634.                 [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
  3635.                 [TABGROUP <nTabGroup>]                                      ;
  3636.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  3637.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  3638.                 [GROUP <cGroup>]                                            ;
  3639.   =>                                                                        ;
  3640.    AADD( DCGUI_GETLIST,                                                     ;
  3641.     { GETLIST_CUSTOM,                           /* nGETLIST_TYPE         */ ;
  3642.       <nType>,                                  /* nGETLIST_SUBTYPE      */ ;
  3643.       <cCaption>,                               /* cGETLIST_CAPTION      */ ;
  3644.       [{DC_GetAnchorCB(@<uVar>,,<uVar>,,<bLink>),                           ;
  3645.                 <(uVar)>,,,,<(bLink)>}],        /* bGETLIST_VAR          */ ;
  3646.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  3647.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  3648.       nil,                                      /* nGETLIST_ENDROW       */ ;
  3649.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  3650.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  3651.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  3652.       <cFont>,                                  /* cGETLIST_FONT         */ ;
  3653.       nil,                                      /* cGETLIST_PICTURE      */ ;
  3654.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  3655.       <bValid>,                                 /* bGETLIST_VALID        */ ;
  3656.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  3657.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  3658.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  3659.       <bAction>,                                /* bGETLIST_ACTION       */ ;
  3660.       nil,                                      /* oGETLIST_OBJECT       */ ;
  3661.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  3662.       <aOptions>,                               /* xGETLIST_OPTIONS      */ ;
  3663.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  3664.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<(oMsg)>,'O'}]},                ;
  3665.                                                 /* cGETLIST_MESSAGE      */ ;
  3666.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  3667.       <(bCustom)>,                              /* cGETLIST_VARNAME      */ ;
  3668.       nil,                                      /* bGETLIST_READVAR      */ ;
  3669.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  3670.       [{DC_GetAnchorCB(@<oCustom>,'O'),                                     ;
  3671.                         <(oCustom)>,'O'}],      /* bGETLIST_GROUP        */ ;
  3672.       nil,                                      /* nGETLIST_POINTER      */ ;
  3673.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  3674.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  3675.       {<bCustom>,<(bCustom)>},                  /* bGETLIST_REFVAR       */ ;
  3676.       <bProtect>,                               /* bGETLIST_PROTECT      */ ;
  3677.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  3678.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  3679.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  3680.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  3681.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  3682.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  3683.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  3684.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  3685.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  3686.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  3687.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  3688.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  3689.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  3690.       nil,                                      /* cGETLIST_LEVEL        */ ;
  3691.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  3692.       nil,                                      /* cGETLIST_ACCESS       */ ;
  3693.       nil,                                      /* bGETLIST_COMPILE      */ ;
  3694.       <cId>,                                    /* cGETLIST_ID           */ ;
  3695.       nil,                                      /* dGETLIST_REVDATE      */ ;
  3696.       nil,                                      /* cGETLIST_REVTIME      */ ;
  3697.       nil,                                      /* cGETLIST_REVUSER      */ ;
  3698.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  3699.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  3700.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  3701.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  3702.       DC_LogicTest([<.lTabStop.>],[<_tab>],[<.lNoTabStop.>],[<_notab>]),    ;
  3703.                                                 /* lGETLIST_TABSTOP      */ ;
  3704.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  3705.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  3706.                                                 /* lGETLIST_VISIBLE      */ ;
  3707.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  3708.       .f.,                                      /* lGETLIST_FLAG         */ ;
  3709.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  3710.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  3711.     } )
  3712.  
  3713. * ----------------------------- *
  3714.  
  3715. #command  @ <nRow> [,<nCol>] DCPROGRESS <oProgress>                         ;
  3716.                 [SIZE <nWidth> [,<nHeight>]]                                ;
  3717.                 [TYPE <nType>]                                              ;
  3718.                 [PARENT <oParent>]                                          ;
  3719.                 [PRESENTATION <aPres>]                                      ;
  3720.                 [COLOR <ncFgC> [,<ncBgC>] ]                                 ;
  3721.                 [MAXCOUNT <nMaxCount>]                                      ;
  3722.                 [TOOLTIP <cToolTip>]                                        ;
  3723.                 [CARGO <xCargo>]                                            ;
  3724.                 [HIDE <bHide>]                                              ;
  3725.                 [EVAL <bEval>]                                              ;
  3726.                 [PREEVAL <bPreEval>]                                        ;
  3727.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  3728.                 [TITLE <cTitle>]                                            ;
  3729.                 [RELATIVE <oRel>]                                           ;
  3730.                 [ID <cId>]                                                  ;
  3731.                 [EVERY <nCount>]                                            ;
  3732.                 [<lPercent:PERCENT>] [_PERCENT <_percent>]                  ;
  3733.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  3734.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  3735.                 [GROUP <cGroup>]                                            ;
  3736.                 [<lVert:VERTICAL>] [_VERTICAL <_vertical>]                  ;
  3737.                 [<lBroken:BROKEN>] [_BROKEN <_broken>]                      ;
  3738.   =>                                                                        ;
  3739.    AADD( DCGUI_GETLIST,                                                     ;
  3740.     { GETLIST_PROGRESS,                         /* nGETLIST_TYPE         */ ;
  3741.       <nType>,                                  /* nGETLIST_SUBTYPE      */ ;
  3742.       nil,                                      /* cGETLIST_CAPTION      */ ;
  3743.       nil,                                      /* nGETLIST_VAR          */ ;
  3744.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  3745.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  3746.       nil,                                      /* nGETLIST_ENDROW       */ ;
  3747.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  3748.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  3749.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  3750.       nil,                                      /* cGETLIST_FONT         */ ;
  3751.       nil,                                      /* cGETLIST_PICTURE      */ ;
  3752.       nil,                                      /* bGETLIST_WHEN         */ ;
  3753.       nil,                                      /* bGETLIST_VALID        */ ;
  3754.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  3755.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  3756.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  3757.       nil,                                      /* bGETLIST_ACTION       */ ;
  3758.       nil,                                      /* oGETLIST_OBJECT       */ ;
  3759.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  3760.       {<nMaxCount>,<.lPercent.> [.OR. <_percent>],<nCount>,                 ;
  3761.        <.lVert.> [.OR. <_vertical>],<.lBroken.> [.OR. <_broken>]},          ;
  3762.                                                 /* xGETLIST_OPTIONS      */ ;
  3763.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  3764.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  3765.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  3766.       nil,                                      /* cGETLIST_VARNAME      */ ;
  3767.       nil,                                      /* bGETLIST_READVAR      */ ;
  3768.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  3769.       [{DC_GetAnchorCB(@<oProgress>,'O'),                                   ;
  3770.                         <(oProgress)>,'O'}],    /* bGETLIST_GROUP        */ ;
  3771.       nil,                                      /* nGETLIST_POINTER      */ ;
  3772.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  3773.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  3774.       nil,                                      /* bGETLIST_REFVAR       */ ;
  3775.       nil,                                      /* bGETLIST_PROTECT      */ ;
  3776.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  3777.       nil,                                      /* nGETLIST_CURSOR       */ ;
  3778.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  3779.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  3780.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  3781.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  3782.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  3783.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  3784.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  3785.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  3786.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  3787.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  3788.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  3789.       nil,                                      /* cGETLIST_LEVEL        */ ;
  3790.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  3791.       nil,                                      /* cGETLIST_ACCESS       */ ;
  3792.       nil,                                      /* bGETLIST_COMPILE      */ ;
  3793.       <cId>,                                    /* cGETLIST_ID           */ ;
  3794.       nil,                                      /* dGETLIST_REVDATE      */ ;
  3795.       nil,                                      /* cGETLIST_REVTIME      */ ;
  3796.       nil,                                      /* cGETLIST_REVUSER      */ ;
  3797.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  3798.       nil,                                      /* nGETLIST_ACCELKEY     */ ;
  3799.       nil,                                      /* bGETLIST_GOTFOCUS     */ ;
  3800.       nil,                                      /* bGETLIST_LOSTFOCUS    */ ;
  3801.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  3802.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  3803.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  3804.                                                 /* lGETLIST_VISIBLE      */ ;
  3805.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  3806.       .f.,                                      /* lGETLIST_FLAG         */ ;
  3807.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  3808.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  3809.     } )
  3810.  
  3811. * ----------------------------- *
  3812.  
  3813. #command  @ <nRow> [,<nCol>] DCAPPCRT <oCrt>                                ;
  3814.                 [SIZE <nHeight> [,<nWidth>]]                                ;
  3815.                 [PARENT <oParent>]                                          ;
  3816.                 [CAPTION <cCaption>]                                        ;
  3817.                 [TYPE <nType>]                                              ;
  3818.                 [BORDER <nB>]                                               ;
  3819.                 [FONT <cFont>]                                              ;
  3820.                 [FONTSIZE <nFW>,<nFH>]                                      ;
  3821.                 [ACTION <bAction>]                                          ;
  3822.                 [CURSOR <nCursor>]                                          ;
  3823.                 [COLOR <ncFgC> [,<ncBgC>] ]                                 ;
  3824.                 [CARGO <xCargo>]                                            ;
  3825.                 [THREAD <oThread>]                                          ;
  3826.                 [EVAL <bEval>]                                              ;
  3827.                 [PREEVAL <bPreEval>]                                        ;
  3828.                 [HIDE <bHide>]                                              ;
  3829.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  3830.                 [TITLE <cTitle>]                                            ;
  3831.                 [RELATIVE <oRel>]                                           ;
  3832.                 [ID <cId>]                                                  ;
  3833.                 [ACCELKEY <nAccel>]                                         ;
  3834.                 [GOTFOCUS <bGotFocus>]                                      ;
  3835.                 [LOSTFOCUS <bLostFocus>]                                    ;
  3836.                 [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
  3837.                 [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
  3838.                 [TABGROUP <nTabGroup>]                                      ;
  3839.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  3840.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  3841.                 [GROUP <cGroup>]                                            ;
  3842.   =>                                                                        ;
  3843.    AADD( DCGUI_GETLIST,                                                     ;
  3844.     { GETLIST_APPCRT,                           /* nGETLIST_TYPE         */ ;
  3845.       <nType>,                                  /* nGETLIST_SUBTYPE      */ ;
  3846.       <cCaption>,                               /* cGETLIST_CAPTION      */ ;
  3847.       nil,                                      /* bGETLIST_VAR          */ ;
  3848.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  3849.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  3850.       nil,                                      /* nGETLIST_ENDROW       */ ;
  3851.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  3852.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  3853.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  3854.       <cFont>,                                  /* cGETLIST_FONT         */ ;
  3855.       nil,                                      /* cGETLIST_PICTURE      */ ;
  3856.       nil,                                      /* bGETLIST_WHEN         */ ;
  3857.       nil,                                      /* bGETLIST_VALID        */ ;
  3858.       nil,                                      /* cGETLIST_TOOLTIP      */ ;
  3859.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  3860.       nil,                                      /* aGETLIST_PRESENTATION */ ;
  3861.       <bAction>,                                /* bGETLIST_ACTION       */ ;
  3862.       nil,                                      /* oGETLIST_OBJECT       */ ;
  3863.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  3864.       {<nFW>,<nFH>,<nB>},                       /* xGETLIST_OPTIONS      */ ;
  3865.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  3866.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  3867.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  3868.       nil,                                      /* cGETLIST_VARNAME      */ ;
  3869.       nil,                                      /* bGETLIST_READVAR      */ ;
  3870.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  3871.       {DC_GetAnchorCB(@<oCrt>,'O'),<(oCrt)>},   /* bGETLIST_GROUP        */ ;
  3872.       nil,                                      /* nGETLIST_POINTER      */ ;
  3873.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  3874.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  3875.       [{DC_GetAnchorCB(@<oThread>,'O'),                                     ;
  3876.                         <(oThread)>,'O'}],      /* bGETLIST_REFVAR       */ ;
  3877.       nil,                                      /* bGETLIST_PROTECT      */ ;
  3878.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  3879.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  3880.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  3881.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  3882.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  3883.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  3884.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  3885.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  3886.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  3887.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  3888.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  3889.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  3890.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  3891.       nil,                                      /* cGETLIST_LEVEL        */ ;
  3892.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  3893.       nil,                                      /* cGETLIST_ACCESS       */ ;
  3894.       nil,                                      /* bGETLIST_COMPILE      */ ;
  3895.       <cId>,                                    /* cGETLIST_ID           */ ;
  3896.       nil,                                      /* dGETLIST_REVDATE      */ ;
  3897.       nil,                                      /* cGETLIST_REVTIME      */ ;
  3898.       nil,                                      /* cGETLIST_REVUSER      */ ;
  3899.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  3900.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  3901.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  3902.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  3903.       DC_LogicTest([<.lTabStop.>],[<_tab>],[<.lNoTabStop.>],[<_notab>]),    ;
  3904.                                                 /* lGETLIST_TABSTOP      */ ;
  3905.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  3906.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  3907.                                                 /* lGETLIST_VISIBLE      */ ;
  3908.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  3909.       .f.,                                      /* lGETLIST_FLAG         */ ;
  3910.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  3911.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  3912.     } )
  3913.  
  3914. * ----------------------------- *
  3915.  
  3916. #command  DCHOTKEY <anAccel>                                                ;
  3917.                 [PARENT <oParent>]                                          ;
  3918.                 [WHEN <bWhen>]                                              ;
  3919.                 [ACTION <bAction>]                                          ;
  3920.                 [ID <cID>]                                                  ;
  3921.                 [TITLE <cTitle>]                                            ;
  3922.                 [GROUP <cGroup>]                                            ;
  3923.  =>                                                                         ;
  3924.    AADD( DCGUI_GETLIST,                                                     ;
  3925.     { GETLIST_HOTKEY,                           /* nGETLIST_TYPE         */ ;
  3926.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  3927.       nil,                                      /* cGETLIST_CAPTION      */ ;
  3928.       nil,                                      /* bGETLIST_VAR          */ ;
  3929.       nil,                                      /* nGETLIST_STARTROW     */ ;
  3930.       nil,                                      /* nGETLIST_STARTCOL     */ ;
  3931.       nil,                                      /* nGETLIST_ENDROW       */ ;
  3932.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  3933.       nil,                                      /* nGETLIST_WIDTH        */ ;
  3934.       nil,                                      /* nGETLIST_HEIGHT       */ ;
  3935.       nil,                                      /* cGETLIST_FONT         */ ;
  3936.       nil,                                      /* cGETLIST_PICTURE      */ ;
  3937.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  3938.       nil,                                      /* bGETLIST_VALID        */ ;
  3939.       nil,                                      /* cGETLIST_TOOLTIP      */ ;
  3940.       nil,                                      /* xGETLIST_CARGO        */ ;
  3941.       nil,                                      /* aGETLIST_PRESENTATION */ ;
  3942.       <bAction>,                                /* bGETLIST_ACTION       */ ;
  3943.       nil,                                      /* oGETLIST_OBJECT       */ ;
  3944.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  3945.       nil,                                      /* xGETLIST_OPTIONS      */ ;
  3946.       nil,                                      /* aGETLIST_COLOR        */ ;
  3947.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  3948.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  3949.       nil,                                      /* cGETLIST_VARNAME      */ ;
  3950.       nil,                                      /* bGETLIST_READVAR      */ ;
  3951.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  3952.       nil,                                      /* bGETLIST_GROUP        */ ;
  3953.       nil,                                      /* nGETLIST_POINTER      */ ;
  3954.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  3955.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  3956.       nil,                                      /* bGETLIST_REFVAR       */ ;
  3957.       nil,                                      /* bGETLIST_PROTECT      */ ;
  3958.       nil,                                      /* lGETLIST_PIXEL        */ ;
  3959.       nil,                                      /* nGETLIST_CURSOR       */ ;
  3960.       nil,                                      /* bGETLIST_EVAL         */ ;
  3961.       nil,                                      /* bGETLIST_RELATIVE     */ ;
  3962.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  3963.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  3964.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  3965.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  3966.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  3967.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  3968.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  3969.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  3970.       nil,                                      /* cGETLIST_LEVEL        */ ;
  3971.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  3972.       nil,                                      /* cGETLIST_ACCESS       */ ;
  3973.       nil,                                      /* bGETLIST_COMPILE      */ ;
  3974.       <cID>,                                    /* cGETLIST_ID           */ ;
  3975.       nil,                                      /* dGETLIST_REVDATE      */ ;
  3976.       nil,                                      /* cGETLIST_REVTIME      */ ;
  3977.       nil,                                      /* cGETLIST_REVUSER      */ ;
  3978.       nil,                                      /* bGETLIST_HIDE         */ ;
  3979.       <anAccel>,                                /* nGETLIST_ACCELKEY     */ ;
  3980.       nil,                                      /* bGETLIST_GOTFOCUS     */ ;
  3981.       nil,                                      /* bGETLIST_LOSTFOCUS    */ ;
  3982.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  3983.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  3984.       nil,                                      /* lGETLIST_VISIBLE      */ ;
  3985.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  3986.       .f.,                                      /* lGETLIST_FLAG         */ ;
  3987.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  3988.       nil,                                      /* bGETLIST_PREEVAL      */ ;
  3989.     } )
  3990.  
  3991. * ----------------------------- *
  3992.  
  3993. #command  @ <nRow> [,<nCol>] DCOBJECT <oObject>                             ;
  3994.                 [PARENT <oParent>]                                          ;
  3995.                 [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
  3996.                 [WHEN <bWhen>]                                              ;
  3997.                 [HIDE <bHide>]                                              ;
  3998.                 [EDITPROTECT <bProtect>]                                    ;
  3999.                 [VALID <bValid>]                                            ;
  4000.                 [HELPCODE <cHelpCode>]                                      ;
  4001.                 [TITLE <cTitle>]                                            ;
  4002.                 [TOOLTIP <cToolTip>]                                        ;
  4003.                 [CURSOR <nCursor>]                                          ;
  4004.                 [CARGO <xCargo>]                                            ;
  4005.                 [EVAL <bEval>]                                              ;
  4006.                 [PREEVAL <bPreEval>]                                        ;
  4007.                 [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
  4008.                 [RELATIVE <oRel>]                                           ;
  4009.                 [ID <cId>]                                                  ;
  4010.                 [ACCELKEY <nAccel>]                                         ;
  4011.                 [GOTFOCUS <bGotFocus>]                                      ;
  4012.                 [LOSTFOCUS <bLostFocus>]                                    ;
  4013.                 [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
  4014.                 [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
  4015.                 [TABGROUP <nTabGroup>]                                      ;
  4016.                 [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
  4017.                 [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
  4018.                 [GROUP <cGroup>]                                            ;
  4019.    =>                                                                       ;
  4020.    AADD( DCGUI_GETLIST,                                                     ;
  4021.     { GETLIST_OBJECT,                           /* nGETLIST_TYPE         */ ;
  4022.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  4023.       nil,                                      /* cGETLIST_CAPTION      */ ;
  4024.       nil,                                      /* bGETLIST_VAR          */ ;
  4025.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  4026.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  4027.       nil,                                      /* nGETLIST_ENDROW       */ ;
  4028.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  4029.       nil,                                      /* nGETLIST_WIDTH        */ ;
  4030.       nil,                                      /* nGETLIST_HEIGHT       */ ;
  4031.       nil,                                      /* cGETLIST_FONT         */ ;
  4032.       nil,                                      /* cGETLIST_PICTURE      */ ;
  4033.       <bWhen>,                                  /* bGETLIST_WHEN         */ ;
  4034.       <bValid>,                                 /* bGETLIST_VALID        */ ;
  4035.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  4036.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  4037.       nil,                                      /* aGETLIST_PRESENTATION */ ;
  4038.       nil,                                      /* bGETLIST_ACTION       */ ;
  4039.       <oObject>,                                /* oGETLIST_OBJECT       */ ;
  4040.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  4041.       nil,                                      /* xGETLIST_OPTIONS      */ ;
  4042.       nil,                                      /* aGETLIST_COLOR        */ ;
  4043.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<(oMsg)>,'O'}]},                ;
  4044.                                                 /* cGETLIST_MESSAGE      */ ;
  4045.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  4046.       nil,                                      /* cGETLIST_VARNAME      */ ;
  4047.       nil,                                      /* bGETLIST_READVAR      */ ;
  4048.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  4049.       <oObject>,                                /* bGETLIST_GROUP        */ ;
  4050.       nil,                                      /* nGETLIST_POINTER      */ ;
  4051.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  4052.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  4053.       nil,                                      /* bGETLIST_REFVAR       */ ;
  4054.       <bProtect>,                               /* bGETLIST_PROTECT      */ ;
  4055.       <.p.> [.OR. <_pixel>],                    /* lGETLIST_PIXEL        */ ;
  4056.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  4057.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  4058.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  4059.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  4060.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  4061.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  4062.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  4063.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  4064.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  4065.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  4066.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  4067.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  4068.       nil,                                      /* cGETLIST_LEVEL        */ ;
  4069.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  4070.       nil,                                      /* cGETLIST_ACCESS       */ ;
  4071.       nil,                                      /* bGETLIST_COMPILE      */ ;
  4072.       <cId>,                                    /* cGETLIST_ID           */ ;
  4073.       nil,                                      /* dGETLIST_REVDATE      */ ;
  4074.       nil,                                      /* cGETLIST_REVTIME      */ ;
  4075.       nil,                                      /* cGETLIST_REVUSER      */ ;
  4076.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  4077.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  4078.       <bGotFocus>,                              /* bGETLIST_GOTFOCUS     */ ;
  4079.       <bLostFocus>,                             /* bGETLIST_LOSTFOCUS    */ ;
  4080.       DC_LogicTest([<.lTabStop.>],[<_tab>],[<.lNoTabStop.>],[<_notab>]),    ;
  4081.                                                 /* lGETLIST_TABSTOP      */ ;
  4082.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  4083.       DC_LogicTest([<.lVisible.>],[<_vis>],[<.lInvisible.>],[<_invis>]),    ;
  4084.                                                 /* lGETLIST_VISIBLE      */ ;
  4085.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  4086.       .f.,                                      /* lGETLIST_FLAG         */ ;
  4087.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  4088.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  4089.     } )
  4090.  
  4091. * ----------------------------- *
  4092.  
  4093. #command  DCSETPARENT [TO] [<oParent>]                                      ;
  4094.  =>                                                                         ;
  4095.    AADD( DCGUI_GETLIST,                                                     ;
  4096.     { GETLIST_SETPARENT,                        /* nGETLIST_TYPE         */ ;
  4097.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  4098.       nil,                                      /* cGETLIST_CAPTION      */ ;
  4099.       nil,                                      /* bGETLIST_VAR          */ ;
  4100.       nil,                                      /* nGETLIST_STARTROW     */ ;
  4101.       nil,                                      /* nGETLIST_STARTCOL     */ ;
  4102.       nil,                                      /* nGETLIST_ENDROW       */ ;
  4103.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  4104.       nil,                                      /* nGETLIST_WIDTH        */ ;
  4105.       nil,                                      /* nGETLIST_HEIGHT       */ ;
  4106.       nil,                                      /* cGETLIST_FONT         */ ;
  4107.       nil,                                      /* cGETLIST_PICTURE      */ ;
  4108.       nil,                                      /* bGETLIST_WHEN         */ ;
  4109.       nil,                                      /* bGETLIST_VALID        */ ;
  4110.       nil,                                      /* cGETLIST_TOOLTIP      */ ;
  4111.       nil,                                      /* xGETLIST_CARGO        */ ;
  4112.       nil,                                      /* aGETLIST_PRESENTATION */ ;
  4113.       nil,                                      /* bGETLIST_ACTION       */ ;
  4114.       nil,                                      /* oGETLIST_OBJECT       */ ;
  4115.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  4116.       nil,                                      /* xGETLIST_OPTIONS      */ ;
  4117.       nil,                                      /* aGETLIST_COLOR        */ ;
  4118.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  4119.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  4120.       nil,                                      /* cGETLIST_VARNAME      */ ;
  4121.       nil,                                      /* bGETLIST_READVAR      */ ;
  4122.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  4123.       nil,                                      /* bGETLIST_GROUP        */ ;
  4124.       nil,                                      /* nGETLIST_POINTER      */ ;
  4125.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  4126.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  4127.       nil,                                      /* bGETLIST_REFVAR       */ ;
  4128.       nil,                                      /* bGETLIST_PROTECT      */ ;
  4129.       .f.,                                      /* lGETLIST_PIXEL        */ ;
  4130.       nil,                                      /* nGETLIST_CURSOR       */ ;
  4131.       nil,                                      /* bGETLIST_EVAL         */ ;
  4132.       nil,                                      /* bGETLIST_RELATIVE     */ ;
  4133.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  4134.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  4135.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  4136.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  4137.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  4138.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  4139.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  4140.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  4141.       nil,                                      /* cGETLIST_LEVEL        */ ;
  4142.       nil,                                      /* cGETLIST_TITLE        */ ;
  4143.       nil,                                      /* cGETLIST_ACCESS       */ ;
  4144.       nil,                                      /* bGETLIST_COMPILE      */ ;
  4145.       nil,                                      /* cGETLIST_ID           */ ;
  4146.       nil,                                      /* dGETLIST_REVDATE      */ ;
  4147.       nil,                                      /* cGETLIST_REVTIME      */ ;
  4148.       nil,                                      /* cGETLIST_REVUSER      */ ;
  4149.       nil,                                      /* bGETLIST_HIDE         */ ;
  4150.       nil,                                      /* nGETLIST_ACCELKEY     */ ;
  4151.       nil,                                      /* bGETLIST_GOTFOCUS     */ ;
  4152.       nil,                                      /* bGETLIST_LOSTFOCUS    */ ;
  4153.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  4154.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  4155.       nil,                                      /* lGETLIST_VISIBLE      */ ;
  4156.       nil,                                      /* cGETLIST_GETGROUP     */ ;
  4157.       .f.,                                      /* lGETLIST_FLAG         */ ;
  4158.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  4159.       nil,                                      /* bGETLIST_PREEVAL      */ ;
  4160.     } )
  4161.  
  4162. * ----------------------------- *
  4163.  
  4164. #command  DCSETGROUP [TO] [<cGroup>]                                        ;
  4165.  =>                                                                         ;
  4166.    AADD( DCGUI_GETLIST,                                                     ;
  4167.     { GETLIST_SETGROUP,                         /* nGETLIST_TYPE         */ ;
  4168.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  4169.       nil,                                      /* cGETLIST_CAPTION      */ ;
  4170.       nil,                                      /* bGETLIST_VAR          */ ;
  4171.       nil,                                      /* nGETLIST_STARTROW     */ ;
  4172.       nil,                                      /* nGETLIST_STARTCOL     */ ;
  4173.       nil,                                      /* nGETLIST_ENDROW       */ ;
  4174.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  4175.       nil,                                      /* nGETLIST_WIDTH        */ ;
  4176.       nil,                                      /* nGETLIST_HEIGHT       */ ;
  4177.       nil,                                      /* cGETLIST_FONT         */ ;
  4178.       nil,                                      /* cGETLIST_PICTURE      */ ;
  4179.       nil,                                      /* bGETLIST_WHEN         */ ;
  4180.       nil,                                      /* bGETLIST_VALID        */ ;
  4181.       nil,                                      /* cGETLIST_TOOLTIP      */ ;
  4182.       nil,                                      /* xGETLIST_CARGO        */ ;
  4183.       nil,                                      /* aGETLIST_PRESENTATION */ ;
  4184.       nil,                                      /* bGETLIST_ACTION       */ ;
  4185.       nil,                                      /* oGETLIST_OBJECT       */ ;
  4186.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  4187.       nil,                                      /* xGETLIST_OPTIONS      */ ;
  4188.       nil,                                      /* aGETLIST_COLOR        */ ;
  4189.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  4190.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  4191.       nil,                                      /* cGETLIST_VARNAME      */ ;
  4192.       nil,                                      /* bGETLIST_READVAR      */ ;
  4193.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  4194.       nil,                                      /* bGETLIST_GROUP        */ ;
  4195.       nil,                                      /* nGETLIST_POINTER      */ ;
  4196.       nil,                                      /* bGETLIST_PARENT       */ ;
  4197.       nil,                                      /* bGETLIST_REFVAR       */ ;
  4198.       nil,                                      /* bGETLIST_PROTECT      */ ;
  4199.       .f.,                                      /* lGETLIST_PIXEL        */ ;
  4200.       nil,                                      /* nGETLIST_CURSOR       */ ;
  4201.       nil,                                      /* bGETLIST_EVAL         */ ;
  4202.       nil,                                      /* bGETLIST_RELATIVE     */ ;
  4203.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  4204.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  4205.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  4206.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  4207.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  4208.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  4209.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  4210.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  4211.       nil,                                      /* cGETLIST_LEVEL        */ ;
  4212.       nil,                                      /* cGETLIST_TITLE        */ ;
  4213.       nil,                                      /* cGETLIST_ACCESS       */ ;
  4214.       nil,                                      /* bGETLIST_COMPILE      */ ;
  4215.       nil,                                      /* cGETLIST_ID           */ ;
  4216.       nil,                                      /* dGETLIST_REVDATE      */ ;
  4217.       nil,                                      /* cGETLIST_REVTIME      */ ;
  4218.       nil,                                      /* cGETLIST_REVUSER      */ ;
  4219.       nil,                                      /* bGETLIST_HIDE         */ ;
  4220.       nil,                                      /* nGETLIST_ACCELKEY     */ ;
  4221.       nil,                                      /* bGETLIST_GOTFOCUS     */ ;
  4222.       nil,                                      /* bGETLIST_LOSTFOCUS    */ ;
  4223.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  4224.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  4225.       nil,                                      /* lGETLIST_VISIBLE      */ ;
  4226.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  4227.       .f.,                                      /* lGETLIST_FLAG         */ ;
  4228.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  4229.       nil,                                      /* bGETLIST_PREEVAL      */ ;
  4230.     } )
  4231.  
  4232.  
  4233.  
  4234. * ------------------------------- *
  4235.  
  4236. #command DCSTATUSBAR <oObject>                                              ;
  4237.                 [TYPE <nType>]                                              ;
  4238.                 [ALIGN <nAlign>]                                            ;
  4239.                 [HEIGHT <nHeight>]                                          ;
  4240.                 [WIDTH <nWidth>]                                            ;
  4241.                 [SPACING <nSpacing>]                                        ;
  4242.                 [PARENT <oParent>]                                          ;
  4243.                 [CARGO <xCargo>]                                            ;
  4244.                 [PRESENTATION <aPres>]                                      ;
  4245.                 [EVAL <bEval>]                                              ;
  4246.                 [PREEVAL <bPreEval>]                                        ;
  4247.                 [TITLE <cTitle>]                                            ;
  4248.                 [HIDE <bHide>]                                              ;
  4249.                 [ID <cId>]                                                  ;
  4250.                 [GROUP <cGroup>]                                            ;
  4251.  =>                                                                         ;
  4252.   AADD( DCGUI_GETLIST,                                                      ;
  4253.     { GETLIST_STATUSBAR,                        /* nGETLIST_TYPE         */ ;
  4254.       <nType>,                                  /* nGETLIST_SUBTYPE      */ ;
  4255.       nil,                                      /* cGETLIST_CAPTION      */ ;
  4256.       nil,                                      /* bGETLIST_VAR          */ ;
  4257.       nil,                                      /* nGETLIST_STARTROW     */ ;
  4258.       nil,                                      /* nGETLIST_STARTCOL     */ ;
  4259.       nil,                                      /* nGETLIST_ENDROW       */ ;
  4260.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  4261.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  4262.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  4263.       nil,                                      /* cGETLIST_FONT         */ ;
  4264.       nil,                                      /* cGETLIST_PICTURE      */ ;
  4265.       nil,                                      /* bGETLIST_WHEN         */ ;
  4266.       nil,                                      /* bGETLIST_VALID        */ ;
  4267.       nil,                                      /* cGETLIST_TOOLTIP      */ ;
  4268.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  4269.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  4270.       nil,                                      /* bGETLIST_ACTION       */ ;
  4271.       nil,                                      /* oGETLIST_OBJECT       */ ;
  4272.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  4273.       {<nAlign>,<nSpacing>},                    /* xGETLIST_OPTIONS      */ ;
  4274.       nil,                                      /* aGETLIST_COLOR        */ ;
  4275.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  4276.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  4277.       nil,                                      /* cGETLIST_VARNAME      */ ;
  4278.       nil,                                      /* bGETLIST_READVAR      */ ;
  4279.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  4280.       [{DC_GetAnchorCB(@<oObject>,'O'),                                     ;
  4281.                         <(oObject)>,'O'}],      /* bGETLIST_GROUP        */ ;
  4282.       nil,                                      /* nGETLIST_POINTER      */ ;
  4283.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  4284.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  4285.       nil,                                      /* bGETLIST_REFVAR       */ ;
  4286.       nil,                                      /* bGETLIST_PROTECT      */ ;
  4287.       .t.,                                      /* lGETLIST_PIXEL        */ ;
  4288.       nil,                                      /* nGETLIST_CURSOR       */ ;
  4289.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  4290.       nil,                                      /* bGETLIST_RELATIVE     */ ;
  4291.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  4292.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  4293.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  4294.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  4295.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  4296.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  4297.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  4298.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  4299.       nil,                                      /* cGETLIST_LEVEL        */ ;
  4300.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  4301.       nil,                                      /* cGETLIST_ACCESS       */ ;
  4302.       nil,                                      /* bGETLIST_COMPILE      */ ;
  4303.       <cId>,                                    /* cGETLIST_ID           */ ;
  4304.       nil,                                      /* dGETLIST_REVDATE      */ ;
  4305.       nil,                                      /* cGETLIST_REVTIME      */ ;
  4306.       nil,                                      /* cGETLIST_REVUSER      */ ;
  4307.       <bHide>,                                  /* bGETLIST_HIDE         */ ;
  4308.       nil,                                      /* nGETLIST_ACCELKEY     */ ;
  4309.       nil,                                      /* bGETLIST_GOTFOCUS     */ ;
  4310.       nil,                                      /* bGETLIST_LOSTFOCUS    */ ;
  4311.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  4312.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  4313.       .f.,                                      /* lGETLIST_VISIBLE      */ ;
  4314.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  4315.       .f.,                                      /* lGETLIST_FLAG         */ ;
  4316.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  4317.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  4318.    } )
  4319.  
  4320. * ------------------------------- *
  4321.  
  4322. #command DCGETOPTIONS                                                         ;
  4323.                 [ NAME <cName>]                                               ;
  4324.                 [ TITLE <cTitle>]                                             ;
  4325.                 [ WINDOWHEIGHT <nWndHeight>]                                  ;
  4326.                 [ WINDOWWIDTH <nWndWidth>]                                    ;
  4327.                 [ ROWSPACE <nRowSpace>]                                       ;
  4328.                 [ FONT <cFont> ]                                              ;
  4329.                 [ SAYFONT <cSayFont>]                                         ;
  4330.                 [ SAYWIDTH <nSayWidth>]                                       ;
  4331.                 [ SAYHEIGHT <nSayHeight>]                                     ;
  4332.                 [ GETHEIGHT <nGetHeight>]                                     ;
  4333.                 [ GETFONT <cGetFont>]                                         ;
  4334.                 [ WINDOWROW <nWindowRow>]                                     ;
  4335.                 [ WINDOWCOL <nWindowCol>]                                     ;
  4336.                 [ ROWOFFSET <nRowOffset>]                                     ;
  4337.                 [ COLOFFSET <nColOffset>]                                     ;
  4338.                 [ <lDesign:DESIGN> [HOTKEY <nDesignHotKey>] ]                 ;
  4339.                 [ <p:PIXEL>] [_PIXEL <_p>]                                    ;
  4340.                 [ MENU <acMenu> [MSGBOX <oMsgBox>]                            ;
  4341.                        [KEYLIST <cKeyList>] [KEYTYPE <nKeyType>]              ;
  4342.                        [WRAPPER <bWrapper>] ]                                 ;
  4343.                 [ BUTTONS <aButtons>]                                         ;
  4344.                 [ ICON <nIcon>]                                               ;
  4345.                 [ <lCheckGet:CHECKGET>] [_CHECKGET <_checkget>]               ;
  4346.                 [ <lNoCheckGet:NOCHECKGET>] [_NOCHECKGET <_nocheckget>]       ;
  4347.                 [ <h:HELPFILE,HELPBLOCK> <bcHelp>]                            ;
  4348.                 [ <lVisible:VISIBLE>] [_VISIBLE <_visible>]                   ;
  4349.                 [ <lNoTrans:NOTRANSLATE>] [_NOTRANSLATE <_notranslate>]       ;
  4350.                 [ <lSayRight:SAYRIGHTJUST> ] [_SAYRIGHTJUST <_sayright>]      ;
  4351.                 [ BITMAP <nBitMap> ]                                          ;
  4352.                 [ PRESENTATION <aPres> ]                                      ;
  4353.                 [ COLOR <nBGColor> ]                                          ;
  4354.                 [ SAYOPTIONS <nSayOpt> ]                                      ;
  4355.                 [ EVAL <bEval> ]                                              ;
  4356.                 [ PREEVAL <bPreEval> ]                                        ;
  4357.                 [ POSTEVAL <bPostEval> ]                                      ;
  4358.                 [ MODALSTATE <nModalState> ]                                  ;
  4359.                 [ <lNoMin:NOMINBUTTON> ] [_NOMINBUTTON <_nomin>]              ;
  4360.                 [ <lNoMax:NOMAXBUTTON> ] [_NOMAXBUTTON <_nomax>]              ;
  4361.                 [ <lTabStop:TABSTOP> ] [_TABSTOP <_tabstop>]                  ;
  4362.                 [ <lAbortQuery:ABORTQUERY> [_ABORTQUERY <_abortquery>]        ;
  4363.                                            [MSG <bAbortQuery>] ]              ;
  4364.                 [ <lCloseQuery:CLOSEQUERY> [_CLOSEQUERY <_closequery>]        ;
  4365.                                            [MSG <bCloseQuery>] ]              ;
  4366.                 [ <lExitQuery:EXITQUERY>   [_EXITQUERY <_exitquery>]          ;
  4367.                                            [MSG <bExitQuery>] ]               ;
  4368.                 [ ROWPIXELS <nRowPixels> ]                                    ;
  4369.                 [ COLPIXELS <nColPixels> ]                                    ;
  4370.                 [ <lNoEscape:NOESCAPEKEY> ] [_NOESCAPEKEY <_noescape>]        ;
  4371.                 [ <s:SOURCECODE,SOURCEFILE> <cSource> ]                       ;
  4372.                 [ TOOLTIPCOLOR <nTFg>, <nTBg> ]                               ;
  4373.                 [ BORDER <nBorder> ]                                          ;
  4374.                 [ <lExValid:EXITVALIDATE> ] [_EXITVALIDATE <_exitvalid>]      ;
  4375.                 [ <lNoTask:NOTASKLIST,NOTASKBAR> ] [_NOTASKLIST <_notask>]    ;
  4376.                 [ MINSIZE <nMinCol>, <nMinRow> ]                              ;
  4377.                 [ MAXSIZE <nMaxCol>, <nMaxRow> ]                              ;
  4378.                 [ <lNoReSize:NORESIZE> ] [_NORESIZE <_noresize>]              ;
  4379.                 [ <lNoTitle:NOTITLEBAR> ] [_NOTITLEBAR <_notitle>]            ;
  4380.                 [ <lNoMove:NOMOVEWITHOWNER> ] [_NOMOVEWITHOWNER <_nomove>]    ;
  4381.                 [ ORIGIN <nOrigin> ]                                          ;
  4382.                 [ HILITEGETS <nHiliteColor> ]                                 ;
  4383.                 [ <lNoSuper:NOSUPERVISE> ] [_NOSUPERVISE <_nosuper>]          ;
  4384.                 [ <lHide:HIDE> ] [_HIDE <_hide>]                              ;
  4385.                 [ <lNoBusy:NOBUSYPOINTER> ] [_NOBUSYPOINTER <_nobusy>]        ;
  4386.                 [ BUSYMESSAGE <bcBusyMsg> ]                                   ;
  4387.                 [ <lCascade:CASCADE> ] [_CASCADE <_cascade>]                  ;
  4388.                 [ <lAutoResize:AUTORESIZE> ] [_AUTORESIZE <_autoresize>]      ;
  4389.                 [ COLORGETS <aColorGets> ]                                    ;
  4390.                 [ <lNoConfirm:NOCONFIRM> ] [_NOCONFIRM <_noconfirm>]          ;
  4391.                 [ <lConfirm:CONFIRM> ] [_CONFIRM <_confirm>]                  ;
  4392.                 [ FITPAD <nFitPad> ]                                          ;
  4393.                 [ BUTTONALIGN <nButtonAlign> ]                                ;
  4394.                 [ DISABLEDCOLOR <anDisabledBGClr> ]                           ;
  4395.                 [ <lEnterTab:ENTERTAB> ] [_ENTERTAB <_entertab>]              ;
  4396.                 [ EDITPROTECT <bEditProtect> ]                                ;
  4397.                 [ NOEDITNAVKEYS <bNoEditNavKeys> ]                            ;
  4398.                 [ MESSAGEINTO <obMessageInto> ]                               ;
  4399.                 [ BUTTONSOUND <abButtonSound> ]                               ;
  4400.                 [ HELPCODE <cHelpCode> ]                                      ;
  4401.                 [ <lMsgClear:MESSAGECLEAR>] [_MESSAGECLEAR <_msgclear>]       ;
  4402.                 [ <lAWM:AUTOWINDOWMENU,AUTOWINMENU> ] [_AUTOWINDOWMENU <_awm>]     ;
  4403.                 [ KEYBOARD <cKeyboard> ]                                      ;
  4404.                 [ <lNWM:NOWINDOWMENU,NOWINMENU> ] [_NOWINDOWMENU <_nwm>]         ;
  4405.       =>                                                                      ;
  4406.    GetOptions :=                                                              ;
  4407.      { <cName>,                               /* cGETOPT_NAME          */     ;
  4408.        <cTitle>,                              /* cGETOPT_TITLE         */     ;
  4409.        <nWndHeight>,                          /* nGETOPT_WNDHEIGHT     */     ;
  4410.        <nWndWidth>,                           /* nGETOPT_WNDWIDTH      */     ;
  4411.        <nRowSpace>,                           /* nGETOPT_ROWSPACE      */     ;
  4412.        <nSayWidth>,                           /* nGETOPT_SAYWIDTH      */     ;
  4413.        <cSayFont>,                            /* cGETOPT_SAYFONT       */     ;
  4414.        <cGetFont>,                            /* cGETOPT_GETFONT       */     ;
  4415.        <nGetHeight>,                          /* nGETOPT_GETHEIGHT     */     ;
  4416.        <aButtons>,                            /* aGETOPT_BUTTONS       */     ;
  4417.        <nWindowRow>,                          /* nGETOPT_WNDROW        */     ;
  4418.        <nWindowCol>,                          /* nGETOPT_WNDCOL        */     ;
  4419.        <nRowOffset>,                          /* nGETOPT_ROWOFFSET     */     ;
  4420.        <nColOffset>,                          /* nGETOPT_COLOFFSET     */     ;
  4421.        IIF(<.lDesign.>,.t.,nil),              /* lGETOPT_DESIGN        */     ;
  4422.        [{<acMenu>,<oMsgBox>,<cKeyList>,<nKeyType>,<bWrapper>}],               ;
  4423.                                               /* cGETOPT_MENU          */     ;
  4424.        [<.p.>][<_p>],                         /* lGETOPT_PIXEL         */     ;
  4425.        nil,                                   /* xGETOPT_SPARE         */     ;
  4426.        <nIcon>,                               /* nGETOPT_ICON          */     ;
  4427.        [<.lCheckGet.>.AND.!<.lNoCheckGet.>],  /* lGETOPT_CHECKGET      */     ;
  4428.        <bcHelp>,                              /* cGETOPT_HELPFILE      */     ;
  4429.        [<.lVisible.>][<_visible>],            /* lGETOPT_VISIBLE       */     ;
  4430.        !<.lNoTrans.> [.AND. !<_notranslate>], /* lGETOPT_TRANSLATE     */     ;
  4431.        [<.lSayRight.>][<_sayright>],          /* lGETOPT_SAYRIGHT      */     ;
  4432.        <nBitMap>,                             /* nGETOPT_BITMAP        */     ;
  4433.        <aPres>,                               /* aGETOPT_PRESENT       */     ;
  4434.        <nBGColor>,                            /* aGETOPT_BGCOLOR       */     ;
  4435.        <nSayOpt>,                             /* nGETOPT_SAYOPT        */     ;
  4436.        <bEval>,                               /* bGETOPT_EVAL          */     ;
  4437.        <nModalState>,                         /* nGETOPT_MODALSTATE    */     ;
  4438.        <nSayHeight>,                          /* nGETOPT_SAYHEIGHT     */     ;
  4439.        !<.lNoMin.> [.AND. !<_nomin>],         /* lGETOPT_MINBUTTON     */     ;
  4440.        !<.lNoMax.> [.AND. !<_nomax>],         /* lGETOPT_MAXBUTTON     */     ;
  4441.        [<.lTabStop.>] [<_tabstop>],           /* lGETOPT_TABSTOP       */     ;
  4442.        {[<.lAbortQuery.>][<_abortquery>],<bAbortQuery>},                      ;
  4443.                                               /* lGETOPT_ABORTQUERY    */     ;
  4444.        <nRowPixels>,                          /* nGETOPT_ROWPIXELS     */     ;
  4445.        <nColPixels>,                          /* nGETOPT_COLPIXELS     */     ;
  4446.        !<.lNoEscape.> [.AND. !<_noescape>],   /* lGETOPT_ESCAPEKEY     */     ;
  4447.        <cSource>,                             /* cGETOPT_SOURCECODE    */     ;
  4448.        [{<nTFg>,<nTBg>}],                     /* aGETOPT_TOOLCOLOR     */     ;
  4449.        <nBorder>,                             /* nGETOPT_BORDER        */     ;
  4450.        [<.lExValid.>][<_exitvalid>],          /* lGETOPT_EXVALID       */     ;
  4451.        {[<.lCloseQuery.>][<_closequery>],<bCloseQuery>},                      ;
  4452.                                               /* lGETOPT_CLOSEQUERY    */     ;
  4453.        [<.lNoTask.>][<_notask>],              /* lGETOPT_NOTASKLIST    */     ;
  4454.        [{<nMinCol>,<nMinRow>}],               /* aGETOPT_MINSIZE       */     ;
  4455.        [{<nMaxCol>,<nMaxRow>}],               /* aGETOPT_MAXSIZE       */     ;
  4456.        [<.lNoReSize.>][<_noresize>],          /* lGETOPT_NORESIZE      */     ;
  4457.        [<.lNoTitle.>][<_notitle>],            /* lGETOPT_NOTITLEBAR    */     ;
  4458.        [<.lNoMove.>][<_nomove>],              /* lGETOPT_NOMOVE        */     ;
  4459.        <nOrigin>,                             /* nGETOPT_ORIGIN        */     ;
  4460.        <nHiliteColor>,                        /* nGETOPT_HILITECOLOR   */     ;
  4461.        !<.lNoSuper.> [.OR. <_nosuper>],       /* lGETOPT_SUPERVISE     */     ;
  4462.        [<.lHide.>][<_hide>],                  /* lGETOPT_HIDEDIALOG    */     ;
  4463.        [<.lNoBusy.>][<_nobusy>],              /* lGETOPT_NOBUSY        */     ;
  4464.        <bcBusyMsg>,                           /* cGETOPT_BUSYMSG       */     ;
  4465.        <nDesignHotKey>,                       /* nGETOPT_DESIGNKEY     */     ;
  4466.        [<.lCascade.>][<_cascade>],            /* lGETOPT_CASCADE       */     ;
  4467.        [<.lAutoResize.>][<_autoresize>],      /* lGETOPT_AUTORESIZE    */     ;
  4468.        <aColorGets>,                          /* aGETOPT_COLORGETS     */     ;
  4469.        [!<.lNoConfirm.>][<.lConfirm.>],       /* lGETOPT_CONFIRM       */     ;
  4470.        <nFitPad>,                             /* nGETOPT_FITPAD        */     ;
  4471.        <nButtonAlign>,                        /* nGETOPT_BUTTONALIGN   */     ;
  4472.        {[<.lExitQuery.>][<_exitquery>],<bExitQuery>},                         ;
  4473.                                               /* lGETOPT_EXITQUERY     */     ;
  4474.        <anDisabledBGClr>,                     /* nGETOPT_DISABLEDCOLOR */     ;
  4475.        [<.lEnterTab.>][<_entertab>],          /* lGETOPT_ENTERTAB      */     ;
  4476.        <bPreEval>,                            /* bGETOPT_PREEVAL       */     ;
  4477.        <cFont>,                               /* cGETOPT_FONT          */     ;
  4478.        <bEditProtect>,                        /* bGETOPT_EDITPROTECT   */     ;
  4479.        <obMessageInto>,                       /* oGETOPT_MESSAGEINTO   */     ;
  4480.        <bNoEditNavKeys>,                      /* bGETOPT_NOEDITNAVKEYS */     ;
  4481.        <abButtonSound>,                       /* aGETOPT_BUTTONSOUND   */     ;
  4482.        [<.lMsgClear.>][<_msgclear>],          /* lGETOPT_MESSAGECLEAR  */     ;
  4483.        <cHelpCode>,                           /* cGETOPT_HELPCODE      */     ;
  4484.        [<.lAWM.>][<_awm>],                    /* lGETOPT_AUTOWINMENU   */     ;
  4485.        <cKeyboard>,                           /* cGETOPT_KEYBOARD      */     ;
  4486.        [<.lNWM.>][<_nwm>],                    /* lGETOPT_NOWINMENU     */     ;
  4487.     }
  4488.  
  4489.  
  4490. #xtrans  DCGET OPTIONS               ;
  4491.          [WINDOW HEIGHT <WH>]        ;
  4492.          [WINDOW WIDTH <WW>]         ;
  4493.          [WINDOW ROW <WR>]           ;
  4494.          [WINDOW COL <WC>]           ;
  4495.          [<clauses,...>]             ;
  4496.                                =>    ;
  4497.          DCGETOPTIONS                ;
  4498.          [WINDOWHEIGHT <WH>]         ;
  4499.          [WINDOWWIDTH <WW>]          ;
  4500.          [WINDOWROW <WR>]            ;
  4501.          [WINDOWCOL <WC>]            ;
  4502.          [<clauses>]
  4503.  
  4504. #xcommand DCREAD GUI                                                        ;
  4505.           [ TO <lVar> ]                                                     ;
  4506.           [ TITLE <cTitle> ]                                                ;
  4507.           [ OPTIONS <aOptions> ]                                            ;
  4508.           [ <lButtons:ADDBUTTONS> ] [_ADDBUTTONS <_addbuttons>]             ;
  4509.           [ BUTTONS <nButtons> ]                                            ;
  4510.           [ HANDLER <Handler> [REFERENCE <xRef>] ]                          ;
  4511.           [ PARENT <oParent> ]                                              ;
  4512.           [ OWNER <oOwner> ]                                                ;
  4513.           [ APPWINDOW <oAppWindow> ]                                        ;
  4514.           [ <lExit:EXIT> ] [_EXIT <_lExit>]                                 ;
  4515.           [ <lFit:FIT> ] [_FIT <_lFit>]                                     ;
  4516.           [ <lModal:MODAL> ] [_MODAL <_lModal>]                             ;
  4517.           [ EVAL <bEval> ]                                                  ;
  4518.           [ <lSave:SAVE> ] [_SAVE <_save>]                                  ;
  4519.           [ <lEnterExit:ENTEREXIT> ] [_ENTEREXIT <_lEnterExit>]             ;
  4520.           [ <lArrayTran:ARRAYTRANSLATE> ] [_ARRAYTRANSLATE <_lArrayTran> ]  ;
  4521.           [ SETFOCUS <xSetFocus> ]                                          ;
  4522.           [ GROUP <acGroup> ]                                               ;
  4523.           [ TIMEOUT <nSeconds> ]                                            ;
  4524.           [ WAIT <nWait> ]                                                  ;
  4525.           [ <lClearEvents:CLEAREVENTS> ] [_CLEAREVENTS <_clearevents>]      ;
  4526.           [ <lNoDestroy:NODESTROY> ] [_NODESTROY <_nodestroy>]              ;
  4527.           [ <lSetAppWindow:SETAPPWINDOW> ] [_SETAPPWINDOW <_setappwindow>]  ;
  4528.           [ WRITESOURCE <cWriteSource> ]                                    ;
  4529.           [ <lExpress:EXPRESS> ] [_EXPRESS <_express>]                      ;
  4530.           [ POSTEVENT <nEvent> ]                                            ;
  4531.   =>                                                                        ;
  4532.     [<lVar> := ]                                                            ;
  4533.        DC_ReadGui(  DCGUI_GETLIST,                                          ;
  4534.                     <cTitle>,                                               ;
  4535.                     <aOptions>,                                             ;
  4536.                     IIF(<.lButtons.> [.OR. <_addbuttons>],                  ;
  4537.                          DCGUI_BUTTON_OK+DCGUI_BUTTON_CANCEL, <nButtons>),  ;
  4538.                     [{|a,b,c,d,e,f,g,h|<Handler>(a,b,c,d,e,f,@g,h)}],       ;
  4539.                     <xRef>,                                                 ;
  4540.                     <oParent>,                                              ;
  4541.                     <.lFit.> [.OR. <_lFit>],                                ;
  4542.                     nil,                                                    ;
  4543.                     <.lExit.> [.OR. <_lExit>],                              ;
  4544.                     <oAppWindow>,                                           ;
  4545.                     <.lModal.> [.OR. <_lModal>],                            ;
  4546.                     <bEval>,                                                ;
  4547.                     <.lEnterExit.> [.OR. <_lEnterExit>],                    ;
  4548.                     <.lArrayTran.> [.OR. <_lArrayTran>],                    ;
  4549.                     <oOwner>,                                               ;
  4550.                     [<xSetFocus>],                                          ;
  4551.                     <acGroup>,                                              ;
  4552.                     <nSeconds>,                                             ;
  4553.                     <nWait>,                                                ;
  4554.                     <.lClearEvents.> [.OR. <_clearevents>],                 ;
  4555.                     !<.lNoDestroy.> [.AND. !<_nodestroy>],                  ;
  4556.                     <.lSetAppWindow.> [.OR. <_setappwindow>],               ;
  4557.                     <cWriteSource>,                                         ;
  4558.                     <.lExpress.> [.OR. <_express>],                         ;
  4559.                     <nEvent> )                                              ;
  4560.     ; IF !<.lSave.> [.AND. !<_save>] ; DCGUI_GETLIST := {} ; ENDIF
  4561.  
  4562.  
  4563. #xcommand DCREAD [TEXT]                                                     ;
  4564.           [ TO <lVar> ]                                                     ;
  4565.           [ TITLE <cTitle> ]                                                ;
  4566.           [ OPTIONS <aOptions> ]                                            ;
  4567.           [ HANDLER <Handler> ]                                             ;
  4568.           [ PARENT <oDlg> ]                                                 ;
  4569.           [ APPWINDOW <oAppWindow> ]                                        ;
  4570.           [ AREA <aReadArea> ]                                              ;
  4571.           [ REFERENCE <xRef> ]                                              ;
  4572.   =>                                                                        ;
  4573.     [<lVar> := ]                                                            ;
  4574.        DC_ReadGets( DCGUI_GETLIST,                                          ;
  4575.                     <cTitle>,                                               ;
  4576.                     <aReadArea>,                                            ;
  4577.                     <aOptions>,                                             ;
  4578.                     [{|a,b,c,d,e,f,g,h|<Handler>(a,b,c,d,e,f,g,h)}],        ;
  4579.                     <xRef>,                                                 ;
  4580.                     <oDlg>,                                                 ;
  4581.                     <oAppWindow>  )
  4582.  
  4583.  
  4584. #command DCQOUT WINDOW [<oCrt>] [EVAL <bEval>] [ <app:APPWINDOW> ]           ;
  4585.          => DC_QoutWindow( <oCrt>, <bEval>, <.app.> )
  4586.  
  4587. #command DCQOUT [<list,...>]  =>  DC_DebugQout( {<list>} )
  4588.  
  4589. #xcommand DCQQOUT [<list,...>]  =>  DC_DebugQQout( {<list>} )
  4590.  
  4591. #xcommand DCDEBUG <var1> [,<varN>] =>  ;
  4592.           DC_DebugQout( {<(var1)> + ':',<var1>} ) [; DC_DebugQout( {<(varN)> + ':',<varN>} ) ]
  4593.  
  4594. #xcommand DCQDEBUG => DC_DebugQOut()
  4595.  
  4596. #xcommand DCQDEBUG <var1> [,<varN>] =>  ;
  4597.           DC_DebugQout( {<(var1)> + ':',<var1>} ) [; DC_DebugQout( {<(varN)> + ':',<varN>} ) ]
  4598.  
  4599. #xcommand DCQQDEBUG <var1> [,<varN>] =>  ;
  4600.           DC_DebugQout( {<(var1)> + ':',<var1>} ) [; DC_DebugQout( {<(varN)> + ':',<varN>} ) ]
  4601.  
  4602. #xcommand DCQDEBUGOFF <var1> [,<varN>] =>  ;
  4603.           DC_DebugQout( {<var1>} ) [; DC_DebugQout( {<varN>} ) ]
  4604.  
  4605. #command DCMSGBOX <list,...>       ;
  4606.            [TITLE <cTitle>]        ;
  4607.            [TIMEOUT <nSeconds>]    ;
  4608.            [<yesno:YESNO>]         ;
  4609.            [TO <output>]           ;
  4610.            [FONT <cFont>]          ;
  4611.            [BUTTONS <aButtons>]    ;
  4612.            [CHOICE <nChoice>]      ;
  4613.            [HOTKEY <cHotKey>]      ;
  4614.            [EVAL <bEval>]          ;
  4615.    =>                              ;
  4616.   [<output> := ] ;
  4617.     DC_MsgBox(,,{<list>},<cTitle>,,<nSeconds>,<.yesno.>,<nChoice>, ;
  4618.               <aButtons>,,,<cHotKey>,<cFont>,<bEval>)
  4619.  
  4620. #command DCWAITON <msg>            ;
  4621.          <m:MODAL>                 ;
  4622.          [TO <output>]             ;
  4623.          [TITLE <title>]           ;
  4624.          [PARENT <parent>]         ;
  4625.          [OWNER <owner>]           ;
  4626.    =>                              ;
  4627.   [<output> := ] ;
  4628.     DC_WaitOn(<msg>,,,,,,<title>,,<parent>,<owner>,<m>)
  4629.  
  4630. #command DCGUI ON => DC_Gui(.t.)
  4631.  
  4632. #command DCGUI OFF => DC_Gui(.f.)
  4633.  
  4634. #command GUI ON => DC_Gui(.t.)
  4635.  
  4636. #command GUI OFF => DC_Gui(.f.)
  4637.  
  4638. #command @ [<nSRow>, <nSCol>, <nERow>, <nECol>] DCACHOICE <array>     ;
  4639.            [TITLE <cTitle>]        ;
  4640.            [ELEMENT <nElement>]    ;
  4641.            [WINSTART <nWinStart>]  ;
  4642.            [OBJECT <oObject>]      ;
  4643.            [<lCenter:CENTER>]      ;
  4644.            [TO <output>]           ;
  4645.            [<lNoDestroy:NODESTROY>];
  4646.    =>                              ;
  4647.   [<output> := ] ;
  4648.     DC_AChoice(<nSRow>,<nSCol>,<nERow>,<nECol>,<array>,,,<nElement>, ;
  4649.                <nWinStart>,,{.t.,,<cTitle>,.t.,!<.lNoDestroy.>},,,,<oObject>,<.lCenter.>)
  4650.  
  4651. #command @ [<nTop>, <nLeft>] DCAPICK <array>                           ;
  4652.            [SIZE <nWidth>, <nHeight>]                                  ;
  4653.            [HEADER <acHeader>]                                         ;
  4654.            [COLWIDTH <anColWidth>]                                     ;
  4655.            [TITLE <cTitle>]                                            ;
  4656.            [TAG <anTag> [COLOR <aTagColor>] ]                          ;
  4657.            [HANDLER <bHandler>]                                        ;
  4658.            [START <nStart>]                                            ;
  4659.            [FONT <cFontName>]                                          ;
  4660.            [PARENT <oParent>]                                          ;
  4661.            [OWNER <oOwner>]                                            ;
  4662.            [<lCenter:CENTER>]                                          ;
  4663.            [<lMenu:MENU>]                                              ;
  4664.            [TO <output>]                                               ;
  4665.            [<lNoVScroll:NOVSCROLL>]                                    ;
  4666.            [<lNoHScroll:NOHSCROLL>]                                    ;
  4667.            [PRESENTATION <aPres>]                                      ;
  4668.    =>                                                                  ;
  4669.   [<output> := ]                                                       ;
  4670.     DC_APick ( <nTop>, <nLeft>, <nWidth>, <nHeight>, <array>,          ;
  4671.                <acHeader>, <anColWidth>, <cTitle>, <anTag>,            ;
  4672.                <aTagColor>, <bHandler>, <nStart>, <cFontName>,         ;
  4673.                <oParent>, <oOwner>, <.lCenter.>, <.lMenu.>,            ;
  4674.                <.lNoVScroll.>, <.lNoHScroll.>, <aPres> )
  4675.  
  4676.  
  4677. #xcommand DCFINDADDCOL                                                  ;
  4678.          [DATA <bData>]                                                 ;
  4679.          [ELEMENT <nElement>]                                           ;
  4680.          [HEADER <cHeader>]                                             ;
  4681.          [WIDTH <nWidth>]                                               ;
  4682.          [<t: TAG,ORDER,INDEX,SORT> <bncOrder>]                         ;
  4683.          [PROMPT <cPrompt>]                                             ;
  4684.          [PREFIX <bcPrefix>]                                            ;
  4685.          [SEEK <bSeek>]                                                 ;
  4686.          [TO <aArray>]                                                  ;
  4687.    =>                                                                   ;
  4688.          AAdd( <aArray>, { [<bData>] [<nElement>], <cHeader>, <nWidth>, ;
  4689.                <bncOrder>, <cPrompt>, <bcPrefix>, <bSeek> } )
  4690.  
  4691. #command @ [<nRow>,<nCol>] DCFINDBROWSE                                        ;
  4692.          FIELDS <aFields>                                                      ;
  4693.          [PARENT <oParent>]                                                    ;
  4694.          [SIZE <nWidth>, <nHeight>]                                            ;
  4695.          [TITLE <cTitle>]                                                      ;
  4696.          [<lAutoSeek:AUTOSEEK>]                                                ;
  4697.          [<lHeaders:HEADERS>]                                                  ;
  4698.          [<p: PIXEL>] [_PIXEL <_pixel>]                                        ;
  4699.          [DATA <acbData>]                                                      ;
  4700.          [POINTER <nPointer>]                                                  ;
  4701.          [EVAL <bEval>]                                                        ;
  4702.          [PRESENTATION <aPres>]                                                ;
  4703.          [<lNoHeaders:NOHEADERS>]                                              ;
  4704.          [<lNoHScroll:NOHSCROLL>]                                              ;
  4705.          [<lNoVScroll:NOVSCROLL>]                                              ;
  4706.          [<lExit:EXIT>]                                                        ;
  4707.          [SEEKDELAY <nDelay>]                                                  ;
  4708.          [TO <lStatus>]                                                        ;
  4709.          [FONT <cFont>]                                                        ;
  4710.          [<lb:LEFTBUTTONSORT>]                                                 ;
  4711.          [POPUP <bPopUp>]                                                      ;
  4712.          [SORT <aSort>]                                                        ;
  4713.          [GETLIST <aGetList>]                                                  ;
  4714.          [ITEMSELECTED <bItemSelected>]                                        ;
  4715.    =>                                                                          ;
  4716.          [<lStatus> := ] DC_FindBrowse( <aFields>, <oParent>, <nRow>, <nCol>,  ;
  4717.                         <nWidth>, <nHeight>, <cTitle>, <.lAutoSeek.>,          ;
  4718.                         !<.lNoHeaders.>, <.p.> [.OR. <_pixel>], <acbData>,     ;
  4719.                         <nPointer>, <bEval>, <aPres>, !<.lNoHScroll.>,         ;
  4720.                         !<.lNoVScroll.>, <.lExit.>, <nDelay>, <cFont>, <.lb.>, ;
  4721.                         <bPopUp>, <aSort>, [@<aGetList>], <bItemSelected> )
  4722.  
  4723.  
  4724. #command GETSETFUNCTION <cFunction> DEFAULT <xDefault> => ;
  4725.          FUNCTION <cFunction>( xValue ) ;
  4726.          ; STATIC sxValue := <xDefault> ;
  4727.          ; LOCAL xOldValue := sxValue ;
  4728.          ; IF Valtype(<xDefault>) == Valtype(xValue) ;
  4729.          ;   sxValue := xValue ;
  4730.          ; ENDIF ;
  4731.          ; RETURN xOldValue
  4732.  
  4733. #define _DCDIALOG_CH
  4734.  
  4735. #endif
  4736.  
  4737.  
  4738.  
  4739.