Description: Get a mouse click from a specified object area
Mapped Command: WAIT EVENT <label>
FUNCTION __WaitForClick(label,deactivate,release,noflash)
local handle := __ScanObjects(label) // get the handle for this object
if __HandleInRange(handle) > 0 // if the handle is valid
noflash := if(noflash == NIL,FALSE,noflash) // are we going to flash the object on selection
do while TRUE // loop until the region specified was clicked in
if mstatus() == 1 .and. handle == mgethot()
exit // exit when the region is clicked
endif // if mstatus() == 1 .and. region == mgethot()
enddo // continue looping
if deactivate
__DeaEventRegion(label,FALSE)
endif // if deactivate
if release
__RelEventRegion(label)
endif // if release
else
__Handleerror(NoSuchLabel,label,procname())
endif // if __handleinrange()
RETURN("") // return a blank label
See Also:WAIT EVENT
This page created by ng2html v1.05, the Norton guide to HTML conversion utility.
Written by Dave Pearson