set_cursor_visible

procedure set_cursor_visible(

  var a: TGtkEntry;

  __cursor_visible: guint

); overload;

procedure set_cursor_visible(

  var a: TGtkTextLayout;

  __cursor_visible: guint

); overload;

procedure set_cursor_visible(

  var a: TGtkTextView;

  __cursor_visible: guint

); overload;