pragma Ada_2005;
pragma Warnings (Off, "*is already use-visible*");
with Glib; use Glib;
with Glib.Object; use Glib.Object;
with Glib.Properties; use Glib.Properties;
with Glib.Types; use Glib.Types;
with Gtk.Box; use Gtk.Box;
with Gtk.Buildable; use Gtk.Buildable;
with Gtk.Enums; use Gtk.Enums;
with Gtk.File_Chooser; use Gtk.File_Chooser;
with Gtk.File_Filter; use Gtk.File_Filter;
with Gtk.Orientable; use Gtk.Orientable;
with Gtk.Widget; use Gtk.Widget;
package Gtk.File_Chooser_Button is
type Gtk_File_Chooser_Button_Record is new Gtk_Box_Record with null record;
type Gtk_File_Chooser_Button is access all Gtk_File_Chooser_Button_Record'Class;
procedure Gtk_New
(Button : out Gtk_File_Chooser_Button;
Title : UTF8_String;
Action : Gtk.File_Chooser.Gtk_File_Chooser_Action);
procedure Initialize
(Button : not null access Gtk_File_Chooser_Button_Record'Class;
Title : UTF8_String;
Action : Gtk.File_Chooser.Gtk_File_Chooser_Action);
function Gtk_File_Chooser_Button_New
(Title : UTF8_String;
Action : Gtk.File_Chooser.Gtk_File_Chooser_Action)
return Gtk_File_Chooser_Button;
procedure Gtk_New_With_Dialog
(Button : out Gtk_File_Chooser_Button;
Dialog : not null access Gtk.Widget.Gtk_Widget_Record'Class);
procedure Initialize_With_Dialog
(Button : not null access Gtk_File_Chooser_Button_Record'Class;
Dialog : not null access Gtk.Widget.Gtk_Widget_Record'Class);
function Gtk_File_Chooser_Button_New_With_Dialog
(Dialog : not null access Gtk.Widget.Gtk_Widget_Record'Class)
return Gtk_File_Chooser_Button;
function Get_Type return Glib.GType;
pragma Import (C, Get_Type, "gtk_file_chooser_button_get_type");
function Get_Focus_On_Click
(Button : not null access Gtk_File_Chooser_Button_Record)
return Boolean;
procedure Set_Focus_On_Click
(Button : not null access Gtk_File_Chooser_Button_Record;
Focus_On_Click : Boolean);
function Get_Title
(Button : not null access Gtk_File_Chooser_Button_Record)
return UTF8_String;
procedure Set_Title
(Button : not null access Gtk_File_Chooser_Button_Record;
Title : UTF8_String);
function Get_Width_Chars
(Button : not null access Gtk_File_Chooser_Button_Record) return Gint;
procedure Set_Width_Chars
(Button : not null access Gtk_File_Chooser_Button_Record;
N_Chars : Gint);
procedure Add_Filter
(Chooser : not null access Gtk_File_Chooser_Button_Record;
Filter : not null access Gtk.File_Filter.Gtk_File_Filter_Record'Class);
function Add_Shortcut_Folder
(Chooser : not null access Gtk_File_Chooser_Button_Record;
Folder : UTF8_String) return Boolean;
function Add_Shortcut_Folder_Uri
(Chooser : not null access Gtk_File_Chooser_Button_Record;
URI : UTF8_String) return Boolean;
function Get_Action
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return Gtk.File_Chooser.Gtk_File_Chooser_Action;
procedure Set_Action
(Chooser : not null access Gtk_File_Chooser_Button_Record;
Action : Gtk.File_Chooser.Gtk_File_Chooser_Action);
function Get_Create_Folders
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return Boolean;
procedure Set_Create_Folders
(Chooser : not null access Gtk_File_Chooser_Button_Record;
Create_Folders : Boolean);
function Get_Current_Folder
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return UTF8_String;
function Set_Current_Folder
(Chooser : not null access Gtk_File_Chooser_Button_Record;
Filename : UTF8_String) return Boolean;
function Get_Current_Folder_Uri
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return UTF8_String;
function Set_Current_Folder_Uri
(Chooser : not null access Gtk_File_Chooser_Button_Record;
URI : UTF8_String) return Boolean;
function Get_Do_Overwrite_Confirmation
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return Boolean;
procedure Set_Do_Overwrite_Confirmation
(Chooser : not null access Gtk_File_Chooser_Button_Record;
Do_Overwrite_Confirmation : Boolean);
function Get_Extra_Widget
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return Gtk.Widget.Gtk_Widget;
procedure Set_Extra_Widget
(Chooser : not null access Gtk_File_Chooser_Button_Record;
Extra_Widget : not null access Gtk.Widget.Gtk_Widget_Record'Class);
function Get_Filename
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return UTF8_String;
function Set_Filename
(Chooser : not null access Gtk_File_Chooser_Button_Record;
Filename : UTF8_String) return Boolean;
function Get_Filenames
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return Gtk.Enums.String_SList.GSlist;
function Get_Filter
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return Gtk.File_Filter.Gtk_File_Filter;
procedure Set_Filter
(Chooser : not null access Gtk_File_Chooser_Button_Record;
Filter : not null access Gtk.File_Filter.Gtk_File_Filter_Record'Class);
function Get_Local_Only
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return Boolean;
procedure Set_Local_Only
(Chooser : not null access Gtk_File_Chooser_Button_Record;
Local_Only : Boolean);
function Get_Preview_Filename
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return UTF8_String;
function Get_Preview_Uri
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return UTF8_String;
function Get_Preview_Widget
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return Gtk.Widget.Gtk_Widget;
procedure Set_Preview_Widget
(Chooser : not null access Gtk_File_Chooser_Button_Record;
Preview_Widget : not null access Gtk.Widget.Gtk_Widget_Record'Class);
function Get_Preview_Widget_Active
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return Boolean;
procedure Set_Preview_Widget_Active
(Chooser : not null access Gtk_File_Chooser_Button_Record;
Active : Boolean);
function Get_Select_Multiple
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return Boolean;
procedure Set_Select_Multiple
(Chooser : not null access Gtk_File_Chooser_Button_Record;
Select_Multiple : Boolean);
function Get_Show_Hidden
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return Boolean;
procedure Set_Show_Hidden
(Chooser : not null access Gtk_File_Chooser_Button_Record;
Show_Hidden : Boolean);
function Get_Uri
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return UTF8_String;
function Set_Uri
(Chooser : not null access Gtk_File_Chooser_Button_Record;
URI : UTF8_String) return Boolean;
function Get_Uris
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return Gtk.Enums.String_SList.GSlist;
function Get_Use_Preview_Label
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return Boolean;
procedure Set_Use_Preview_Label
(Chooser : not null access Gtk_File_Chooser_Button_Record;
Use_Label : Boolean);
function List_Filters
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return Glib.Object.Object_List.GSlist;
function List_Shortcut_Folder_Uris
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return Gtk.Enums.String_SList.GSlist;
function List_Shortcut_Folders
(Chooser : not null access Gtk_File_Chooser_Button_Record)
return Gtk.Enums.String_SList.GSlist;
procedure Remove_Filter
(Chooser : not null access Gtk_File_Chooser_Button_Record;
Filter : not null access Gtk.File_Filter.Gtk_File_Filter_Record'Class);
function Remove_Shortcut_Folder
(Chooser : not null access Gtk_File_Chooser_Button_Record;
Folder : UTF8_String) return Boolean;
function Remove_Shortcut_Folder_Uri
(Chooser : not null access Gtk_File_Chooser_Button_Record;
URI : UTF8_String) return Boolean;
procedure Select_All
(Chooser : not null access Gtk_File_Chooser_Button_Record);
function Select_Filename
(Chooser : not null access Gtk_File_Chooser_Button_Record;
Filename : UTF8_String) return Boolean;
function Select_Uri
(Chooser : not null access Gtk_File_Chooser_Button_Record;
URI : UTF8_String) return Boolean;
procedure Set_Current_Name
(Chooser : not null access Gtk_File_Chooser_Button_Record;
Name : UTF8_String);
procedure Unselect_All
(Chooser : not null access Gtk_File_Chooser_Button_Record);
procedure Unselect_Filename
(Chooser : not null access Gtk_File_Chooser_Button_Record;
Filename : UTF8_String);
procedure Unselect_Uri
(Chooser : not null access Gtk_File_Chooser_Button_Record;
URI : UTF8_String);
function Get_Orientation
(Self : not null access Gtk_File_Chooser_Button_Record)
return Gtk.Enums.Gtk_Orientation;
procedure Set_Orientation
(Self : not null access Gtk_File_Chooser_Button_Record;
Orientation : Gtk.Enums.Gtk_Orientation);
Dialog_Property : constant Glib.Properties.Property_Interface;
Focus_On_Click_Property : constant Glib.Properties.Property_Boolean;
Title_Property : constant Glib.Properties.Property_String;
Width_Chars_Property : constant Glib.Properties.Property_Int;
type Cb_Gtk_File_Chooser_Button_Void is not null access procedure
(Self : access Gtk_File_Chooser_Button_Record'Class);
type Cb_GObject_Void is not null access procedure
(Self : access Glib.Object.GObject_Record'Class);
Signal_File_Set : constant Glib.Signal_Name := "file-set";
procedure On_File_Set
(Self : not null access Gtk_File_Chooser_Button_Record;
Call : Cb_Gtk_File_Chooser_Button_Void;
After : Boolean := False);
procedure On_File_Set
(Self : not null access Gtk_File_Chooser_Button_Record;
Call : Cb_GObject_Void;
Slot : not null access Glib.Object.GObject_Record'Class;
After : Boolean := False);
package Implements_Gtk_Buildable is new Glib.Types.Implements
(Gtk.Buildable.Gtk_Buildable, Gtk_File_Chooser_Button_Record, Gtk_File_Chooser_Button);
function "+"
(Widget : access Gtk_File_Chooser_Button_Record'Class)
return Gtk.Buildable.Gtk_Buildable
renames Implements_Gtk_Buildable.To_Interface;
function "-"
(Interf : Gtk.Buildable.Gtk_Buildable)
return Gtk_File_Chooser_Button
renames Implements_Gtk_Buildable.To_Object;
package Implements_Gtk_File_Chooser is new Glib.Types.Implements
(Gtk.File_Chooser.Gtk_File_Chooser, Gtk_File_Chooser_Button_Record, Gtk_File_Chooser_Button);
function "+"
(Widget : access Gtk_File_Chooser_Button_Record'Class)
return Gtk.File_Chooser.Gtk_File_Chooser
renames Implements_Gtk_File_Chooser.To_Interface;
function "-"
(Interf : Gtk.File_Chooser.Gtk_File_Chooser)
return Gtk_File_Chooser_Button
renames Implements_Gtk_File_Chooser.To_Object;
package Implements_Gtk_Orientable is new Glib.Types.Implements
(Gtk.Orientable.Gtk_Orientable, Gtk_File_Chooser_Button_Record, Gtk_File_Chooser_Button);
function "+"
(Widget : access Gtk_File_Chooser_Button_Record'Class)
return Gtk.Orientable.Gtk_Orientable
renames Implements_Gtk_Orientable.To_Interface;
function "-"
(Interf : Gtk.Orientable.Gtk_Orientable)
return Gtk_File_Chooser_Button
renames Implements_Gtk_Orientable.To_Object;
private
Width_Chars_Property : constant Glib.Properties.Property_Int :=
Glib.Properties.Build ("width-chars");
Title_Property : constant Glib.Properties.Property_String :=
Glib.Properties.Build ("title");
Focus_On_Click_Property : constant Glib.Properties.Property_Boolean :=
Glib.Properties.Build ("focus-on-click");
Dialog_Property : constant Glib.Properties.Property_Interface :=
Glib.Properties.Build ("dialog");
end Gtk.File_Chooser_Button;