x_cursor

     NAME
	  x_cursor - part of Simula to Xlib interface

     DESCRIPTION
	     Xlib_Cursor class X_Cursor(Display_);
	     ref(Xlib_Display) Display_;
	  This class defines the shape of a cursor. Its	shape  can  be
	  defined from pre-defined forms.

	  SUPERS: Xlib_Cursor, Xlib_object ;
	  KIND:	Subclassable ;
	  INIT:	One of the 'Create' procedures must be called.
	  Sequencing:
	  CreateFontCursor/CreateGlyphCursor/CreatePixmapCursor
	  :	      (RecolorCursor)*

     OPERATIONS
     CreateFontCursor
	     Procedure CreateFontCursor(shape);
	     Integer shape; ! Specifies	which standrad form to use.;
	  Create a cursor from the standard cursor  font.  'Shape'  is
	  one  of  a  set of pre-defined little	pictures (contained as
	  'characters' in a 'font'. Possible values  are  the  'Shape'
	  values listed	below.

     CreateGlyphCursor
	     Procedure CreateGlyphCursor
	     (source_font,mask_font,source_char,mask_char,
	     foreground_color,background_color);
	     ref(x_font) source_font;!	   Specifies the font used as
	     source;
	     integer source_char; ! and	which char in the font;
	     ref(x_font) mask_font;! Specifies the mask	font;
	     integer mask_char;	! and which char to use	as mask.;
	     Integer foreground_color,background_color;! RGB values;
	  Create a cursor from font glyphs

     CreatePixmapCursor
	     Procedure CreatePixmapCursor
	     (source,mask,foreground_color,background_color,x,y);
	     Integer  source;! shape of	the source cursor, bit by
	     bit.;
	     Integer   mask;	 ! the bits of the cursor that are to
	     be	displayed;
	     Integer   foreground_color, background_color; ! RGB
	     values;
	     Integer   x,y;! the cursor's hotspot rel the source's
	     origin;
	  Create a cursor from two bitmaps

     RecolorCursor
	     Procedure
	     RecolorCursor(foreground_color,background_color);
	     Integer	foreground_color,background_color;
	  Change the colour of a cursor

	  The RGB values for the fore-,	background

     Free
	     procedure Free;
	  Free colourmap cells or planes

     SHAPES
	  The following	list is	the possible 'Shapes'  as  pre-defined
	  cursors.   use  one  of these	values as parameter 'shape' to
	  procedure 'CreateFontCursor'.	 Hopefully the names are  self
	  descriptive. Example:

	     myCursor:-	new XCursor(Display);
	     myCursor.CreateFontCursor(myCursor.XC_question_arrow);
	     myWindow.DefineCursor(myCursor);
		  XC_X_curso	   XC_arrow	   XC_based_arrow_down
	  XC_based_arrow_up
		 XC_boat      XC_bogosity	 XC_bottom_left_corner
	  XC_bottom_right_corner
	     XC_bottom_side  XC_bottom_tee XC_box_spiral XC_center_ptr
	  XC_circle
	      XC_clock	 XC_coffee_mug	  XC_cross    XC_cross_reverse
	  XC_crosshair
	      XC_diamond_cross	 XC_dot	   XC_dotbox   XC_double_arrow
	  XC_draft_large
	      XC_draft_small   XC_draped_box   XC_exchange    XC_fleur
	  XC_gobbler
	      XC_gumby	  XC_hand1    XC_hand2	   XC_heart    XC_icon
	  XC_iron_cross
	     XC_left_pt	 r  XC_left_side   XC_left_tee	 XC_leftbutton
	  XC_ll_angle
	     XC_lr_angle  XC_man  XC_middlebutton  XC_mouse  XC_pencil
	  XC_pirate
	      XC_plus	XC_question_arrow  XC_right_ptr	 XC_right_side
	  XC_right_tee
	     XC_rightbutton XC_rtl_logo	XC_sailboat  XC_sb_down_arrow
	     XC_sb_h_double_arrow  XC_sb_left_arrow  XC_sb_right_arrow
	       XC_sb_up_arrow	   XC_sb_v_double_arrow	    XC_shuttle
	  XC_sizing
	      XC_spider	 XC_spraycan   XC_star	 XC_target   XC_tcross
	  XC_top_left_arrow
	       XC_top_left_corner    XC_top_right_corner   XC_top_side
	  XC_top_tee
	     XC_trek XC_ul_angle  XC_umbrella	XC_ur_angle   XC_watch
	  XC_xterm