home *** CD-ROM | disk | FTP | other *** search
- /* Mouse.erx by Larry Margolis; demonstrates mouse control from Rexx
- Syntax: register_mouse which button action shifts command
- which = local/global flag; 1 = global mouse settings
- button = 1, 2 or 3
- action = one of
- CLICK Mouse click
- SECONDCLK Double click; follows CLICK
- BEGINDRAG Called when user starts a drag
- ENDDRAG Called when user ends the drag
- CANCELDRAG Called when user cancels the drag (presses Esc)
- shifts = any combination of 1 = shift, 2 = control, 4 = alt.
- command = the command you want to execute; see MOUSE.E for the
- standard set of commands.
- */
- /* Define Alt + Click MB1 */
- 'register_mouse 1 1 CLICK 4 sayerror Rexx rules!'
-