pragma Ada_2005;
pragma Warnings (Off, "*is already use-visible*");
with Gdk.Event; use Gdk.Event;
with Glib; use Glib;
with Glib.Types; use Glib.Types;
with Gtk.Buildable; use Gtk.Buildable;
with Gtk.Cell_Editable; use Gtk.Cell_Editable;
with Gtk.Editable; use Gtk.Editable;
with Gtk.GEntry; use Gtk.GEntry;
package Gtk.Search_Entry is
type Gtk_Search_Entry_Record is new Gtk_Entry_Record with null record;
type Gtk_Search_Entry is access all Gtk_Search_Entry_Record'Class;
procedure Gtk_New (Self : out Gtk_Search_Entry);
procedure Initialize
(Self : not null access Gtk_Search_Entry_Record'Class);
function Gtk_Search_Entry_New return Gtk_Search_Entry;
function Get_Type return Glib.GType;
pragma Import (C, Get_Type, "gtk_search_entry_get_type");
procedure Editing_Done
(Cell_Editable : not null access Gtk_Search_Entry_Record);
procedure Remove_Widget
(Cell_Editable : not null access Gtk_Search_Entry_Record);
procedure Start_Editing
(Cell_Editable : not null access Gtk_Search_Entry_Record;
Event : Gdk.Event.Gdk_Event);
procedure Copy_Clipboard
(Editable : not null access Gtk_Search_Entry_Record);
procedure Cut_Clipboard
(Editable : not null access Gtk_Search_Entry_Record);
procedure Delete_Selection
(Editable : not null access Gtk_Search_Entry_Record);
procedure Delete_Text
(Editable : not null access Gtk_Search_Entry_Record;
Start_Pos : Gint;
End_Pos : Gint := -1);
function Get_Chars
(Editable : not null access Gtk_Search_Entry_Record;
Start_Pos : Gint;
End_Pos : Gint := -1) return UTF8_String;
function Get_Editable
(Editable : not null access Gtk_Search_Entry_Record) return Boolean;
procedure Set_Editable
(Editable : not null access Gtk_Search_Entry_Record;
Is_Editable : Boolean);
function Get_Position
(Editable : not null access Gtk_Search_Entry_Record) return Gint;
procedure Set_Position
(Editable : not null access Gtk_Search_Entry_Record;
Position : Gint);
procedure Get_Selection_Bounds
(Editable : not null access Gtk_Search_Entry_Record;
Start_Pos : out Gint;
End_Pos : out Gint;
Has_Selection : out Boolean);
procedure Insert_Text
(Editable : not null access Gtk_Search_Entry_Record;
New_Text : UTF8_String;
New_Text_Length : Gint;
Position : in out Gint);
procedure Paste_Clipboard
(Editable : not null access Gtk_Search_Entry_Record);
procedure Select_Region
(Editable : not null access Gtk_Search_Entry_Record;
Start_Pos : Gint;
End_Pos : Gint := -1);
package Implements_Gtk_Buildable is new Glib.Types.Implements
(Gtk.Buildable.Gtk_Buildable, Gtk_Search_Entry_Record, Gtk_Search_Entry);
function "+"
(Widget : access Gtk_Search_Entry_Record'Class)
return Gtk.Buildable.Gtk_Buildable
renames Implements_Gtk_Buildable.To_Interface;
function "-"
(Interf : Gtk.Buildable.Gtk_Buildable)
return Gtk_Search_Entry
renames Implements_Gtk_Buildable.To_Object;
package Implements_Gtk_Cell_Editable is new Glib.Types.Implements
(Gtk.Cell_Editable.Gtk_Cell_Editable, Gtk_Search_Entry_Record, Gtk_Search_Entry);
function "+"
(Widget : access Gtk_Search_Entry_Record'Class)
return Gtk.Cell_Editable.Gtk_Cell_Editable
renames Implements_Gtk_Cell_Editable.To_Interface;
function "-"
(Interf : Gtk.Cell_Editable.Gtk_Cell_Editable)
return Gtk_Search_Entry
renames Implements_Gtk_Cell_Editable.To_Object;
package Implements_Gtk_Editable is new Glib.Types.Implements
(Gtk.Editable.Gtk_Editable, Gtk_Search_Entry_Record, Gtk_Search_Entry);
function "+"
(Widget : access Gtk_Search_Entry_Record'Class)
return Gtk.Editable.Gtk_Editable
renames Implements_Gtk_Editable.To_Interface;
function "-"
(Interf : Gtk.Editable.Gtk_Editable)
return Gtk_Search_Entry
renames Implements_Gtk_Editable.To_Object;
end Gtk.Search_Entry;