Example
With System, Text_IO, Intrmecd_IO, Intrmecp_IO;
Use System, Text_IO, Intrmecd_IO, Intrmecp_IO;
procedure getviewl Is
viewport_lock_status : IM_CONTROL;
status_code : System.Word;
begin
im_get_viewport_lock (viewport_lock_status, status_code);
if viewport_lock_status = IM_ENABLE then
Put_Line ("Viewport Lock ENABLED");
else
Put_Line ("Viewport Lock DISABLED");
end if;
end getviewl;
im_get_viewport_lock
3
3-41