DEFINITION MODULE FOR "C" GtkEntryBuffer ;

(*
   m2-GTK4 - GtkEntryBuffer: the text model behind GtkEntry.  Mapped onto
   <gtk/gtkentrybuffer.h>.

   Most code can use GtkEditable on the entry; this is useful when
   sharing one buffer between widgets or for length limits.  Position 0
   is the start; positions are in characters.
*)

FROM SYSTEM IMPORT ADDRESS;

EXPORT UNQUALIFIED
   GtkEntryBuffer,
   gtk_entry_buffer_new,
   gtk_entry_buffer_get_text, gtk_entry_buffer_set_text,
   gtk_entry_buffer_get_length,
   gtk_entry_buffer_get_max_length, gtk_entry_buffer_set_max_length,
   gtk_entry_buffer_insert_text, gtk_entry_buffer_delete_text;


TYPE
   GtkEntryBuffer = ADDRESS;

(* GtkEntryBuffer *gtk_entry_buffer_new(const char *initial_chars,
                                         int n_initial_chars) *)
PROCEDURE gtk_entry_buffer_new (initial_chars: ADDRESS;
                                n_initial_chars: INTEGER) : GtkEntryBuffer;

(* const char *gtk_entry_buffer_get_text(GtkEntryBuffer *buffer) *)
PROCEDURE gtk_entry_buffer_get_text (buffer: GtkEntryBuffer) : ADDRESS;

(* void gtk_entry_buffer_set_text(GtkEntryBuffer *buffer, const char *chars,
                                   int n_chars) *)
PROCEDURE gtk_entry_buffer_set_text (buffer: GtkEntryBuffer;
                                     chars: ARRAY OF CHAR; n_chars: INTEGER);

(* guint gtk_entry_buffer_get_length(GtkEntryBuffer *buffer) *)
PROCEDURE gtk_entry_buffer_get_length (buffer: GtkEntryBuffer) : CARDINAL;

(* int gtk_entry_buffer_get_max_length(GtkEntryBuffer *buffer) *)
PROCEDURE gtk_entry_buffer_get_max_length (buffer: GtkEntryBuffer) : INTEGER;

(* void gtk_entry_buffer_set_max_length(GtkEntryBuffer *buffer, int max_length) *)
PROCEDURE gtk_entry_buffer_set_max_length (buffer: GtkEntryBuffer;
                                           max_length: INTEGER);

(* guint gtk_entry_buffer_insert_text(GtkEntryBuffer *buffer, guint position,
                                       const char *chars, int n_chars) *)
PROCEDURE gtk_entry_buffer_insert_text (buffer: GtkEntryBuffer;
                                        position: CARDINAL;
                                        chars: ARRAY OF CHAR;
                                        n_chars: INTEGER) : [ CARDINAL ];

(* guint gtk_entry_buffer_delete_text(GtkEntryBuffer *buffer, guint position,
                                       int n_chars) *)
PROCEDURE gtk_entry_buffer_delete_text (buffer: GtkEntryBuffer;
                                        position: CARDINAL;
                                        n_chars: INTEGER) : [ CARDINAL ];

END GtkEntryBuffer.