Intermec Janus 2020 Reference Manual - Im_Get_Follow_Cursor

im_get_follow_cursor

3-29

3

im_get_follow_cursor

Purpose:

When the display is in 80X25 mode, the viewport follows the cursor as it

moves. The follow-the-cursor feature can be enabled or disabled. This

function retrieves the current setting.

Syntax:

With Intrmecd_IO, Intrmecp_IO;

Use Intrmecd_IO, Intrmecp_IO;

procedure im_get_follow_cursor (

follow_cursor_status  : OUT IM_CONTROL;

   status_code           : OUT System.Word);

IN Parameter:

None.

OUT Parameter:

The follow_cursor_status parameter is one of the following constants:

IM_ENABLE

Follow-the-cursor mode is enabled

IM_DISABLE

Follow-the-cursor mode is disabled

The status_code is one of the standard status codes defined in Appendix A,

“Status Codes.”

Return Value:

None.

Notes:

This procedure has no effect on the JANUS 2050.

See Also:

im_set_follow_cursor, im_cursor_to_viewport, im_viewport_to_cursor

Example

With System, Text_IO, Intrmecd_IO, Intrmecp_IO;

Use System, Text_IO, Intrmecd_IO, Intrmecp_IO;

procedure getfolcr Is

       follow_cursor_status :  IM_CONTROL;

       status_code : System.Word;

    begin

       Put_Line ("Getting foll curs mode");

       im_get_follow_cursor (follow_cursor_status, status_code);

       if follow_cursor_status = IM_ENABLE then

          Put_Line ("Follow Cursor ENABLED");

       else

          Put_Line ("Follow Cursor DISABLED");

       end if;

    end getfolcr;