package Gtk.Item_Factory is

type Gtk_Item_Factory_Record is new Object.GObject_Record with private;

type Gtk_Item_Factory is access all Gtk_Item_Factory_Record'Class;

type Item_Type_Enum is
     (Title,
      --  Create a title item

      Item,
      --  Create a simple item

      Image_Item,
      --  Create an item holding an image

      Stock_Item,
      --  Create an item holding a stock image

      Check_Item,
      --  Create a check item

      Toggle_Item,
      --  Create a toggle item

      Radio_Item,
      --  Create a radio item

      Separator,
      --  Create a separator

      Tearoff,
      --  Create a tearoff item

      Branch,
      --  Create an item to hold sub items

      Last_Branch
      --  Create a right justified item to hold sub items
     );

type Gtk_Item_Factory_Entry is private;

type Gtk_Item_Factory_Entry_Array is array (Gint range <>) of
     Gtk_Item_Factory_Entry;

procedure Gtk_New 
(
Ifactory
: out Gtk_Item_Factory;
Container_Type
: Gtk_Type;
Path
: UTF8_String;
Accel_Group
: Gtk.Accel_Group.Gtk_Accel_Group);

procedure Initialize 
(
Ifactory
: access Gtk_Item_Factory_Record'Class;
Container_Type
: Gtk_Type;
Path
: UTF8_String := "";
Accel_Group
: Gtk.Accel_Group.Gtk_Accel_Group);

function Get_Type return Gtk_Type;

procedure Add_Foreign 
(
Accel_Widget
: access Gtk.Widget.Gtk_Widget_Record'Class;
Full_Path
: UTF8_String;
Accel_Group
: Gtk.Accel_Group.Gtk_Accel_Group;
Keyval
: Guint;
Modifiers
: Gdk.Types.Gdk_Modifier_Type);

function From_Widget 
(
Widget
: access Gtk.Widget.Gtk_Widget_Record'Class) return Gtk_Item_Factory;

function Path_From_Widget 
(
Widget
: access Gtk.Widget.Gtk_Widget_Record'Class) return UTF8_String;

function Get_Item 
(
Ifactory
: access Gtk_Item_Factory_Record;
Path
: UTF8_String) return Gtk.Widget.Gtk_Widget;

function Get_Widget 
(
Ifactory
: access Gtk_Item_Factory_Record;
Path
: UTF8_String) return Gtk.Widget.Gtk_Widget;

function Get_Widget_By_Action 
(
Ifactory
: access Gtk_Item_Factory_Record;
Action
: Guint) return Gtk.Widget.Gtk_Widget;

function Get_Item_By_Action 
(
Ifactory
: access Gtk_Item_Factory_Record;
Action
: Guint) return Gtk.Widget.Gtk_Widget;

procedure Delete_Item 
(
Ifactory
: access Gtk_Item_Factory_Record;
Path
: UTF8_String);

procedure Delete_Entry 
(
Ifactory
: access Gtk_Item_Factory_Record;
Ientry
: Gtk_Item_Factory_Entry);

procedure Delete_Entries 
(
Ifactory
: access Gtk_Item_Factory_Record;
Entries
: Gtk_Item_Factory_Entry_Array);

procedure Popup 
(
Ifactory
: access Gtk_Item_Factory_Record;
X
: Guint;
Y
: Guint;
Mouse_Button
: Guint;
Time
: Guint32);