TakeEvent (process ACCEPT loop event:ASCIIViewerClass)

Top  Previous  Next

 

TakeEvent( event ), PROC

TakeEvent

Processes an ACCEPT loop event.

event

An integer constant, variable, EQUATE or expresssion containing the event number.

The TakeEvent method processes an ACCEPT loop event on behalf of the ASCIIViewerClass object and returns a value indicating whether a CYCLE to the top of the ACCEPT loop is required to properly refresh the display.

Implementation:

The TakeEvent method handles resizing, RIGHT-CLICKS, LEFT-CLICKS, and scrolling events.

A return value of zero (0) indicates no CYCLE is needed; any other return value requires a CYCLE.

Return Data Type:     BYTE

Example:

 ACCEPT

   CASE FIELD()

   OF ?AsciiBox

     IF ViewerActive

       IF Viewer.TakeEvent(EVENT())

    CYCLE

   END

     END

 END

END