home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / drdialog / drdialog.rex < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-02-24  |  30.7 KB  |  1,036 lines
  1. !DIALOG ---------------------------------------
  2. Init:      The dialog is being initialized
  3.            after being opened
  4. Exit:      The dialog has been closed
  5. Timer:     A time interval set by the 'Timer'
  6.            function has expired
  7. Move:      The dialog has moved
  8. Size:      The dialog has changed size
  9. GetFocus:  The dialog has been given the
  10.            input focus
  11. LoseFocus: The dialog has lost the input
  12.            focus
  13. Any:       An event NOT handled by a control
  14.            specific or class handler has
  15.            occurred
  16. ?DIALOG ---------------------------------------
  17. rc       = ~Open(
  18.    [alias]
  19.    [, registeredName]
  20.    ["Modal" | "Nonmodal"] )
  21. result   = ~Frame()
  22. rc       = ~Close()
  23. rc       = ~Timer( [interval] )
  24. oldOwner = ~Owner( [newOwner] )
  25. oldTitle = ~Text( [newTitle] )
  26. oldStyle = ~Style( [newStyle] )
  27. oldFont  = ~Font( [newFont] )
  28. oldColor = ~Color(
  29.    [attribute [, newColor]] )
  30. id       = ~ID()
  31. result   = ~Position(
  32.    [x [y [dx [dy] ] ] ] )
  33.    [x [, y [, dx [, dy] ] ] ] )
  34. oldState = ~Visible( [newState] )
  35. oldState = ~Enabled( [newState] )
  36. CALL ~Hide ["Update" | "Noupdate"]
  37. CALL ~Show
  38. CALL ~Top
  39. CALL ~Bottom
  40. CALL ~Enable
  41. CALL ~Disable
  42. CALL ~Focus
  43. CALL ~IsDefault ["Object" | "Say"]
  44. CALL ~Controls [stem]
  45. CALL ~Classes [stem]
  46. !PUSHBUTTON -----------------------------------
  47. Click: The user has clicked the pushbutton
  48. Init:  The pushbutton is being initialized
  49.        when the dialog is opened
  50. Drop:  An item has been dropped on the
  51.        pushbutton
  52. ?PUSHBUTTON -----------------------------------
  53. oldState = ~$Select( [newState] )
  54. oldLabel = ~$Text( [newLabel] )
  55. oldStyle = ~$Style( [newStyle] )
  56. oldFont  = ~$Font( [newFont] )
  57. oldColor = ~Color(
  58.    [attribute [, newColor]] )
  59. id       = ~$ID()
  60. result   = ~$Position(
  61.    [x [y [dx [dy] ] ] ] )
  62.    [x [, y [, dx [, dy] ] ] ] )
  63. oldDragData = ~$Drag( [newDragData] )
  64. oldDropData = ~$Drop( [newDropData] )
  65. oldState    = ~$Visible( [newState] )
  66. oldState    = ~$Enabled( [newState] )
  67. CALL ~$Hide ["Update" | "Noupdate"]
  68. CALL ~$Show
  69. CALL ~Top
  70. CALL ~Bottom
  71. CALL ~$Enable
  72. CALL ~$Disable
  73. CALL ~$Focus
  74. CALL ~$IsDefault ["Object" | "Say"]
  75. CALL ~$Controls [stem]
  76. CALL ~$Classes [stem]
  77. !CHECKBOX -------------------------------------
  78. Click: The user has clicked the check box
  79. Init:  The check box is being initialized
  80.        when the dialog is opened
  81. Drop:  An item has been dropped on the
  82.        check box
  83. ?CHECKBOX -------------------------------------
  84. oldState = ~$Select( [newState] )
  85. oldLabel = ~$Text( [newLabel] )
  86. oldStyle = ~$Style( [newStyle] )
  87. oldFont  = ~$Font( [newFont] )
  88. oldColor = ~Color(
  89.    [attribute [, newColor]] )
  90. id       = ~$ID()
  91. result   = ~$Position(
  92.    [x [y [dx [dy] ] ] ] )
  93.    [x [, y [, dx [, dy] ] ] ] )
  94. oldDragData = ~$Drag( [newDragData] )
  95. oldDropData = ~$Drop( [newDropData] )
  96. oldState    = ~$Visible( [newState] )
  97. oldState    = ~$Enabled( [newState] )
  98. CALL ~$Hide ["Update" | "Noupdate"]
  99. CALL ~$Show
  100. CALL ~Top
  101. CALL ~Bottom
  102. CALL ~$Enable
  103. CALL ~$Disable
  104. CALL ~$Focus
  105. CALL ~$IsDefault ["Object" | "Say"]
  106. CALL ~$Controls [stem]
  107. CALL ~$Classes [stem]
  108. !RADIOBUTTON ----------------------------------
  109. Click: The user has clicked the radio button
  110. Init:  The radio button is being initialized
  111.        when the dialog is opened
  112. Drop:  An item has been dropped on the
  113.        radio button
  114. ?RADIOBUTTON ----------------------------------
  115. oldState = ~$Select( [newState] )
  116. oldLabel = ~$Text( [newLabel] )
  117. oldStyle = ~$Style( [newStyle] )
  118. oldFont  = ~$Font( [newFont] )
  119. oldColor = ~Color(
  120.    [attribute [, newColor]] )
  121. id       = ~$ID()
  122. result   = ~$Position(
  123.    [x [y [dx [dy] ] ] ] )
  124.    [x [, y [, dx [, dy] ] ] ] )
  125. oldDragData = ~$Drag( [newDragData] )
  126. oldDropData = ~$Drop( [newDropData] )
  127. oldState    = ~$Visible( [newState] )
  128. oldState    = ~$Enabled( [newState] )
  129. CALL ~$Hide ["Update" | "Noupdate"]
  130. CALL ~$Show
  131. CALL ~Top
  132. CALL ~Bottom
  133. CALL ~$Enable
  134. CALL ~$Disable
  135. CALL ~$Focus
  136. CALL ~$IsDefault ["Object" | "Say"]
  137. CALL ~$Controls [stem]
  138. CALL ~$Classes [stem]
  139. !TEXTBOX --------------------------------------
  140. Init: The text control is being initialized
  141.       when the dialog is opened
  142. Drop: An item has been dropped on the
  143.       text control
  144. ?TEXTBOX --------------------------------------
  145. oldText  = ~$Text( [newText] )
  146. oldStyle = ~$Style( [newStyle] )
  147. oldFont  = ~$Font( [newFont] )
  148. oldColor = ~Color(
  149.    [attribute [, newColor]] )
  150. id       = ~$ID()
  151. result   = ~$Position(
  152.    [x [y [dx [dy] ] ] ] )
  153.    [x [, y [, dx [, dy] ] ] ] )
  154. oldDragData = ~$Drag( [newDragData] )
  155. oldDropData = ~$Drop( [newDropData] )
  156. oldState    = ~$Visible( [newState] )
  157. oldState    = ~$Enabled( [newState] )
  158. CALL ~$Hide ["Update" | "Noupdate"]
  159. CALL ~$Show
  160. CALL ~Top
  161. CALL ~Bottom
  162. CALL ~$Enable
  163. CALL ~$Disable
  164. CALL ~$Focus
  165. CALL ~$IsDefault ["Object" | "Say"]
  166. CALL ~$Controls [stem]
  167. CALL ~$Classes [stem]
  168. !LISTBOX --------------------------------------
  169. Enter:     The user has pressed 'Enter' or
  170.            double-clicked on a list box entry
  171. Select:    The user has selected a list box
  172.            entry
  173. Init:      The list box control is being
  174.            initialized when the dialog is
  175.            opened
  176. Scroll:    The list box control has scrolled
  177.            horizontally
  178. GetFocus:  The list box control has been given
  179.            the input focus
  180. LoseFocus: The list box control has lost the
  181.            input focus
  182. Drop:      An item has been dropped on the
  183.            list box control
  184. ?LISTBOX --------------------------------------
  185. result = ~$Add(
  186.    item
  187.    [, "Ascending" | "Descending" | "Last" | n]
  188.    [, data] )
  189. rc     = ~$Delete( [index] )
  190. result = ~$Item(
  191.    [index [, "Value" | "Data" ] ] )
  192. oldIndex = ~$Select(
  193.    [newIndex
  194.    [, "Select" | "Unselect" | "Next" | "Top" ] ] )
  195. oldStyle = ~$Style( [newStyle] )
  196. oldFont  = ~$Font( [newFont] )
  197. oldColor = ~Color(
  198.    [attribute [, newColor]] )
  199. id       = ~$ID()
  200. result   = ~$Position(
  201.    [x [y [dx [dy] ] ] ] )
  202.    [x [, y [, dx [, dy] ] ] ] )
  203. oldDragData = ~$Drag( [newDragData] )
  204. oldDropData = ~$Drop( [newDropData] )
  205. oldState    = ~$Visible( [newState] )
  206. oldState    = ~$Enabled( [newState] )
  207. CALL ~$Hide ["Update" | "Noupdate"]
  208. CALL ~$Show
  209. CALL ~Top
  210. CALL ~Bottom
  211. CALL ~$Enable
  212. CALL ~$Disable
  213. CALL ~$Focus
  214. CALL ~$IsDefault ["Object" | "Say"]
  215. CALL ~$Controls [stem]
  216. CALL ~$Classes [stem]
  217. !ENTRYFIELD -----------------------------------
  218. Changed:   The edit control contents have
  219.            changed
  220. Init:      The edit control is being
  221.            initialized when the dialog is
  222.            opened
  223. Scroll:    The edit control has scrolled
  224.            horizontally
  225. GetFocus:  The edit control has been given the
  226.            input focus
  227. LoseFocus: The edit control has lost the input
  228.            focus
  229. Drop:      An item has been dropped on the
  230.            edit control
  231. Overflow:  The edit control has overflowed
  232. ?ENTRYFIELD -----------------------------------
  233. result = ~$Select(
  234.    [left [, length] ] )
  235.    [left length] )
  236. result   = ~$Range( length )
  237. oldText  = ~$Text( [newText] )
  238. oldStyle = ~$Style( [newStyle] )
  239. oldFont  = ~$Font( [newFont] )
  240. oldColor = ~Color(
  241.    [attribute [, newColor]] )
  242. id       = ~$ID()
  243. result   = ~$Position(
  244.    [x [y [dx [dy] ] ] ] )
  245.    [x [, y [, dx [, dy] ] ] ] )
  246. oldDragData = ~$Drag( [newDragData] )
  247. oldDropData = ~$Drop( [newDropData] )
  248. oldState    = ~$Visible( [newState] )
  249. oldState    = ~$Enabled( [newState] )
  250. CALL ~$Hide ["Update" | "Noupdate"]
  251. CALL ~$Show
  252. CALL ~Top
  253. CALL ~Bottom
  254. CALL ~$Enable
  255. CALL ~$Disable
  256. CALL ~$Focus
  257. CALL ~$IsDefault ["Object" | "Say"]
  258. CALL ~$Controls [stem]
  259. CALL ~$Classes [stem]
  260. !COMBOBOX -------------------------------------
  261. Enter:       The user has pressed 'Enter' or
  262.              double-clicked on a combo box
  263.              entry
  264. Select:      The user has selected a combo box
  265.              entry
  266. Init:        The combo box control is being
  267.              initialized when the dialog is
  268.              opened
  269. Changed:     The entry field component contents
  270.              have been changed
  271. ScrollEntry: The entry field component has
  272.              scrolled horizontally
  273. ScrollList:  The list box component has been
  274.              scrolled
  275. ShowList:    The list box component has been
  276.              displayed (i.e. has 'dropped down')
  277. Drop:        An item has been dropped on the
  278.              combo box control
  279. ?COMBOBOX -------------------------------------
  280. result = ~$Add(
  281.    item
  282.    [, "Ascending" | "Descending" | "Last" | n]
  283.    [, data] )
  284. rc     = ~$Delete( [index] )
  285. result = ~$Item(
  286.    [index [, "Value" | "Data" ] ] )
  287. oldIndex = ~$Select(
  288.    [newIndex
  289.    [, "Select" | "Unselect" | "Next" | "Top" ] ] )
  290. oldStyle = ~$Style( [newStyle] )
  291. oldFont  = ~$Font( [newFont] )
  292. oldColor = ~Color(
  293.    [attribute [, newColor]] )
  294. id       = ~$ID()
  295. result   = ~$Position(
  296.    [x [y [dx [dy] ] ] ] )
  297.    [x [, y [, dx [, dy] ] ] ] )
  298. oldDragData = ~$Drag( [newDragData] )
  299. oldDropData = ~$Drop( [newDropData] )
  300. oldState    = ~$Visible( [newState] )
  301. oldState    = ~$Enabled( [newState] )
  302. CALL ~$Hide ["Update" | "Noupdate"]
  303. CALL ~$Show
  304. CALL ~Top
  305. CALL ~Bottom
  306. CALL ~$Enable
  307. CALL ~$Disable
  308. CALL ~$Focus
  309. CALL ~$IsDefault ["Object" | "Say"]
  310. CALL ~$Controls [stem]
  311. CALL ~$Classes [stem]
  312. !GROUPBOX -------------------------------------
  313. Init: The group box is being initialized
  314.       when the dialog is opened
  315. Drop: An item has been dropped on the
  316.       group box
  317. ?GROUPBOX -------------------------------------
  318. oldLabel = ~$Text( [newLabel] )
  319. oldStyle = ~$Style( [newStyle] )
  320. oldFont  = ~$Font( [newFont] )
  321. oldColor = ~Color(
  322.    [attribute [, newColor]] )
  323. id       = ~$ID()
  324. result   = ~$Position(
  325.    [x [y [dx [dy] ] ] ] )
  326.    [x [, y [, dx [, dy] ] ] ] )
  327. oldDragData = ~$Drag( [newDragData] )
  328. oldDropData = ~$Drop( [newDropData] )
  329. oldState    = ~$Visible( [newState] )
  330. oldState    = ~$Enabled( [newState] )
  331. CALL ~$Hide ["Update" | "Noupdate"]
  332. CALL ~$Show
  333. CALL ~Top
  334. CALL ~Bottom
  335. CALL ~$Enable
  336. CALL ~$Disable
  337. CALL ~$Focus
  338. CALL ~$IsDefault ["Object" | "Say"]
  339. CALL ~$Controls [stem]
  340. CALL ~$Classes [stem]
  341. !BITMAP ---------------------------------------
  342. Init: The bitmap control is being initialized
  343.       when the dialog is opened
  344. Drop: An item has been dropped on the bitmap
  345.       control
  346. ?BITMAP ---------------------------------------
  347. oldStyle = ~$Style( [newStyle] )
  348. oldFont  = ~$Font( [newFont] )
  349. oldColor = ~Color(
  350.    [attribute [, newColor]] )
  351. id       = ~$ID()
  352. result   = ~$Position(
  353.    [x [y [dx [dy] ] ] ] )
  354.    [x [, y [, dx [, dy] ] ] ] )
  355. oldDragData = ~$Drag( [newDragData] )
  356. oldDropData = ~$Drop( [newDropData] )
  357. oldState    = ~$Visible( [newState] )
  358. oldState    = ~$Enabled( [newState] )
  359. CALL ~$Hide ["Update" | "Noupdate"]
  360. CALL ~$Show
  361. CALL ~Top
  362. CALL ~Bottom
  363. CALL ~$Enable
  364. CALL ~$Disable
  365. CALL ~$Focus
  366. CALL ~$IsDefault ["Object" | "Say"]
  367. CALL ~$Controls [stem]
  368. CALL ~$Classes [stem]
  369. !RECTANGLE ------------------------------------
  370. Init: The rectangle control is being
  371.       initialized when the dialog is opened
  372. Drop: An item has been dropped on the
  373.       rectangle control
  374. ?RECTANGLE ------------------------------------
  375. oldStyle = ~$Style( [newStyle] )
  376. oldFont  = ~$Font( [newFont] )
  377. oldColor = ~Color(
  378.    [attribute [, newColor]] )
  379. id       = ~$ID()
  380. result   = ~$Position(
  381.    [x [y [dx [dy] ] ] ] )
  382.    [x [, y [, dx [, dy] ] ] ] )
  383. oldDragData = ~$Drag( [newDragData] )
  384. oldDropData = ~$Drop( [newDropData] )
  385. oldState    = ~$Visible( [newState] )
  386. oldState    = ~$Enabled( [newState] )
  387. CALL ~$Hide ["Update" | "Noupdate"]
  388. CALL ~$Show
  389. CALL ~Top
  390. CALL ~Bottom
  391. CALL ~$Enable
  392. CALL ~$Disable
  393. CALL ~$Focus
  394. CALL ~$IsDefault ["Object" | "Say"]
  395. CALL ~$Controls [stem]
  396. CALL ~$Classes [stem]
  397. !FRAME ----------------------------------------
  398. Init: The frame control is being initialized
  399.       when the dialog is opened
  400. Drop: An item has been dropped on the
  401.       frame control
  402. ?FRAME ----------------------------------------
  403. oldStyle = ~$Style( [newStyle] )
  404. oldFont  = ~$Font( [newFont] )
  405. oldColor = ~Color(
  406.    [attribute [, newColor]] )
  407. id       = ~$ID()
  408. result   = ~$Position(
  409.    [x [y [dx [dy] ] ] ] )
  410.    [x [, y [, dx [, dy] ] ] ] )
  411. oldDragData = ~$Drag( [newDragData] )
  412. oldDropData = ~$Drop( [newDropData] )
  413. oldState    = ~$Visible( [newState] )
  414. oldState    = ~$Enabled( [newState] )
  415. CALL ~$Hide ["Update" | "Noupdate"]
  416. CALL ~$Show
  417. CALL ~Top
  418. CALL ~Bottom
  419. CALL ~$Enable
  420. CALL ~$Disable
  421. CALL ~$Focus
  422. CALL ~$IsDefault ["Object" | "Say"]
  423. CALL ~$Controls [stem]
  424. CALL ~$Classes [stem]
  425. !NOTEBOOK -------------------------------------
  426. Select: A notebook page has been selected
  427. Size:   The notebook control has been resized
  428. Delete: A notebook page has been deleted
  429. Init:   The notebook control is being
  430.         initialized when the dialog is opened
  431. Help:   The notebook control has been requested
  432.         to display help
  433. Drop:   An item has been dropped on the
  434.         notebook control
  435. ?NOTEBOOK -------------------------------------
  436. result = ~$Add(
  437.    [page]
  438.    [, "First" | "Last" | "Next" | "Previous"]
  439.    [, dialog] [, tab] [, status] [, data] )
  440. rc      = ~$Delete( [page] )
  441. oldPage = ~$Select( [newPage] )
  442. result  = ~$Item(
  443.    [page ]
  444.    [, "Tab" | "Status" | "Data"]
  445.    [, value] ] )
  446. oldStyle = ~$Style( [newStyle] )
  447. oldFont  = ~$Font( [newFont] )
  448. oldColor = ~Color(
  449.    [attribute [, newColor]] )
  450. id       = ~$ID()
  451. result   = ~$Position(
  452.    [x [y [dx [dy] ] ] ] )
  453.    [x [, y [, dx [, dy] ] ] ] )
  454. oldDragData = ~$Drag( [newDragData] )
  455. oldDropData = ~$Drop( [newDropData] )
  456. oldState    = ~$Visible( [newState] )
  457. oldState    = ~$Enabled( [newState] )
  458. CALL ~$Hide ["Update" | "Noupdate"]
  459. CALL ~$Show
  460. CALL ~Top
  461. CALL ~Bottom
  462. CALL ~$Enable
  463. CALL ~$Disable
  464. CALL ~$Focus
  465. CALL ~$IsDefault ["Object" | "Say"]
  466. CALL ~$Controls [stem]
  467. CALL ~$Classes [stem]
  468. !SLIDER ---------------------------------------
  469. Changed:   The slider arm has been released
  470. Changing:  The slider arm position has changed
  471. GetFocus:  The slider control has been given
  472.            the input focus
  473. LoseFocus: The slider control has lost the
  474.            input focus
  475. Init:      The slider control is being
  476.            initialized when the dialog is
  477.            opened
  478. Drop:      An item has been dropped on the
  479.            slider control
  480. ?SLIDER ---------------------------------------
  481. result   = ~$Range( ticks1 [, spacing1]
  482.    [ticks2 [, spacing2]] )
  483. oldValue = ~$Item(
  484.    [tick]
  485.    [, "Value" | "Size"]
  486.    [, newValue] )
  487. oldTick  = ~$Select( [newTick] )
  488. oldStyle = ~$Style( [newStyle] )
  489. oldFont  = ~$Font( [newFont] )
  490. oldColor = ~Color(
  491.    [attribute [, newColor]] )
  492. id       = ~$ID()
  493. result   = ~$Position(
  494.    [x [y [dx [dy] ] ] ] )
  495.    [x [, y [, dx [, dy] ] ] ] )
  496. oldDragData = ~$Drag( [newDragData] )
  497. oldDropData = ~$Drop( [newDropData] )
  498. oldState    = ~$Visible( [newState] )
  499. oldState    = ~$Enabled( [newState] )
  500. CALL ~$Hide ["Update" | "Noupdate"]
  501. CALL ~$Show
  502. CALL ~Top
  503. CALL ~Bottom
  504. CALL ~$Enable
  505. CALL ~$Disable
  506. CALL ~$Focus
  507. CALL ~$IsDefault ["Object" | "Say"]
  508. CALL ~$Controls [stem]
  509. CALL ~$Classes [stem]
  510. !VSCROLLBAR -----------------------------------
  511. Changed:  The user has released the scroll bar
  512.           slider
  513. Changing: The user has moved the scroll bar
  514.           slider
  515. LineUp:   The user has clicked on the scroll
  516.           bar up arrow
  517. LineDown: The user has clicked on the scroll
  518.           bar down arrow
  519. PageUp:   The user has clicked on the area
  520.           above the scroll bar slider
  521. PageDown: The user has clicked on the area
  522.           below the scroll bar slider
  523. Done:     The user has finished scrolling (but
  524.           not using the scroll bar slider)
  525. Init:     The scroll bar control is being
  526.           initialized when the dialog is opened
  527. Drop:     An item has been dropped on the
  528.           scroll bar
  529. ?VSCROLLBAR -----------------------------------
  530. result   = ~$Range(
  531.    first, last [, visible] )
  532. oldPos   = ~$Select( [newPos] )
  533. oldStyle = ~$Style( [newStyle] )
  534. oldFont  = ~$Font( [newFont] )
  535. oldColor = ~Color(
  536.    [attribute [, newColor]] )
  537. id       = ~$ID()
  538. result   = ~$Position(
  539.    [x [y [dx [dy] ] ] ] )
  540.    [x [, y [, dx [, dy] ] ] ] )
  541. oldDragData = ~$Drag( [newDragData] )
  542. oldDropData = ~$Drop( [newDropData] )
  543. oldState    = ~$Visible( [newState] )
  544. oldState    = ~$Enabled( [newState] )
  545. CALL ~$Hide ["Update" | "Noupdate"]
  546. CALL ~$Show
  547. CALL ~Top
  548. CALL ~Bottom
  549. CALL ~$Enable
  550. CALL ~$Disable
  551. CALL ~$Focus
  552. CALL ~$IsDefault ["Object" | "Say"]
  553. CALL ~$Controls [stem]
  554. CALL ~$Classes [stem]
  555. !HSCROLLBAR -----------------------------------
  556. Changed:   The user has released the scroll bar
  557.            slider
  558. Changing:  The user has moved the scroll bar
  559.            slider
  560. LineLeft:  The user has clicked on the scroll
  561.            bar left arrow
  562. LineRight: The user has clicked on the scroll
  563.            bar right arrow
  564. PageLeft:  The user has clicked on the area to
  565.            the left of the scroll bar slider
  566. PageRight: The user has clicked on the area to
  567.            the right of the scroll bar slider
  568. Done:      The user has finished scrolling (but
  569.            not using the scroll bar slider)
  570. Init:      The scroll bar control is being
  571.            initialized when the dialog is
  572.            opened
  573. Drop:      An item has been dropped on the
  574.            scroll bar
  575. ?HSCROLLBAR -----------------------------------
  576. result   = ~$Range(
  577.    first, last [, visible] )
  578. oldPos   = ~$Select( [newPos] )
  579. oldStyle = ~$Style( [newStyle] )
  580. oldFont  = ~$Font( [newFont] )
  581. oldColor = ~Color(
  582.    [attribute [, newColor]] )
  583. id       = ~$ID()
  584. result   = ~$Position(
  585.    [x [y [dx [dy] ] ] ] )
  586.    [x [, y [, dx [, dy] ] ] ] )
  587. oldDragData = ~$Drag( [newDragData] )
  588. oldDropData = ~$Drop( [newDropData] )
  589. oldState    = ~$Visible( [newState] )
  590. oldState    = ~$Enabled( [newState] )
  591. CALL ~$Hide ["Update" | "Noupdate"]
  592. CALL ~$Show
  593. CALL ~Top
  594. CALL ~Bottom
  595. CALL ~$Enable
  596. CALL ~$Disable
  597. CALL ~$Focus
  598. CALL ~$IsDefault ["Object" | "Say"]
  599. CALL ~$Controls [stem]
  600. CALL ~$Classes [stem]
  601. !CANVAS ---------------------------------------
  602. Init: The canvas control is being initialized
  603.       when the dialog is opened
  604. Drop: An item has been dropped on the canvas
  605.       control
  606. ?CANVAS ---------------------------------------
  607. oldLabel = ~$Text( [newLabel] )
  608. oldStyle = ~$Style( [newStyle] )
  609. oldFont  = ~$Font( [newFont] )
  610. oldColor = ~Color(
  611.    [attribute [, newColor]] )
  612. id       = ~$ID()
  613. result   = ~$Position(
  614.    [x [y [dx [dy] ] ] ] )
  615.    [x [, y [, dx [, dy] ] ] ] )
  616. oldDragData = ~$Drag( [newDragData] )
  617. oldDropData = ~$Drop( [newDropData] )
  618. oldState    = ~$Visible( [newState] )
  619. oldState    = ~$Enabled( [newState] )
  620. CALL ~$Hide ["Update" | "Noupdate"]
  621. CALL ~$Show
  622. CALL ~Top
  623. CALL ~Bottom
  624. CALL ~$Enable
  625. CALL ~$Disable
  626. CALL ~$Focus
  627. CALL ~$IsDefault ["Object" | "Say"]
  628. CALL ~$Controls [stem]
  629. CALL ~$Classes [stem]
  630. !PAINT ----------------------------------------
  631. Init: The paint control is being initialized
  632.       when the dialog is opened
  633. Drop: An item has been dropped on the paint
  634.       control
  635. ?PAINT ----------------------------------------
  636. oldStyle = ~$Style( [newStyle] )
  637. oldFont  = ~$Font( [newFont] )
  638. oldColor = ~Color(
  639.    [attribute [, newColor]] )
  640. id       = ~$ID()
  641. result   = ~$Position(
  642.    [x [y [dx [dy] ] ] ] )
  643.    [x [, y [, dx [, dy] ] ] ] )
  644. oldDragData = ~$Drag( [newDragData] )
  645. oldDropData = ~$Drop( [newDropData] )
  646. oldState    = ~$Visible( [newState] )
  647. oldState    = ~$Enabled( [newState] )
  648. CALL ~$Hide ["Update" | "Noupdate"]
  649. CALL ~$Show
  650. CALL ~Top
  651. CALL ~Bottom
  652. CALL ~$Enable
  653. CALL ~$Disable
  654. CALL ~$Focus
  655. CALL ~$IsDefault ["Object" | "Say"]
  656. CALL ~$Controls [stem]
  657. CALL ~$Classes [stem]
  658. !ICONBUTTON -----------------------------------
  659. Click: The user has clicked the bitmap button
  660. Init:  The bitmap button is being initialized
  661.        when the dialog is opened
  662. Drop:  An item has been dropped on the
  663.        bitmap button
  664. ?ICONBUTTON -----------------------------------
  665. oldIcon  = ~$Text( [newIcon] )
  666. oldStyle = ~$Style( [newStyle] )
  667. oldFont  = ~$Font( [newFont] )
  668. oldColor = ~Color(
  669.    [attribute [, newColor]] )
  670. id       = ~$ID()
  671. result   = ~$Position(
  672.    [x [y [dx [dy] ] ] ] )
  673.    [x [, y [, dx [, dy] ] ] ] )
  674. oldDragData = ~$Drag( [newDragData] )
  675. oldDropData = ~$Drop( [newDropData] )
  676. oldState    = ~$Visible( [newState] )
  677. oldState    = ~$Enabled( [newState] )
  678. CALL ~$Hide ["Update" | "Noupdate"]
  679. CALL ~$Show
  680. CALL ~Top
  681. CALL ~Bottom
  682. CALL ~$Enable
  683. CALL ~$Disable
  684. CALL ~$Focus
  685. CALL ~$IsDefault ["Object" | "Say"]
  686. CALL ~$Controls [stem]
  687. CALL ~$Classes [stem]
  688. !BAGBUTTON ------------------------------------
  689. Click: The user has clicked the bagbutton
  690. Init:  The bagbutton is being initialized
  691.        when the dialog is opened
  692. Drop:  An item has been dropped on the
  693.        bagbutton
  694. ?BAGBUTTON ------------------------------------
  695. oldState = ~$Select( [newState] )
  696. oldLabel = ~$Text( [newLabel] )
  697. oldStyle = ~$Style( [newStyle] )
  698. oldFont  = ~$Font( [newFont] )
  699. oldColor = ~Color(
  700.    [attribute [, newColor]] )
  701. id       = ~$ID()
  702. result   = ~$Position(
  703.    [x [y [dx [dy] ] ] ] )
  704.    [x [, y [, dx [, dy] ] ] ] )
  705. oldDragData = ~$Drag( [newDragData] )
  706. oldDropData = ~$Drop( [newDropData] )
  707. oldState    = ~$Visible( [newState] )
  708. oldState    = ~$Enabled( [newState] )
  709. CALL ~$Hide ["Update" | "Noupdate"]
  710. CALL ~$Show
  711. CALL ~Top
  712. CALL ~Bottom
  713. CALL ~$Enable
  714. CALL ~$Disable
  715. CALL ~$Focus
  716. CALL ~$IsDefault ["Object" | "Say"]
  717. CALL ~$Controls [stem]
  718. CALL ~$Classes [stem]
  719. !MARQUEE --------------------------------------
  720. Init: The marquee control is being initialized
  721.       when the dialog is opened
  722. Drop: An item has been dropped on the marquee
  723.       control
  724. ?MARQUEE --------------------------------------
  725. oldText  = ~$Text( [newText] )
  726. oldStyle = ~$Style( [newStyle] )
  727. oldFont  = ~$Font( [newFont] )
  728. oldColor = ~Color(
  729.    [attribute [, newColor]] )
  730. id       = ~$ID()
  731. result   = ~$Position(
  732.    [x [y [dx [dy] ] ] ] )
  733.    [x [, y [, dx [, dy] ] ] ] )
  734. oldDragData = ~$Drag( [newDragData] )
  735. oldDropData = ~$Drop( [newDropData] )
  736. oldState    = ~$Visible( [newState] )
  737. oldState    = ~$Enabled( [newState] )
  738. CALL ~$Hide ["Update" | "Noupdate"]
  739. CALL ~$Show
  740. CALL ~Top
  741. CALL ~Bottom
  742. CALL ~$Enable
  743. CALL ~$Disable
  744. CALL ~$Focus
  745. CALL ~$IsDefault ["Object" | "Say"]
  746. CALL ~$Controls [stem]
  747. CALL ~$Classes [stem]
  748. !TURTLE ---------------------------------------
  749. Init:          The turtle control is being
  750.                initialized when the dialog is
  751.                opened
  752. MouseMove:     The mouse has moved over the
  753.                turtle control
  754. Button1Down:   The user has pressed button 1 over
  755.                the turtle control
  756. Button1Up:     The user has released button 1
  757. Button1DblClk: The user has double-clicked
  758.                button 1 over the turtle control
  759. Button2Down:   The user has pressed button 2 over
  760.                the turtle control
  761. Button2Up:     The user has released button 2
  762. Button2DblClk: The user has double-clicked
  763.                button 2 over the turtle control
  764. Drop:          An item has been dropped on the
  765.                turtle control
  766. ?TURTLE ---------------------------------------
  767. oldText  = ~$Text( [newText] )
  768. oldStyle = ~$Style( [newStyle] )
  769. oldFont  = ~$Font( [newFont] )
  770. oldColor = ~Color(
  771.    [attribute [, newColor]] )
  772. id       = ~$ID()
  773. result   = ~$Position(
  774.    [x [y [dx [dy] ] ] ] )
  775.    [x [, y [, dx [, dy] ] ] ] )
  776. oldDragData = ~$Drag( [newDragData] )
  777. oldDropData = ~$Drop( [newDropData] )
  778. oldState    = ~$Visible( [newState] )
  779. oldState    = ~$Enabled( [newState] )
  780. CALL ~$Hide ["Update" | "Noupdate"]
  781. CALL ~$Show
  782. CALL ~Top
  783. CALL ~Bottom
  784. CALL ~$Enable
  785. CALL ~$Disable
  786. CALL ~$Focus
  787. CALL ~$IsDefault ["Object" | "Say"]
  788. CALL ~$Controls [stem]
  789. CALL ~$Classes [stem]
  790. !BILLBOARD ------------------------------------
  791. Init: The billboard control is being
  792.       initialized when the dialog is opened
  793. Drop: An item has been dropped on the
  794.       billboard control
  795. ?BILLBOARD ------------------------------------
  796. oldIcon  = ~$Text( [newIcon] )
  797. oldStyle = ~$Style( [newStyle] )
  798. oldFont  = ~$Font( [newFont] )
  799. oldColor = ~Color(
  800.    [attribute [, newColor]] )
  801. id       = ~$ID()
  802. result   = ~$Position(
  803.    [x [y [dx [dy] ] ] ] )
  804.    [x [, y [, dx [, dy] ] ] ] )
  805. oldDragData = ~$Drag( [newDragData] )
  806. oldDropData = ~$Drop( [newDropData] )
  807. oldState    = ~$Visible( [newState] )
  808. oldState    = ~$Enabled( [newState] )
  809. CALL ~$Hide ["Update" | "Noupdate"]
  810. CALL ~$Show
  811. CALL ~Top
  812. CALL ~Bottom
  813. CALL ~$Enable
  814. CALL ~$Disable
  815. CALL ~$Focus
  816. CALL ~$IsDefault ["Object" | "Say"]
  817. CALL ~$Controls [stem]
  818. CALL ~$Classes [stem]
  819. !MLE ------------------------------------------
  820. Changed:   The edit control contents have
  821.            changed
  822. Init:      The edit control is being
  823.            initialized when the dialog is
  824.            opened
  825. GetFocus:  The edit control has been given the
  826.            input focus
  827. LoseFocus: The edit control has lost the input
  828.            focus
  829. Drop:      An item has been dropped on the
  830.            edit control
  831. ?MLE ------------------------------------------
  832. oldText  = ~$Text( [newText] )
  833. oldStyle = ~$Style( [newStyle] )
  834. oldFont  = ~$Font( [newFont] )
  835. oldColor = ~Color(
  836.    [attribute [, newColor]] )
  837. id       = ~$ID()
  838. result   = ~$Position(
  839.    [x [y [dx [dy] ] ] ] )
  840.    [x [, y [, dx [, dy] ] ] ] )
  841. oldDragData = ~$Drag( [newDragData] )
  842. oldDropData = ~$Drop( [newDropData] )
  843. oldState    = ~$Visible( [newState] )
  844. oldState    = ~$Enabled( [newState] )
  845. CALL ~$Hide ["Update" | "Noupdate"]
  846. CALL ~$Show
  847. CALL ~Top
  848. CALL ~Bottom
  849. CALL ~$Enable
  850. CALL ~$Disable
  851. CALL ~$Focus
  852. CALL ~$IsDefault ["Object" | "Say"]
  853. CALL ~$Controls [stem]
  854. CALL ~$Classes [stem]
  855. !CONTAINER ------------------------------------
  856. Changed:   A container control item's
  857.            contents have changed
  858. Enter:     The user has pressed 'Enter' or
  859.            double-clicked on a container
  860.            item
  861. Select:    A container item has been selected
  862. Init:      The container control is being
  863.            initialized when the dialog is
  864.            opened
  865. Scroll:    The container control has scrolled
  866. GetFocus:  The container control has been
  867.            given the input focus
  868. LoseFocus: The container control has lost
  869.            the input focus
  870. Drop:      An item has been dropped on the
  871.            container control
  872. ?CONTAINER ------------------------------------
  873. item = ~$Add( label [, bitmap]
  874.    [, "First" | "Last" | "Next"] [, item]
  875.    [, data] )
  876. rc = ~$Delete( [item] )
  877. result = ~$Item( [item
  878.    [, "Value" | "Bitmap" | "Data" | column ]
  879.    [, value]] )
  880. result = ~$Select( [item
  881.    [, "[+/-]Select" | "[+/-]Mark" |
  882.       "Cursor"      | "Next"] ] )
  883. oldView  = ~$View(
  884.    ["Bitmap"  | "Name"   | "Flowedname" |
  885.     "Text"    | "Column" | "Detail"     |
  886.     "Outline" | "Hierarchy"]
  887.    [, ["<|>_;"]title]
  888.    [, cxBitmap, cyBitmap]
  889.    [, expandBitmap, collapseBitmap] )
  890. CALL ~$SetStem( [stem]
  891.    [, "[+/-]Select" | "[+/-]Mark" |
  892.       "Format" | 0 | item ] )
  893. CALL ~$GetStem( [stem]
  894.    [, "Select" | "Mark" | "Cursor" | 0 |
  895.       item ] )
  896. oldStyle = ~$Style( [newStyle] )
  897. oldFont  = ~$Font( [newFont] )
  898. oldColor = ~Color(
  899.    [attribute [, newColor]] )
  900. id       = ~$ID()
  901. result   = ~$Position(
  902.    [x [y [dx [dy] ] ] ] )
  903.    [x [, y [, dx [, dy] ] ] ] )
  904. oldDragData = ~$Drag(
  905.    item [, newDragData] )
  906. oldDropData = ~$Drop(
  907.    item [, newDropData] )
  908. oldState = ~$Visible( [newState] )
  909. oldState = ~$Enabled( [newState] )
  910. CALL ~$Hide ["Update" | "Noupdate"]
  911. CALL ~$Show
  912. CALL ~Top
  913. CALL ~Bottom
  914. CALL ~$Enable
  915. CALL ~$Disable
  916. CALL ~$Focus
  917. CALL ~$IsDefault ["Object" | "Say"]
  918. CALL ~$Controls [stem]
  919. CALL ~$Classes [stem]
  920. !VALUESET -------------------------------------
  921. Enter:     The user has pressed 'Enter' or
  922.            double-clicked on a value set item
  923. Select:    The user has selected a value set
  924.            item
  925. Init:      The value set control is being
  926.            initialized when the dialog is
  927.            opened
  928. GetFocus:  The value set control has been given
  929.            the input focus
  930. LoseFocus: The value set control has lost the
  931.            input focus
  932. Drop:      An item has been dropped on the
  933.            value set control
  934. ?VALUESET -------------------------------------
  935. result   = ~$Range( rows, columns )
  936. oldValue = ~$Item(
  937.    [row, column]
  938.    [, newValue] )
  939. rowCol   = ~$Select( [row, column] )
  940. oldStyle = ~$Style( [newStyle] )
  941. oldFont  = ~$Font( [newFont] )
  942. oldColor = ~Color(
  943.    [attribute [, newColor]] )
  944. id       = ~$ID()
  945. result   = ~$Position(
  946.    [x [y [dx [dy] ] ] ] )
  947.    [x [, y [, dx [, dy] ] ] ] )
  948. oldDragData = ~$Drag( [newDragData] )
  949. oldDropData = ~$Drop( [newDropData] )
  950. oldState    = ~$Visible( [newState] )
  951. oldState    = ~$Enabled( [newState] )
  952. CALL ~$Hide ["Update" | "Noupdate"]
  953. CALL ~$Show
  954. CALL ~Top
  955. CALL ~Bottom
  956. CALL ~$Enable
  957. CALL ~$Disable
  958. CALL ~$Focus
  959. CALL ~$IsDefault ["Object" | "Say"]
  960. CALL ~$Controls [stem]
  961. CALL ~$Classes [stem]
  962. !SPINBUTTON -----------------------------------
  963. Changing:  The spin field contents have changed
  964. LineUp:    The up arrow has been pressed or
  965.            clicked
  966. LineDown:  The down arrow has been pressed or
  967.            clicked
  968. GetFocus:  The spin button control has been
  969.            given the input focus
  970. LoseFocus: The spin button control has lost the
  971.            input focus
  972. Done:      The user has released the select
  973.            button or one of the arrow buttons
  974. Init:      The spin button control is being
  975.            initialized when the dialog is
  976.            opened
  977. Drop:      An item has been dropped on the
  978.            spin button control
  979. ?SPINBUTTON -----------------------------------
  980. result = ~$Range(
  981.    low, high )
  982.    stem )
  983. oldPos   = ~$Select( [newPos] )
  984. oldStyle = ~$Style( [newStyle] )
  985. oldFont  = ~$Font( [newFont] )
  986. oldColor = ~Color(
  987.    [attribute [, newColor]] )
  988. id       = ~$ID()
  989. result   = ~$Position(
  990.    [x [y [dx [dy] ] ] ] )
  991.    [x [, y [, dx [, dy] ] ] ] )
  992. oldDragData = ~$Drag( [newDragData] )
  993. oldDropData = ~$Drop( [newDropData] )
  994. oldState    = ~$Visible( [newState] )
  995. oldState    = ~$Enabled( [newState] )
  996. CALL ~$Hide ["Update" | "Noupdate"]
  997. CALL ~$Show
  998. CALL ~Top
  999. CALL ~Bottom
  1000. CALL ~$Enable
  1001. CALL ~$Disable
  1002. CALL ~$Focus
  1003. CALL ~$IsDefault ["Object" | "Say"]
  1004. CALL ~$Controls [stem]
  1005. CALL ~$Classes [stem]
  1006. !USER -----------------------------------------
  1007. Init: The user defined control is being
  1008.       initialized when the dialog is opened
  1009. Drop: An item has been dropped on the
  1010.       user defined control
  1011. ?USER -----------------------------------------
  1012. oldText  = ~$Text( [newText] )
  1013. oldStyle = ~$Style( [newStyle] )
  1014. oldFont  = ~$Font( [newFont] )
  1015. oldColor = ~Color(
  1016.    [attribute [, newColor]] )
  1017. id       = ~$ID()
  1018. result   = ~$Position(
  1019.    [x [y [dx [dy] ] ] ] )
  1020.    [x [, y [, dx [, dy] ] ] ] )
  1021. oldDragData = ~$Drag( [newDragData] )
  1022. oldDropData = ~$Drop( [newDropData] )
  1023. oldState    = ~$Visible( [newState] )
  1024. oldState    = ~$Enabled( [newState] )
  1025. CALL ~$Hide ["Update" | "Noupdate"]
  1026. CALL ~$Show
  1027. CALL ~Top
  1028. CALL ~Bottom
  1029. CALL ~$Enable
  1030. CALL ~$Disable
  1031. CALL ~$Focus
  1032. CALL ~$IsDefault ["Object" | "Say"]
  1033. CALL ~$Controls [stem]
  1034. CALL ~$Classes [stem]
  1035. !END
  1036.