pragma Ada_2005;
pragma Warnings (Off, "*is already use-visible*");
with Glib; use Glib;
with Glib.Types; use Glib.Types;
with Gtk.Buildable; use Gtk.Buildable;
with Gtk.Dialog; use Gtk.Dialog;
with Gtk.Recent_Chooser; use Gtk.Recent_Chooser;
with Gtk.Recent_Filter; use Gtk.Recent_Filter;
with Gtk.Recent_Info; use Gtk.Recent_Info;
with Gtk.Recent_Manager; use Gtk.Recent_Manager;
with Gtk.Window; use Gtk.Window;
package Gtk.Recent_Chooser_Dialog is
type Gtk_Recent_Chooser_Dialog_Record is new Gtk_Dialog_Record with null record;
type Gtk_Recent_Chooser_Dialog is access all Gtk_Recent_Chooser_Dialog_Record'Class;
type Gtk_Recent_Sort_Func is access function
(A : Gtk.Recent_Info.Gtk_Recent_Info;
B : Gtk.Recent_Info.Gtk_Recent_Info) return Gint;
procedure Gtk_New
(Widget : out Gtk_Recent_Chooser_Dialog;
Title : UTF8_String := "";
Parent : access Gtk.Window.Gtk_Window_Record'Class);
procedure Initialize
(Widget : not null access Gtk_Recent_Chooser_Dialog_Record'Class;
Title : UTF8_String := "";
Parent : access Gtk.Window.Gtk_Window_Record'Class);
function Gtk_Recent_Chooser_Dialog_New
(Title : UTF8_String := "";
Parent : access Gtk.Window.Gtk_Window_Record'Class)
return Gtk_Recent_Chooser_Dialog;
procedure Gtk_New_For_Manager
(Widget : out Gtk_Recent_Chooser_Dialog;
Title : UTF8_String := "";
Parent : access Gtk.Window.Gtk_Window_Record'Class;
Manager : access Gtk.Recent_Manager.Gtk_Recent_Manager_Record'Class);
procedure Initialize_For_Manager
(Widget : not null access Gtk_Recent_Chooser_Dialog_Record'Class;
Title : UTF8_String := "";
Parent : access Gtk.Window.Gtk_Window_Record'Class;
Manager : access Gtk.Recent_Manager.Gtk_Recent_Manager_Record'Class);
function Gtk_Recent_Chooser_Dialog_New_For_Manager
(Title : UTF8_String := "";
Parent : access Gtk.Window.Gtk_Window_Record'Class;
Manager : access Gtk.Recent_Manager.Gtk_Recent_Manager_Record'Class)
return Gtk_Recent_Chooser_Dialog;
function Get_Type return Glib.GType;
pragma Import (C, Get_Type, "gtk_recent_chooser_dialog_get_type");
procedure Set_Sort_Func
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record;
Sort_Func : Gtk_Recent_Sort_Func;
Data_Destroy : Glib.G_Destroy_Notify_Address);
generic
type User_Data_Type (<>) is private;
with procedure Destroy (Data : in out User_Data_Type) is null;
package Set_Sort_Func_User_Data is
type Gtk_Recent_Sort_Func is access function
(A : Gtk.Recent_Info.Gtk_Recent_Info;
B : Gtk.Recent_Info.Gtk_Recent_Info;
User_Data : User_Data_Type) return Gint;
procedure Set_Sort_Func
(Chooser : not null access Gtk.Recent_Chooser_Dialog.Gtk_Recent_Chooser_Dialog_Record'Class;
Sort_Func : Gtk_Recent_Sort_Func;
Sort_Data : User_Data_Type;
Data_Destroy : Glib.G_Destroy_Notify_Address);
end Set_Sort_Func_User_Data;
procedure Add_Filter
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record;
Filter : not null access Gtk.Recent_Filter.Gtk_Recent_Filter_Record'Class);
function Get_Current_Item
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record)
return Gtk.Recent_Info.Gtk_Recent_Info;
function Get_Current_Uri
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record)
return UTF8_String;
function Set_Current_Uri
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record;
URI : UTF8_String) return Boolean;
function Get_Filter
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record)
return Gtk.Recent_Filter.Gtk_Recent_Filter;
procedure Set_Filter
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record;
Filter : not null access Gtk.Recent_Filter.Gtk_Recent_Filter_Record'Class);
function Get_Items
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record)
return Gtk.Recent_Manager.Gtk_Recent_Info_List.Glist;
function Get_Limit
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record)
return Gint;
procedure Set_Limit
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record;
Limit : Gint);
function Get_Local_Only
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record)
return Boolean;
procedure Set_Local_Only
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record;
Local_Only : Boolean);
function Get_Select_Multiple
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record)
return Boolean;
procedure Set_Select_Multiple
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record;
Select_Multiple : Boolean);
function Get_Show_Icons
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record)
return Boolean;
procedure Set_Show_Icons
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record;
Show_Icons : Boolean);
function Get_Show_Not_Found
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record)
return Boolean;
procedure Set_Show_Not_Found
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record;
Show_Not_Found : Boolean);
function Get_Show_Private
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record)
return Boolean;
procedure Set_Show_Private
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record;
Show_Private : Boolean);
function Get_Show_Tips
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record)
return Boolean;
procedure Set_Show_Tips
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record;
Show_Tips : Boolean);
function Get_Sort_Type
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record)
return Gtk.Recent_Chooser.Gtk_Recent_Sort_Type;
procedure Set_Sort_Type
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record;
Sort_Type : Gtk.Recent_Chooser.Gtk_Recent_Sort_Type);
function List_Filters
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record)
return Gtk.Recent_Filter.Gtk_Recent_Filter_List.GSlist;
procedure Remove_Filter
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record;
Filter : not null access Gtk.Recent_Filter.Gtk_Recent_Filter_Record'Class);
procedure Select_All
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record);
function Select_Uri
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record;
URI : UTF8_String) return Boolean;
procedure Unselect_All
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record);
procedure Unselect_Uri
(Chooser : not null access Gtk_Recent_Chooser_Dialog_Record;
URI : UTF8_String);
package Implements_Gtk_Buildable is new Glib.Types.Implements
(Gtk.Buildable.Gtk_Buildable, Gtk_Recent_Chooser_Dialog_Record, Gtk_Recent_Chooser_Dialog);
function "+"
(Widget : access Gtk_Recent_Chooser_Dialog_Record'Class)
return Gtk.Buildable.Gtk_Buildable
renames Implements_Gtk_Buildable.To_Interface;
function "-"
(Interf : Gtk.Buildable.Gtk_Buildable)
return Gtk_Recent_Chooser_Dialog
renames Implements_Gtk_Buildable.To_Object;
package Implements_Gtk_Recent_Chooser is new Glib.Types.Implements
(Gtk.Recent_Chooser.Gtk_Recent_Chooser, Gtk_Recent_Chooser_Dialog_Record, Gtk_Recent_Chooser_Dialog);
function "+"
(Widget : access Gtk_Recent_Chooser_Dialog_Record'Class)
return Gtk.Recent_Chooser.Gtk_Recent_Chooser
renames Implements_Gtk_Recent_Chooser.To_Interface;
function "-"
(Interf : Gtk.Recent_Chooser.Gtk_Recent_Chooser)
return Gtk_Recent_Chooser_Dialog
renames Implements_Gtk_Recent_Chooser.To_Object;
end Gtk.Recent_Chooser_Dialog;