CBL_SET_MOUSE_MASK

Sets the mouse event mask.

Note: This routine is supported for native COBOL only.

Syntax:

call "CBL_SET_MOUSE_MASK" using      mouse-handle
                                    event-mask
                          returning status-code

Parameters:

  Using call prototype (see Key) Picture
mouse-handle cblt-x4-compx pic x(4) comp-x.
event-mask cblt-x2-compx pic x(2) comp-x.
status-code See 説明の読み方

On Entry:

mouse-handle Mouse identifier, obtained by earlier call to CBL_INIT_MOUSE.
event-mask See マウスルーチン

On Exit:

None

Comments:

CBL_GET_MOUSE_MASK should be called first to find out which events are enabled.

The CBL_ mouse routines do not work with the x"AF" mouse routines.