DEFINITION MODULE FOR "C" GtkTextView ;

(*
   m2-GTK4 - GtkTextView: a multi-line text widget.  Mapped onto
   <gtk/gtktextview.h>.

   A text view is driven by a GtkTextBuffer; gtk_text_view_new() creates
   its own, retrievable with gtk_text_view_get_buffer().  Put it inside
   a GtkScrolledWindow for scrolling.

   Signal: "buffer" / "notify::buffer" when the buffer is swapped.
*)

FROM SYSTEM IMPORT ADDRESS;
FROM GtkEnums IMPORT GtkWrapMode;
FROM GtkTextIter IMPORT GtkTextIter;

EXPORT UNQUALIFIED
   GtkTextView,
   gtk_text_view_new, gtk_text_view_new_with_buffer,
   gtk_text_view_get_buffer, gtk_text_view_set_buffer,
   gtk_text_view_set_editable, gtk_text_view_get_editable,
   gtk_text_view_set_cursor_visible,
   gtk_text_view_set_wrap_mode, gtk_text_view_get_wrap_mode,
   gtk_text_view_set_monospace, gtk_text_view_get_monospace,
   gtk_text_view_set_left_margin, gtk_text_view_set_right_margin,
   gtk_text_view_set_top_margin, gtk_text_view_set_bottom_margin,
   gtk_text_view_scroll_to_iter, gtk_text_view_scroll_to_mark;


TYPE
   GtkTextView = ADDRESS;

(* GtkWidget *gtk_text_view_new(void) *)
PROCEDURE gtk_text_view_new () : GtkTextView;

(* GtkWidget *gtk_text_view_new_with_buffer(GtkTextBuffer *buffer) *)
PROCEDURE gtk_text_view_new_with_buffer (buffer: ADDRESS) : GtkTextView;

(* GtkTextBuffer *gtk_text_view_get_buffer(GtkTextView *text_view) *)
PROCEDURE gtk_text_view_get_buffer (text_view: GtkTextView) : ADDRESS;

(* void gtk_text_view_set_buffer(GtkTextView *text_view,
                                 GtkTextBuffer *buffer) *)
PROCEDURE gtk_text_view_set_buffer (text_view: GtkTextView; buffer: ADDRESS);

(* void gtk_text_view_set_editable(GtkTextView *text_view, gboolean setting) *)
PROCEDURE gtk_text_view_set_editable (text_view: GtkTextView; setting: INTEGER);

(* gboolean gtk_text_view_get_editable(GtkTextView *text_view) *)
PROCEDURE gtk_text_view_get_editable (text_view: GtkTextView) : [ INTEGER ];

(* void gtk_text_view_set_cursor_visible(GtkTextView *text_view,
                                         gboolean setting) *)
PROCEDURE gtk_text_view_set_cursor_visible (text_view: GtkTextView;
                                            setting: INTEGER);

(* void gtk_text_view_set_wrap_mode(GtkTextView *text_view,
                                    GtkWrapMode wrap_mode) *)
PROCEDURE gtk_text_view_set_wrap_mode (text_view: GtkTextView;
                                       wrap_mode: GtkWrapMode);

(* GtkWrapMode gtk_text_view_get_wrap_mode(GtkTextView *text_view) *)
PROCEDURE gtk_text_view_get_wrap_mode (text_view: GtkTextView) : GtkWrapMode;

(* void gtk_text_view_set_monospace(GtkTextView *text_view, gboolean monospace) *)
PROCEDURE gtk_text_view_set_monospace (text_view: GtkTextView;
                                       monospace: INTEGER);

(* gboolean gtk_text_view_get_monospace(GtkTextView *text_view) *)
PROCEDURE gtk_text_view_get_monospace (text_view: GtkTextView) : [ INTEGER ];

(* void gtk_text_view_set_left_margin(GtkTextView *text_view, int margin) *)
PROCEDURE gtk_text_view_set_left_margin (text_view: GtkTextView;
                                         margin: INTEGER);

(* void gtk_text_view_set_right_margin(GtkTextView *text_view, int margin) *)
PROCEDURE gtk_text_view_set_right_margin (text_view: GtkTextView;
                                          margin: INTEGER);

(* void gtk_text_view_set_top_margin(GtkTextView *text_view, int margin) *)
PROCEDURE gtk_text_view_set_top_margin (text_view: GtkTextView;
                                        margin: INTEGER);

(* void gtk_text_view_set_bottom_margin(GtkTextView *text_view, int margin) *)
PROCEDURE gtk_text_view_set_bottom_margin (text_view: GtkTextView;
                                           margin: INTEGER);

(* gboolean gtk_text_view_scroll_to_iter(GtkTextView *text_view,
                                          GtkTextIter *iter,
                                          double within_margin,
                                          gboolean use_align,
                                          double xalign, double yalign) *)
PROCEDURE gtk_text_view_scroll_to_iter (text_view: GtkTextView;
                                        VAR iter: GtkTextIter;
                                        within_margin: REAL;
                                        use_align: INTEGER;
                                        xalign, yalign: REAL) : [ INTEGER ];

(* void gtk_text_view_scroll_to_mark(GtkTextView *text_view, GtkTextMark *mark,
                                     double within_margin, gboolean use_align,
                                     double xalign, double yalign) *)
PROCEDURE gtk_text_view_scroll_to_mark (text_view: GtkTextView; mark: ADDRESS;
                                        within_margin: REAL;
                                        use_align: INTEGER;
                                        xalign, yalign: REAL);

END GtkTextView.