xpointerinfo

     NAME
	  xpointerinfo - part of Simula	to Xlib	interface

     DESCRIPTION
	     class XPointerInfo;
	  This class contains information about	a  pointer  state.  An
	  object  of  this  class  is  returned	 by  the  QueryPointer
	  function of class XPointer.

	  SUPERS: -
	  KIND:	    Result of operation, created by QueryPointer
	  INIT:	    Init must be called	first (which is	done by
	  creator)
	  Sequencing:
	  (ChangePointerControl/GetPointerControl/QueryPointer/

     OPERATIONS
     init
	     procedure init;
	  Initiates the	information of this  object.  Must  be	called
	  before  any  other  operation	 in  order  to	make them give
	  meaningfull results.

	  This operation is called by the  operation  QueryPointer  in
	  class	XPointer which also creates objects of this class. The
	  Init operation is thus NOT called by the application program
	  directly.

     RootWin
	     ref (X_Window) RootWin;
	  The root window the pointer is located in.

     ChildWin
	     ref (X_Window) ChildWin;
	  If =/=none, the pointer is located ChildWin.

     RootX, RootY
	     integer RootX, RootY;
	  The coordinates relative the root window.

     WinX, WinY
	     integer WinX, WinY;
	  The coordinates relative the main window

     OnScreen
	     boolean OnScreen;
	  The pointer is on the	same screen as the main	window

     IsShift
	     boolean procedure IsShift;
	  Returns true if the shift-key	is used

     IsLock
	     boolean procedure IsLock;
	  Returns true if the lock-key is used

     IsControl
	     boolean procedure IsControl;
	  Returns true if the control-key is used

     IsMod1
	     boolean procedure IsMod1;
	  Returns true if the first modifier-key is used

     IsMod2
	     boolean procedure IsMod2;
	  Returns true if the second modifier-key is used

     IsMod3
	     boolean procedure IsMod3;
	  Returns true if the third modifier-key is used

     IsMod4
	     boolean procedure IsMod4;
	  Returns true if the fourth modifier-key is used

     IsMod5
	     boolean procedure IsMod5;
	  Returns true if the fifth modifier-key is used

     IsButton1
	     boolean procedure IsButton1;
	  Returns true if the first pointer button is used

     IsButton2
	     boolean procedure IsButton2;
	  Returns true if the second pointer button is used

     IsButton3
	     boolean procedure IsButton3;
	  Returns true if the third pointer button is used

     IsButton4
	     boolean procedure IsButton4;
	  Returns true if the fourth pointer button is used

     IsButton5
	     boolean procedure IsButton5;
	  Returns true if the fifth pointer button is used