TGtkText

type TGtkText = record

  editable: TGtkEditable;

  text_area: PGdkWindow;

  hadj: PGtkAdjustment;

  vadj: PGtkAdjustment;

  gc: PGdkGC;

  line_wrap_bitmap: PGdkPixmap;

  line_arrow_bitmap: PGdkPixmap;

  text: record

    case LongInt of

      0: (

          wc: PGdkWChar;

        );

      1: (

          ch: Pguchar;

        );

  end;

  text_len: guint;

  gap_position: guint;

  gap_size: guint;

  text_end: guint;

  line_start_cache: PGList;

  first_line_start_index: guint;

  first_cut_pixels: guint;

  first_onscreen_hor_pixel: guint;

  first_onscreen_ver_pixel: guint;

  flag0: Word;

  freeze_count: guint;

  text_properties: PGList;

  text_properties_end: PGList;

  point: TGtkPropertyMark;

  scratch_buffer: record

    case LongInt of

      0: (

          wc: PGdkWChar;

        );

      1: (

          ch: Pguchar;

        );

  end;

  scratch_buffer_len: guint;

  last_ver_value: gint;

  cursor_pos_x: gint;

  cursor_pos_y: gint;

  cursor_mark: TGtkPropertyMark;

  cursor_char: TGdkWChar;

  cursor_char_offset: gchar;

  cursor_virtual_x: gint;

  cursor_drawn_level: gint;

  current_line: PGList;

  tab_stops: PGList;

  default_tab_width: gint;

  current_font: PGtkTextFont;

  timer: gint;

  button: guint;

  bg_gc: PGdkGC;

end;