1. ------------------------------------------------------------------------------ 
  2. --                                                                          -- 
  3. --      Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet       -- 
  4. --                     Copyright (C) 2000-2014, AdaCore                     -- 
  5. --                                                                          -- 
  6. -- This library is free software;  you can redistribute it and/or modify it -- 
  7. -- under terms of the  GNU General Public License  as published by the Free -- 
  8. -- Software  Foundation;  either version 3,  or (at your  option) any later -- 
  9. -- version. This library is distributed in the hope that it will be useful, -- 
  10. -- but WITHOUT ANY WARRANTY;  without even the implied warranty of MERCHAN- -- 
  11. -- TABILITY or FITNESS FOR A PARTICULAR PURPOSE.                            -- 
  12. --                                                                          -- 
  13. -- As a special exception under Section 7 of GPL version 3, you are granted -- 
  14. -- additional permissions described in the GCC Runtime Library Exception,   -- 
  15. -- version 3.1, as published by the Free Software Foundation.               -- 
  16. --                                                                          -- 
  17. -- You should have received a copy of the GNU General Public License and    -- 
  18. -- a copy of the GCC Runtime Library Exception along with this program;     -- 
  19. -- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    -- 
  20. -- <http://www.gnu.org/licenses/>.                                          -- 
  21. --                                                                          -- 
  22. ------------------------------------------------------------------------------ 
  23.  
  24. --  <description> 
  25. --  Gtk.Recent_Chooser.Gtk_Recent_Chooser is an interface that can be 
  26. --  implemented by widgets displaying the list of recently used files. In GTK+, 
  27. --  the main objects that implement this interface are 
  28. --  Gtk.Recent_Chooser_Widget.Gtk_Recent_Chooser_Widget, 
  29. --  Gtk.Recent_Chooser_Dialog.Gtk_Recent_Chooser_Dialog and 
  30. --  Gtk.Recent_Chooser_Menu.Gtk_Recent_Chooser_Menu. 
  31. -- 
  32. --  Recently used files are supported since GTK+ 2.10. 
  33. -- 
  34. --  </description> 
  35. pragma Ada_2005; 
  36.  
  37. pragma Warnings (Off, "*is already use-visible*"); 
  38. with Glib;                    use Glib; 
  39. with Glib.Generic_Properties; use Glib.Generic_Properties; 
  40. with Glib.Object;             use Glib.Object; 
  41. with Glib.Properties;         use Glib.Properties; 
  42. with Glib.Types;              use Glib.Types; 
  43. with Gtk.Recent_Filter;       use Gtk.Recent_Filter; 
  44. with Gtk.Recent_Info;         use Gtk.Recent_Info; 
  45. with Gtk.Recent_Manager;      use Gtk.Recent_Manager; 
  46.  
  47. package Gtk.Recent_Chooser is 
  48.  
  49.    type Gtk_Recent_Chooser is new Glib.Types.GType_Interface; 
  50.    Null_Gtk_Recent_Chooser : constant Gtk_Recent_Chooser; 
  51.  
  52.    type Gtk_Recent_Sort_Type is ( 
  53.       Recent_Sort_None, 
  54.       Recent_Sort_Mru, 
  55.       Recent_Sort_Lru, 
  56.       Recent_Sort_Custom); 
  57.    pragma Convention (C, Gtk_Recent_Sort_Type); 
  58.    --  Used to specify the sorting method to be applyed to the recently used 
  59.    --  resource list. 
  60.  
  61.    --------------- 
  62.    -- Callbacks -- 
  63.    --------------- 
  64.  
  65.    type Gtk_Recent_Sort_Func is access function 
  66.      (A : Gtk.Recent_Info.Gtk_Recent_Info; 
  67.       B : Gtk.Recent_Info.Gtk_Recent_Info) return Gint; 
  68.  
  69.    ---------------------------- 
  70.    -- Enumeration Properties -- 
  71.    ---------------------------- 
  72.  
  73.    package Gtk_Recent_Sort_Type_Properties is 
  74.       new Generic_Internal_Discrete_Property (Gtk_Recent_Sort_Type); 
  75.    type Property_Gtk_Recent_Sort_Type is new Gtk_Recent_Sort_Type_Properties.Property; 
  76.  
  77.    ------------------ 
  78.    -- Constructors -- 
  79.    ------------------ 
  80.  
  81.    function Get_Type return Glib.GType; 
  82.    pragma Import (C, Get_Type, "gtk_recent_chooser_get_type"); 
  83.  
  84.    ------------- 
  85.    -- Methods -- 
  86.    ------------- 
  87.  
  88.    procedure Add_Filter 
  89.       (Chooser : Gtk_Recent_Chooser; 
  90.        Filter  : not null access Gtk.Recent_Filter.Gtk_Recent_Filter_Record'Class); 
  91.    --  Adds Filter to the list of Gtk.Recent_Filter.Gtk_Recent_Filter objects 
  92.    --  held by Chooser. 
  93.    --  If no previous filter objects were defined, this function will call 
  94.    --  Gtk.Recent_Chooser.Set_Filter. 
  95.    --  Since: gtk+ 2.10 
  96.    --  "filter": a Gtk.Recent_Filter.Gtk_Recent_Filter 
  97.  
  98.    function Get_Current_Item 
  99.       (Chooser : Gtk_Recent_Chooser) return Gtk.Recent_Info.Gtk_Recent_Info; 
  100.    --  Gets the Gtk.Recent_Info.Gtk_Recent_Info currently selected by Chooser. 
  101.    --  Since: gtk+ 2.10 
  102.  
  103.    function Get_Current_Uri 
  104.       (Chooser : Gtk_Recent_Chooser) return UTF8_String; 
  105.    --  Gets the URI currently selected by Chooser. 
  106.    --  Since: gtk+ 2.10 
  107.  
  108.    function Set_Current_Uri 
  109.       (Chooser : Gtk_Recent_Chooser; 
  110.        URI     : UTF8_String) return Boolean; 
  111.    --  Sets Uri as the current URI for Chooser. 
  112.    --  Since: gtk+ 2.10 
  113.    --  "uri": a URI 
  114.  
  115.    function Get_Filter 
  116.       (Chooser : Gtk_Recent_Chooser) 
  117.        return Gtk.Recent_Filter.Gtk_Recent_Filter; 
  118.    --  Gets the Gtk.Recent_Filter.Gtk_Recent_Filter object currently used by 
  119.    --  Chooser to affect the display of the recently used resources. 
  120.    --  Since: gtk+ 2.10 
  121.  
  122.    procedure Set_Filter 
  123.       (Chooser : Gtk_Recent_Chooser; 
  124.        Filter  : not null access Gtk.Recent_Filter.Gtk_Recent_Filter_Record'Class); 
  125.    --  Sets Filter as the current Gtk.Recent_Filter.Gtk_Recent_Filter object 
  126.    --  used by Chooser to affect the displayed recently used resources. 
  127.    --  Since: gtk+ 2.10 
  128.    --  "filter": a Gtk.Recent_Filter.Gtk_Recent_Filter 
  129.  
  130.    function Get_Items 
  131.       (Chooser : Gtk_Recent_Chooser) 
  132.        return Gtk.Recent_Manager.Gtk_Recent_Info_List.Glist; 
  133.    --  Gets the list of recently used resources in form of 
  134.    --  Gtk.Recent_Info.Gtk_Recent_Info objects. 
  135.    --  The return value of this function is affected by the "sort-type" and 
  136.    --  "limit" properties of Chooser. 
  137.    --  Since: gtk+ 2.10 
  138.  
  139.    function Get_Limit (Chooser : Gtk_Recent_Chooser) return Gint; 
  140.    pragma Import (C, Get_Limit, "gtk_recent_chooser_get_limit"); 
  141.    --  Gets the number of items returned by Gtk.Recent_Chooser.Get_Items and 
  142.    --  gtk_recent_chooser_get_uris. 
  143.    --  Since: gtk+ 2.10 
  144.  
  145.    procedure Set_Limit (Chooser : Gtk_Recent_Chooser; Limit : Gint); 
  146.    pragma Import (C, Set_Limit, "gtk_recent_chooser_set_limit"); 
  147.    --  Sets the number of items that should be returned by 
  148.    --  Gtk.Recent_Chooser.Get_Items and gtk_recent_chooser_get_uris. 
  149.    --  Since: gtk+ 2.10 
  150.    --  "limit": a positive integer, or -1 for all items 
  151.  
  152.    function Get_Local_Only (Chooser : Gtk_Recent_Chooser) return Boolean; 
  153.    --  Gets whether only local resources should be shown in the recently used 
  154.    --  resources selector. See Gtk.Recent_Chooser.Set_Local_Only 
  155.    --  Since: gtk+ 2.10 
  156.  
  157.    procedure Set_Local_Only 
  158.       (Chooser    : Gtk_Recent_Chooser; 
  159.        Local_Only : Boolean); 
  160.    --  Sets whether only local resources, that is resources using the file:// 
  161.    --  URI scheme, should be shown in the recently used resources selector. If 
  162.    --  Local_Only is True (the default) then the shown resources are guaranteed 
  163.    --  to be accessible through the operating system native file system. 
  164.    --  Since: gtk+ 2.10 
  165.    --  "local_only": True if only local files can be shown 
  166.  
  167.    function Get_Select_Multiple 
  168.       (Chooser : Gtk_Recent_Chooser) return Boolean; 
  169.    --  Gets whether Chooser can select multiple items. 
  170.    --  Since: gtk+ 2.10 
  171.  
  172.    procedure Set_Select_Multiple 
  173.       (Chooser         : Gtk_Recent_Chooser; 
  174.        Select_Multiple : Boolean); 
  175.    --  Sets whether Chooser can select multiple items. 
  176.    --  Since: gtk+ 2.10 
  177.    --  "select_multiple": True if Chooser can select more than one item 
  178.  
  179.    function Get_Show_Icons (Chooser : Gtk_Recent_Chooser) return Boolean; 
  180.    --  Retrieves whether Chooser should show an icon near the resource. 
  181.    --  Since: gtk+ 2.10 
  182.  
  183.    procedure Set_Show_Icons 
  184.       (Chooser    : Gtk_Recent_Chooser; 
  185.        Show_Icons : Boolean); 
  186.    --  Sets whether Chooser should show an icon near the resource when 
  187.    --  displaying it. 
  188.    --  Since: gtk+ 2.10 
  189.    --  "show_icons": whether to show an icon near the resource 
  190.  
  191.    function Get_Show_Not_Found (Chooser : Gtk_Recent_Chooser) return Boolean; 
  192.    --  Retrieves whether Chooser should show the recently used resources that 
  193.    --  were not found. 
  194.    --  Since: gtk+ 2.10 
  195.  
  196.    procedure Set_Show_Not_Found 
  197.       (Chooser        : Gtk_Recent_Chooser; 
  198.        Show_Not_Found : Boolean); 
  199.    --  Sets whether Chooser should display the recently used resources that it 
  200.    --  didn't find. This only applies to local resources. 
  201.    --  Since: gtk+ 2.10 
  202.    --  "show_not_found": whether to show the local items we didn't find 
  203.  
  204.    function Get_Show_Private (Chooser : Gtk_Recent_Chooser) return Boolean; 
  205.    --  Returns whether Chooser should display recently used resources 
  206.    --  registered as private. 
  207.    --  Since: gtk+ 2.10 
  208.  
  209.    procedure Set_Show_Private 
  210.       (Chooser      : Gtk_Recent_Chooser; 
  211.        Show_Private : Boolean); 
  212.    --  Whether to show recently used resources marked registered as private. 
  213.    --  Since: gtk+ 2.10 
  214.    --  "show_private": True to show private items, False otherwise 
  215.  
  216.    function Get_Show_Tips (Chooser : Gtk_Recent_Chooser) return Boolean; 
  217.    --  Gets whether Chooser should display tooltips containing the full path 
  218.    --  of a recently user resource. 
  219.    --  Since: gtk+ 2.10 
  220.  
  221.    procedure Set_Show_Tips 
  222.       (Chooser   : Gtk_Recent_Chooser; 
  223.        Show_Tips : Boolean); 
  224.    --  Sets whether to show a tooltips containing the full path of each 
  225.    --  recently used resource in a Gtk.Recent_Chooser.Gtk_Recent_Chooser 
  226.    --  widget. 
  227.    --  Since: gtk+ 2.10 
  228.    --  "show_tips": True if tooltips should be shown 
  229.  
  230.    function Get_Sort_Type 
  231.       (Chooser : Gtk_Recent_Chooser) return Gtk_Recent_Sort_Type; 
  232.    pragma Import (C, Get_Sort_Type, "gtk_recent_chooser_get_sort_type"); 
  233.    --  Gets the value set by Gtk.Recent_Chooser.Set_Sort_Type. 
  234.    --  Since: gtk+ 2.10 
  235.  
  236.    procedure Set_Sort_Type 
  237.       (Chooser   : Gtk_Recent_Chooser; 
  238.        Sort_Type : Gtk_Recent_Sort_Type); 
  239.    pragma Import (C, Set_Sort_Type, "gtk_recent_chooser_set_sort_type"); 
  240.    --  Changes the sorting order of the recently used resources list displayed 
  241.    --  by Chooser. 
  242.    --  Since: gtk+ 2.10 
  243.    --  "sort_type": sort order that the chooser should use 
  244.  
  245.    function List_Filters 
  246.       (Chooser : Gtk_Recent_Chooser) 
  247.        return Gtk.Recent_Filter.Gtk_Recent_Filter_List.GSlist; 
  248.    --  Gets the Gtk.Recent_Filter.Gtk_Recent_Filter objects held by Chooser. 
  249.    --  Since: gtk+ 2.10 
  250.  
  251.    procedure Remove_Filter 
  252.       (Chooser : Gtk_Recent_Chooser; 
  253.        Filter  : not null access Gtk.Recent_Filter.Gtk_Recent_Filter_Record'Class); 
  254.    --  Removes Filter from the list of Gtk.Recent_Filter.Gtk_Recent_Filter 
  255.    --  objects held by Chooser. 
  256.    --  Since: gtk+ 2.10 
  257.    --  "filter": a Gtk.Recent_Filter.Gtk_Recent_Filter 
  258.  
  259.    procedure Select_All (Chooser : Gtk_Recent_Chooser); 
  260.    pragma Import (C, Select_All, "gtk_recent_chooser_select_all"); 
  261.    --  Selects all the items inside Chooser, if the Chooser supports multiple 
  262.    --  selection. 
  263.    --  Since: gtk+ 2.10 
  264.  
  265.    function Select_Uri 
  266.       (Chooser : Gtk_Recent_Chooser; 
  267.        URI     : UTF8_String) return Boolean; 
  268.    --  Selects Uri inside Chooser. 
  269.    --  Since: gtk+ 2.10 
  270.    --  "uri": a URI 
  271.  
  272.    procedure Set_Sort_Func 
  273.       (Chooser      : Gtk_Recent_Chooser; 
  274.        Sort_Func    : Gtk_Recent_Sort_Func; 
  275.        Data_Destroy : Glib.G_Destroy_Notify_Address); 
  276.    --  Sets the comparison function used when sorting to be Sort_Func. If the 
  277.    --  Chooser has the sort type set to GTK_RECENT_SORT_CUSTOM then the chooser 
  278.    --  will sort using this function. 
  279.    --  To the comparison function will be passed two 
  280.    --  Gtk.Recent_Info.Gtk_Recent_Info structs and Sort_Data; Sort_Func should 
  281.    --  return a positive integer if the first item comes before the second, 
  282.    --  zero if the two items are equal and a negative integer if the first item 
  283.    --  comes after the second. 
  284.    --  Since: gtk+ 2.10 
  285.    --  "sort_func": the comparison function 
  286.    --  "data_destroy": destroy notifier for Sort_Data, or null 
  287.  
  288.    generic 
  289.       type User_Data_Type (<>) is private; 
  290.       with procedure Destroy (Data : in out User_Data_Type) is null; 
  291.    package Set_Sort_Func_User_Data is 
  292.  
  293.       type Gtk_Recent_Sort_Func is access function 
  294.         (A         : Gtk.Recent_Info.Gtk_Recent_Info; 
  295.          B         : Gtk.Recent_Info.Gtk_Recent_Info; 
  296.          User_Data : User_Data_Type) return Gint; 
  297.  
  298.       procedure Set_Sort_Func 
  299.          (Chooser      : Gtk.Recent_Chooser.Gtk_Recent_Chooser; 
  300.           Sort_Func    : Gtk_Recent_Sort_Func; 
  301.           Sort_Data    : User_Data_Type; 
  302.           Data_Destroy : Glib.G_Destroy_Notify_Address); 
  303.       --  Sets the comparison function used when sorting to be Sort_Func. If 
  304.       --  the Chooser has the sort type set to GTK_RECENT_SORT_CUSTOM then the 
  305.       --  chooser will sort using this function. 
  306.       --  To the comparison function will be passed two 
  307.       --  Gtk.Recent_Info.Gtk_Recent_Info structs and Sort_Data; Sort_Func 
  308.       --  should return a positive integer if the first item comes before the 
  309.       --  second, zero if the two items are equal and a negative integer if the 
  310.       --  first item comes after the second. 
  311.       --  Since: gtk+ 2.10 
  312.       --  "sort_func": the comparison function 
  313.       --  "sort_data": user data to pass to Sort_Func, or null 
  314.       --  "data_destroy": destroy notifier for Sort_Data, or null 
  315.  
  316.    end Set_Sort_Func_User_Data; 
  317.  
  318.    procedure Unselect_All (Chooser : Gtk_Recent_Chooser); 
  319.    pragma Import (C, Unselect_All, "gtk_recent_chooser_unselect_all"); 
  320.    --  Unselects all the items inside Chooser. 
  321.    --  Since: gtk+ 2.10 
  322.  
  323.    procedure Unselect_Uri (Chooser : Gtk_Recent_Chooser; URI : UTF8_String); 
  324.    --  Unselects Uri inside Chooser. 
  325.    --  Since: gtk+ 2.10 
  326.    --  "uri": a URI 
  327.  
  328.    ---------------- 
  329.    -- Properties -- 
  330.    ---------------- 
  331.    --  The following properties are defined for this widget. See 
  332.    --  Glib.Properties for more information on properties) 
  333.  
  334.    Filter_Property : constant Glib.Properties.Property_Object; 
  335.    --  Type: Gtk.Recent_Filter.Gtk_Recent_Filter 
  336.    --  The Gtk.Recent_Filter.Gtk_Recent_Filter object to be used when 
  337.    --  displaying the recently used resources. 
  338.  
  339.    Limit_Property : constant Glib.Properties.Property_Int; 
  340.    --  The maximum number of recently used resources to be displayed, or -1 to 
  341.    --  display all items. By default, the GtkSetting:gtk-recent-files-limit 
  342.    --  setting is respected: you can override that limit on a particular 
  343.    --  instance of Gtk.Recent_Chooser.Gtk_Recent_Chooser by setting this 
  344.    --  property. 
  345.  
  346.    Local_Only_Property : constant Glib.Properties.Property_Boolean; 
  347.    --  Whether this Gtk.Recent_Chooser.Gtk_Recent_Chooser should display only 
  348.    --  local (file:) resources. 
  349.  
  350.    Recent_Manager_Property : constant Glib.Properties.Property_Object; 
  351.    --  Type: Gtk.Recent_Manager.Gtk_Recent_Manager 
  352.    --  Flags: write 
  353.    --  The Gtk.Recent_Manager.Gtk_Recent_Manager instance used by the 
  354.    --  Gtk.Recent_Chooser.Gtk_Recent_Chooser to display the list of recently 
  355.    --  used resources. 
  356.  
  357.    Select_Multiple_Property : constant Glib.Properties.Property_Boolean; 
  358.    --  Allow the user to select multiple resources. 
  359.  
  360.    Show_Icons_Property : constant Glib.Properties.Property_Boolean; 
  361.    --  Whether this Gtk.Recent_Chooser.Gtk_Recent_Chooser should display an 
  362.    --  icon near the item. 
  363.  
  364.    Show_Not_Found_Property : constant Glib.Properties.Property_Boolean; 
  365.    --  Whether this Gtk.Recent_Chooser.Gtk_Recent_Chooser should display the 
  366.    --  recently used resources even if not present anymore. Setting this to 
  367.    --  False will perform a potentially expensive check on every local resource 
  368.    --  (every remote resource will always be displayed). 
  369.  
  370.    Show_Private_Property : constant Glib.Properties.Property_Boolean; 
  371.  
  372.    Show_Tips_Property : constant Glib.Properties.Property_Boolean; 
  373.    --  Whether this Gtk.Recent_Chooser.Gtk_Recent_Chooser should display a 
  374.    --  tooltip containing the full path of the recently used resources. 
  375.  
  376.    Sort_Type_Property : constant Gtk.Recent_Chooser.Property_Gtk_Recent_Sort_Type; 
  377.    --  Type: Gtk_Recent_Sort_Type 
  378.    --  Sorting order to be used when displaying the recently used resources. 
  379.  
  380.    ------------- 
  381.    -- Signals -- 
  382.    ------------- 
  383.  
  384.    type Cb_Gtk_Recent_Chooser_Void is not null access procedure (Self : Gtk_Recent_Chooser); 
  385.  
  386.    type Cb_GObject_Void is not null access procedure 
  387.      (Self : access Glib.Object.GObject_Record'Class); 
  388.  
  389.    Signal_Item_Activated : constant Glib.Signal_Name := "item-activated"; 
  390.    procedure On_Item_Activated 
  391.       (Self  : Gtk_Recent_Chooser; 
  392.        Call  : Cb_Gtk_Recent_Chooser_Void; 
  393.        After : Boolean := False); 
  394.    procedure On_Item_Activated 
  395.       (Self  : Gtk_Recent_Chooser; 
  396.        Call  : Cb_GObject_Void; 
  397.        Slot  : not null access Glib.Object.GObject_Record'Class; 
  398.        After : Boolean := False); 
  399.    --  This signal is emitted when the user "activates" a recent item in the 
  400.    --  recent chooser. This can happen by double-clicking on an item in the 
  401.    --  recently used resources list, or by pressing 'Enter'. 
  402.  
  403.    Signal_Selection_Changed : constant Glib.Signal_Name := "selection-changed"; 
  404.    procedure On_Selection_Changed 
  405.       (Self  : Gtk_Recent_Chooser; 
  406.        Call  : Cb_Gtk_Recent_Chooser_Void; 
  407.        After : Boolean := False); 
  408.    procedure On_Selection_Changed 
  409.       (Self  : Gtk_Recent_Chooser; 
  410.        Call  : Cb_GObject_Void; 
  411.        Slot  : not null access Glib.Object.GObject_Record'Class; 
  412.        After : Boolean := False); 
  413.    --  This signal is emitted when there is a change in the set of selected 
  414.    --  recently used resources. This can happen when a user modifies the 
  415.    --  selection with the mouse or the keyboard, or when explicitely calling 
  416.    --  functions to change the selection. 
  417.  
  418.    ---------------- 
  419.    -- Interfaces -- 
  420.    ---------------- 
  421.    --  This class implements several interfaces. See Glib.Types 
  422.    -- 
  423.    --  - "Gtk_Recent_Chooser" 
  424.  
  425.    function "+" (W : Gtk_Recent_Chooser) return Gtk_Recent_Chooser; 
  426.    pragma Inline ("+"); 
  427.  
  428. private 
  429.    Sort_Type_Property : constant Gtk.Recent_Chooser.Property_Gtk_Recent_Sort_Type := 
  430.      Gtk.Recent_Chooser.Build ("sort-type"); 
  431.    Show_Tips_Property : constant Glib.Properties.Property_Boolean := 
  432.      Glib.Properties.Build ("show-tips"); 
  433.    Show_Private_Property : constant Glib.Properties.Property_Boolean := 
  434.      Glib.Properties.Build ("show-private"); 
  435.    Show_Not_Found_Property : constant Glib.Properties.Property_Boolean := 
  436.      Glib.Properties.Build ("show-not-found"); 
  437.    Show_Icons_Property : constant Glib.Properties.Property_Boolean := 
  438.      Glib.Properties.Build ("show-icons"); 
  439.    Select_Multiple_Property : constant Glib.Properties.Property_Boolean := 
  440.      Glib.Properties.Build ("select-multiple"); 
  441.    Recent_Manager_Property : constant Glib.Properties.Property_Object := 
  442.      Glib.Properties.Build ("recent-manager"); 
  443.    Local_Only_Property : constant Glib.Properties.Property_Boolean := 
  444.      Glib.Properties.Build ("local-only"); 
  445.    Limit_Property : constant Glib.Properties.Property_Int := 
  446.      Glib.Properties.Build ("limit"); 
  447.    Filter_Property : constant Glib.Properties.Property_Object := 
  448.      Glib.Properties.Build ("filter"); 
  449.  
  450. Null_Gtk_Recent_Chooser : constant Gtk_Recent_Chooser := 
  451.    Gtk_Recent_Chooser (Glib.Types.Null_Interface); 
  452. end Gtk.Recent_Chooser;