ProvideX V8.20 > Language Reference > 2. Directives

93

DISABLE EVENT Directive

       Internal Event Disable

Formats

1. Timer Event: DISABLE EVENT ON TIM

2. Data Available on Channel Event: DISABLE EVENT ON DATA (chan)

3. On Close of Channel Event: DISABLE EVENT ON CLOSE (chan)

4. On Open Event: DISABLE EVENT ON OPEN

5. On Class Load Event: DISABLE EVENT ON LOAD CLASS

Where:

chan

Channel or logical file number.

Description

Use the DISABLE EVENT directive to disable the handling of various system events

within a ProvideX session. The generation and trapping of events requires that the

internal "*system.pvc" COM object be defined first.

See Also

ENABLE EVENT Directive, p.111.

Example

00010

DEF OBJECT PvxComID,"*system" ! Activate support for System Events

00020

ENABLE EVENT ON TIM=2 ! Activate timer event at two second

intervals

00030

ON EVENT "TimeOut" FROM PvxComID PREINPUT 99 ! Establish how to

handle the event

00031

c=0

00040

WHILE 1

00050

INPUT *

00060

IF CTL=99 \

THEN c++;

PRINT "Timeout ",c;

IF c>3 \

THEN BREAK

00070

WEND

00075

DISABLE EVENT ON TIM ! Deactivate timer event

00077

DROP OBJECT PvxComID

00080

END