TGtkEntry

type TGtkEntry = record

  widget: TGtkWidget;

  text: Pgchar;

  flag0: Word;

  text_length: guint16;

  text_max_length: guint16;

  text_area: PGdkWindow;

  im_context: PGtkIMContext;

  popup_menu: PGtkWidget;

  current_pos: gint;

  selection_bound: gint;

  cached_layout: PPangoLayout;

  flag1: Word;

  button: guint;

  blink_timeout: guint;

  recompute_idle: guint;

  scroll_offset: gint;

  ascent: gint;

  descent: gint;

  text_size: guint16;

  n_bytes: guint16;

  preedit_length: guint16;

  preedit_cursor: guint16;

  dnd_position: gint;

  drag_start_x: gint;

  drag_start_y: gint;

  invisible_char: gunichar;

  width_chars: gint;

end;