Attachment #265745 for bug #348418

View | Details | Raw Unified | Return to bug 348418
Collapse All | Expand All

Lines 159-165 package Gdk.Cursor is Link Here

(-)a/src/gdk-cursor.ads (-1 / +1 lines)
159	-- Create a cursor from a name	159	-- Create a cursor from a name
160		160
161	procedure Destroy (Cursor : Gdk_Cursor);	161	procedure Destroy (Cursor : Gdk_Cursor);
162	pragma Obsolescent; -- Destroy	162	pragma Obsolescent (Entity => Destroy);
163	-- Destroy a cursor, freeing any resources allocated for it.	163	-- Destroy a cursor, freeing any resources allocated for it.
164	-- Deprecated, use Unref instead.	164	-- Deprecated, use Unref instead.
165		165

Lines 228-238 package Gtk.About_Dialog is Link Here

(-)a/src/gtk-about_dialog.ads (-2 / +2 lines)
228	procedure Set_Name	228	procedure Set_Name
229	(About : access Gtk_About_Dialog_Record; Name : String)	229	(About : access Gtk_About_Dialog_Record; Name : String)
230	renames Set_Program_Name;	230	renames Set_Program_Name;
231	pragma Obsolescent; -- Set_Name	231	-- pragma Obsolescent; -- Set_Name
232	function Get_Name	232	function Get_Name
233	(About : access Gtk_About_Dialog_Record) return String	233	(About : access Gtk_About_Dialog_Record) return String
234	renames Get_Program_Name;	234	renames Get_Program_Name;
235	pragma Obsolescent; -- Get_Name	235	-- pragma Obsolescent; -- Get_Name
236	-- Returns the program name displayed in the about dialog.	236	-- Returns the program name displayed in the about dialog.
237		237
238	----------------	238	----------------





   function Gtk_Widget_Get_Action
     (Widget : access Gtk.Widget.Gtk_Widget_Record) return Gtk_Action;
   pragma Obsolescent (Entity => Gtk_Widget_Get_Action);
   --  Returns the action that Widget is a proxy for.
   --  See also Get_Proxies.
   --  Since: 2.10

   procedure Connect_Proxy
     (Action : access Gtk_Action_Record;
      Proxy  : access Gtk.Widget.Gtk_Widget_Record'Class);
   pragma Obsolescent (Entity => Connect_Proxy);
   procedure Disconnect_Proxy
     (Action : access Gtk_Action_Record;
      Proxy  : access Gtk.Widget.Gtk_Widget_Record'Class);
   pragma Obsolescent (Entity => Disconnect_Proxy);
   --  Connects a widget to an action object as a proxy. Synchronises various
   --  properties of the action with the widget (such as label text, icon,
   --  tooltip, etc), and attaches a callback so that the action gets activated

   procedure Block_Activate_From
     (Action : access Gtk_Action_Record;
      Proxy  : access Gtk.Widget.Gtk_Widget_Record'Class);
   pragma Obsolescent (Entity => Block_Activate_From);
   procedure Unblock_Activate_From
     (Action : access Gtk_Action_Record;
      Proxy  : access Gtk.Widget.Gtk_Widget_Record'Class);
   pragma Obsolescent (Entity => Unblock_Activate_From);
   --  Disables calls to the Activate function by signals on the given proxy
   --  widget. This is used to break notification loops for things like check
   --  or radio actions.




   procedure Pack_Start_Defaults
     (In_Box  : access Gtk_Box_Record;
      Child   : access Gtk.Widget.Gtk_Widget_Record'Class);
   pragma Obsolescent (Entity => Pack_Start_Defaults);
   --  This is the same as Pack_Start if you use the default parameter values.
   --  It is provided for backward compatibility only.

   procedure Pack_End_Defaults
     (In_Box  : access Gtk_Box_Record;
      Child   : access Gtk.Widget.Gtk_Widget_Record'Class);
   pragma Obsolescent (Entity => Pack_End_Defaults);
   --  This is the same as Pack_End if you use the default parameter values.
   --  It is provided for backward compatibility only.





     (Button_Box : access Gtk_Button_Box_Record;
      Min_Width  : Gint;
      Min_Height : Gint);
   pragma Obsolescent (Entity => Set_Child_Size);
   --  Set the size to use for children of this specific box.
   --  You can modify the size for all the boxes at once by using
   --  Set_Child_Size_Default.

     (Button_Box : access Gtk_Button_Box_Record;
      Min_Width  : out Gint;
      Min_Height : out Gint);
   pragma Obsolescent (Entity => Get_Child_Size);
   --  Return the size to use for children of this specific box.
   --  Min_Width and Min_Height are set to -1 if this widget uses the default
   --  sizes that are set by Set_Child_Size_Default.

     (Button_Box : access Gtk_Button_Box_Record;
      Ipad_X     : Gint;
      Ipad_Y     : Gint);
   pragma Obsolescent (Entity => Set_Child_Ipadding);
   --  no-op procedure.

   --  </doc_ignore>




   procedure Display_Options
     (Calendar : access Gtk_Calendar_Record;
      Flags    : Gtk_Calendar_Display_Options);
   pragma Obsolescent (Entity => Display_Options);
   --  Change the display options.
   --  See individual Display_Option flags for more details.

   procedure Freeze (Calendar : access Gtk_Calendar_Record);
   pragma Obsolescent (Entity => Freeze);
   --  Lock the display of the calendar until it is thawed.

   procedure Thaw (Calendar : access Gtk_Calendar_Record);
   pragma Obsolescent (Entity => Thaw);
   --  Defrost a calendar.
   --  All the changes made since the last Freeze are displayed.


Lines 65-71 with Gtkada.Types; Link Here

(-)a/src/gtk-clist.ads (-1 / +1 lines)
65	with Unchecked_Conversion;	65	with Unchecked_Conversion;
66		66
67	package Gtk.Clist is	67	package Gtk.Clist is
68	pragma Obsolescent ("Use Gtk.Tree_View instead");	68	pragma Obsolescent (Entity => Clist, "Use Gtk.Tree_View instead");
69		69
70	type Gtk_Clist_Record is new Gtk.Container.Gtk_Container_Record	70	type Gtk_Clist_Record is new Gtk.Container.Gtk_Container_Record
71	with private;	71	with private;




   procedure Set_Update_Policy
     (Colorsel : access Gtk_Color_Selection_Record;
      Policy   : Enums.Gtk_Update_Type);
   pragma Obsolescent (Entity => Set_Update_Policy);
   --  Set the behavior of the scales used to select a value (red, green,...)
   --  Set Policy to Update_Continuous if you want to update the color
   --  continuously as the slider is mode, Update_Discontinuous to update the

   procedure Set_Color
     (Colorsel : access Gtk_Color_Selection_Record;
      Color    : Color_Array);
   pragma Obsolescent (Entity => Set_Color, "Use Set_Current_Color");
   --  Modify the current color.
   --  Note that Color is an array of percentages, between 0.0 and 1.0, not
   --  absolute values.

   procedure Get_Color
     (Colorsel : access Gtk_Color_Selection_Record;
      Color    : out Color_Array);
   pragma Obsolescent (Entity => Get_Color, "Use Get_Current_Color");
   --  Get the current color.
   --  Note that Color is an array of percentages, between 0.0 and 1.0, not
   --  absolute values.

Lines 66-72 with Gtk.Window; Link Here

(-)a/src/gtk-combo.ads (-1 / +1 lines)
66	with Gtk.Enums; use Gtk.Enums;	66	with Gtk.Enums; use Gtk.Enums;
67		67
68	package Gtk.Combo is	68	package Gtk.Combo is
69	pragma Obsolescent;	69	pragma Obsolescent (Entity => Combo);
70		70
71	type Gtk_Combo_Record is new Gtk.Box.Gtk_Box_Record with private;	71	type Gtk_Combo_Record is new Gtk.Box.Gtk_Box_Record with private;
72	type Gtk_Combo is access all Gtk_Combo_Record'Class;	72	type Gtk_Combo is access all Gtk_Combo_Record'Class;

Lines 65-71 with Gtk.Style; Link Here

(-)a/src/gtk-ctree.ads (-1 / +1 lines)
65	with Gtkada.Types; use Gtkada.Types;	65	with Gtkada.Types; use Gtkada.Types;
66		66
67	package Gtk.Ctree is	67	package Gtk.Ctree is
68	pragma Obsolescent ("use Gtk.Tree_View instead");	68	pragma Obsolescent (Entity => Ctree, "use Gtk.Tree_View instead");
69	pragma Elaborate_Body;	69	pragma Elaborate_Body;
70		70
71	pragma Warnings (Off); -- Gtk.Clist is obsolescent;	71	pragma Warnings (Off); -- Gtk.Clist is obsolescent;

Lines 437-443 package Gtk.Dnd is Link Here

(-)a/src/gtk-dnd.ads (-1 / +1 lines)
437	Mask : Gdk.Bitmap.Gdk_Bitmap;	437	Mask : Gdk.Bitmap.Gdk_Bitmap;
438	Hot_X : Gint;	438	Hot_X : Gint;
439	Hot_Y : Gint);	439	Hot_Y : Gint);
440	pragma Obsolescent; -- Set_Default_Icon	440	pragma Obsolescent (Entity => Set_Default_Icon);
441	-- Change the default drag icon. GtkAda retains a reference count for the	441	-- Change the default drag icon. GtkAda retains a reference count for the
442	-- arguments, and will release them when they are no longer needed.	442	-- arguments, and will release them when they are no longer needed.
443	-- This procedure is deprecated.	443	-- This procedure is deprecated.

Lines 87-93 package Gtk.Drawing_Area is Link Here

(-)a/src/gtk-drawing_area.ads (-1 / +1 lines)
87	(Darea : access Gtk_Drawing_Area_Record;	87	(Darea : access Gtk_Drawing_Area_Record;
88	Width : Gint;	88	Width : Gint;
89	Height : Gint);	89	Height : Gint);
90	pragma Obsolescent; -- Size	90	pragma Obsolescent (Entity => Size);
91	-- Request a new size for the area.	91	-- Request a new size for the area.
92	-- This queues a resize request for the area.	92	-- This queues a resize request for the area.
93		93

Lines 78-84 package Gtk.File_Chooser_Button is Link Here

(-)a/src/gtk-file_chooser_button.ads (-1 / +1 lines)
78	Title : String;	78	Title : String;
79	Action : Gtk.File_Chooser.File_Chooser_Action;	79	Action : Gtk.File_Chooser.File_Chooser_Action;
80	Backend : String);	80	Backend : String);
81	pragma Obsolescent; -- Gtk_New_With_Backend	81	pragma Obsolescent (Entity => Gtk_New_With_Backend);
82	procedure Initialize_With_Backend	82	procedure Initialize_With_Backend
83	(Button : access Gtk_File_Chooser_Button_Record'Class;	83	(Button : access Gtk_File_Chooser_Button_Record'Class;
84	Title : String;	84	Title : String;




     (Widget  : out Gtk_File_Chooser_Widget;
      Action  : Gtk.File_Chooser.File_Chooser_Action;
      Backend : String);
   pragma Obsolescent (Entity => Gtk_New_With_Backend);
   procedure Initialize_With_Backend
     (Widget  : access Gtk_File_Chooser_Widget_Record'Class;
      Action  : Gtk.File_Chooser.File_Chooser_Action;
      Backend : String);
   pragma Obsolescent (Entity => Initialize_With_Backend);
   --  Creates a new file chooser with a specified backend.  This is
   --  especially useful if you use Gtk.File_Chooser.Set_Local_Only to allow
   --  non-local files.  This is a file chooser widget that can be embedded in

Lines 159-165 package Gtk.Font_Selection is Link Here

(-)a/src/gtk-font_selection.ads (-2 / +2 lines)
159		159
160	function Get_Font	160	function Get_Font
161	(Fontsel : access Gtk_Font_Selection_Record) return Gdk.Font.Gdk_Font;	161	(Fontsel : access Gtk_Font_Selection_Record) return Gdk.Font.Gdk_Font;
162	pragma Obsolescent; -- Get_Font	162	pragma Obsolescent (Entity => Get_Font);
163	-- Allocate and return the font selected by the user.	163	-- Allocate and return the font selected by the user.
164	-- This newly created font can be used as is by all the drawing functions	164	-- This newly created font can be used as is by all the drawing functions
165	-- in the Gdk.Drawable package.	165	-- in the Gdk.Drawable package.
Lines 167-173 package Gtk.Font_Selection is Link Here
167		167
168	function Get_Font	168	function Get_Font
169	(Fsd : access Gtk_Font_Selection_Dialog_Record) return Gdk.Font.Gdk_Font;	169	(Fsd : access Gtk_Font_Selection_Dialog_Record) return Gdk.Font.Gdk_Font;
170	pragma Obsolescent; -- Dialog_Get_Font	170	pragma Obsolescent (Entity => Get_Font); -- Dialog_Get_Font
171	-- Allocate and return the font selected by the user.	171	-- Allocate and return the font selected by the user.
172	-- This newly created font can be used as is by all the drawing functions	172	-- This newly created font can be used as is by all the drawing functions
173	-- in the Gdk.Drawable package.	173	-- in the Gdk.Drawable package.




   --  <doc_ignore>

   procedure Gtk_New (Widget : out Gtk_Entry; Max : Gint);
   pragma Obsolescent (Entity => Gtk_New);  --  New_With_Max_Length
   --  Create a new entry with a maximum length for the text.
   --  The text can never be longer than Max characters.

   procedure Initialize
     (Widget : access Gtk_Entry_Record'Class; Max : Gint);
   pragma Obsolescent (Entity => Initialize);
   --  Internal initialization function.
   --  See the section "Creating your own widgets" in the documentation.

   procedure Append_Text
     (The_Entry : access Gtk_Entry_Record; Text : UTF8_String);
   pragma Obsolescent (Entity => Append_Text, "See Gtk.Editable.Insert_Text");
   --  Append a new string at the end of the existing one.

   procedure Prepend_Text
     (The_Entry : access Gtk_Entry_Record; Text : UTF8_String);
   pragma Obsolescent (Entity => Prepend_Text,
     "See Gtk.Editable.Insert_Text");
   --  Insert some text at the beginning of the entry.

   procedure Set_Editable
     (The_Entry : access Gtk_Entry_Record; Editable : Boolean);
   pragma Obsolescent (Entity => Set_Editable);

   function Get_Chars (The_Entry : access Gtk_Entry_Record) return UTF8_String
                       renames Get_Text;




   --  <doc_ignore>

   procedure Set_Spacing_Default (Spacing : in Gint);
   pragma Obsolescent (Entity => Set_Spacing_Default);
   --  Set the default spacing (space between two adjacent children).
   --  This is done for all the Hbutton_Boxes in your application. This can be
   --  overridden for a specific box by calling Gtk.Button_Box.Set_Spacing.

   function Get_Spacing_Default return Gint;
   pragma Obsolescent (Entity => Get_Spacing_Default);
   --  Return the default spacing to use for all Hbutton_Boxes in your
   --  application that don't have a specific value.

   procedure Set_Layout_Default (Layout : Gtk.Enums.Gtk_Button_Box_Style);
   pragma Obsolescent (Entity => Set_Layout_Default);
   --  Set the the default layout to use for all the hbutton_boxes in your
   --  application that don't have a specific value set by
   --  Gtk.Button_Box.Set_Layout. The default value is Buttonbox_Edge.

   function Get_Layout_Default return Gtk.Enums.Gtk_Button_Box_Style;
   pragma Obsolescent (Entity => Get_Layout_Default);
   --  Return the default layout to use for all the hbutton_boxes.

   --  </doc_ignore>

Lines 41-47 with Gtk.Object; Link Here

(-)a/src/gtk-item_factory.ads (-1 / +1 lines)
41	with Gtkada.Types;	41	with Gtkada.Types;
42		42
43	package Gtk.Item_Factory is	43	package Gtk.Item_Factory is
44	pragma Obsolescent;	44	pragma Obsolescent (Entity => Item_Factory);
45		45
46	type Gtk_Item_Factory_Record is new Object.Gtk_Object_Record with private;	46	type Gtk_Item_Factory_Record is new Object.Gtk_Object_Record with private;
47	type Gtk_Item_Factory is access all Gtk_Item_Factory_Record'Class;	47	type Gtk_Item_Factory is access all Gtk_Item_Factory_Record'Class;




   --  <doc_ignore>

   function Get_Width (Layout : access Gtk_Layout_Record) return Guint;
   pragma Obsolescent (Entity => Get_Width);
   --  Deprecated, only provided for compatibility, see Get_Size

   function Get_Height (Layout : access Gtk_Layout_Record) return Guint;

   --  Deprecated, only provided for compatibility, see Get_Size

   procedure Freeze (Layout : access Gtk_Layout_Record);
   pragma Obsolescent (Entity => Freeze);
   --  Deprecated, only provided for compatibility.

   procedure Thaw (Layout : access Gtk_Layout_Record);
   pragma Obsolescent (Entity => Thaw);
   --  Deprecated, only provided for compatibility.

   --  </doc_ignore>

Lines 38-44 with Gtk.Enums; use Gtk.Enums; Link Here

(-)a/src/gtk-list.ads (-1 / +1 lines)
38	with Gtk.Widget; use Gtk.Widget;	38	with Gtk.Widget; use Gtk.Widget;
39		39
40	package Gtk.List is	40	package Gtk.List is
41	pragma Obsolescent; -- Gtk.List	41	pragma Obsolescent (Entity => List);
42		42
43	type Gtk_List_Record is new Gtk.Container.Gtk_Container_Record with private;	43	type Gtk_List_Record is new Gtk.Container.Gtk_Container_Record with private;
44	type Gtk_List is access all Gtk_List_Record'Class;	44	type Gtk_List is access all Gtk_List_Record'Class;

Lines 33-39 Link Here

(-)a/src/gtk-list_item.ads (-1 / +1 lines)
33	with Gtk.Item;	33	with Gtk.Item;
34		34
35	package Gtk.List_Item is	35	package Gtk.List_Item is
36	pragma Obsolescent;	36	pragma Obsolescent (Entity => List_Item);
37		37
38	type Gtk_List_Item_Record is new Gtk.Item.Gtk_Item_Record with private;	38	type Gtk_List_Item_Record is new Gtk.Item.Gtk_Item_Record with private;
39	type Gtk_List_Item is access all Gtk_List_Item_Record'Class;	39	type Gtk_List_Item is access all Gtk_List_Item_Record'Class;




   --  <doc_ignore>

   procedure Gtk_Exit (Error_Code : Gint);
   pragma Obsolescent (Entity => Gtk_Exit);
   --  Terminate GtkAda.
   --  Deprecated, use Main_Quit instead.


     (Cb       : Idle_Callback;
      Priority : Idle_Priority := Priority_Default_Idle)
      return Idle_Handler_Id;
   pragma Obsolescent (Entity => Idle_Add, "Use Glib.Main.Idle_Add");
     -- Idle_Add_Full
   --  Register an idle callback with no user data.

   generic

         Priority : Idle_Priority := Priority_Default_Idle;
         Destroy  : Destroy_Callback := null)
         return Idle_Handler_Id;
      pragma Obsolescent (Entity => Add, "Use Glib.Main.Idle");

   private
      procedure Free_Data (D : System.Address);

   --  to Idle_Remove.

   procedure Idle_Remove (Id : Idle_Handler_Id);
   pragma Obsolescent (Entity => Idle_Remove, "Use Glib.Main.Idle_Remove");
   --  Remove an idle callback, when its Id is known.

   type Timeout_Handler_Id is new Guint;

   function Timeout_Add
     (Interval : Guint32;
      Func : Timeout_Callback) return Timeout_Handler_Id;
   pragma Obsolescent (Entity => Timeout_Add, "Use Glib.Main.Timeout_Add");
   --  Add a new timeout. Func will be called after Interval milliseconds.
   --  The function will be called as long as it returns True.


         Func     : Callback;
         D        : Data_Type;
         Destroy  : Destroy_Callback := null) return Timeout_Handler_Id;
      pragma Obsolescent (Entity => Add, "Use Glib.Main.Timeout");
      --  Adds a new timeout. Func will be called after Interval milliseconds.

   private

   end Timeout;

   procedure Timeout_Remove (Id : Timeout_Handler_Id);
   pragma Obsolescent (Entity => Timeout_Remove,
     "Use Glib.Main.Timeout_Remove");
   --  Unregister a timeout function.

   function Set_Locale return String;
   pragma Obsolescent (Entity => Set_Locale);
   --  Read and parse the local settings, such as time format, ...
   --  Return the name of the local settings, which can also be set with
   --  the environment variable LOCALE

   procedure Set_Locale;
   pragma Obsolescent (Entity => Set_Locale);
   --  Read and parse the local settings, such as time format, ...

   procedure Init_Add (Func : Init_Function; Data : System.Address);
   pragma Obsolescent (Entity => Init_Add);
   --  Register a function to be called just before starting a main loop.
   --  This function is called only once, even if a new main loop is started
   --  recursively.

   function Quit_Add
     (Main_Level : Guint; Func : Quit_Function) return Quit_Handler_Id;
   pragma Obsolescent (Entity => Quit_Add);
   --  Register a new function to be called when the current main loop exits.
   --  The function will be called once when the current main loop exists.
   --  If it returns False, it will then be deleted from the list of

     (Main_Level : Guint;
      Object     : access Gtk.Object.Gtk_Object_Record'Class)
      return Quit_Handler_Id;
   pragma Obsolescent (Entity => Quit_Add_Destroy);
   --  Ensure that Object is destroyed when exiting the main loop at Main_Level
   --  (or the current main loop level is 0).

   procedure Quit_Remove (Id : Quit_Handler_Id);
   pragma Obsolescent (Entity => Quit_Remove);
   --  Remove a Quit Handler, that has been previously set by Quit_Add.

   --  </doc_ignore>

Lines 134-140 package Gtk.Menu_Item is Link Here

(-)a/src/gtk-menu_item.ads (-2 / +2 lines)
134	-- <doc_ignore>	134	-- <doc_ignore>
135		135
136	procedure Remove_Submenu (Menu_Item : access Gtk_Menu_Item_Record);	136	procedure Remove_Submenu (Menu_Item : access Gtk_Menu_Item_Record);
137	pragma Obsolescent; -- Remove_Submenu	137	pragma Obsolescent (Entity => Remove_Submenu);
138	-- Remove the menu_item's submenu	138	-- Remove the menu_item's submenu
139	--	139	--
140	-- Deprecated: 2.12: Remove_Submenu deprecated and should not be used	140	-- Deprecated: 2.12: Remove_Submenu deprecated and should not be used
Lines 147-153 package Gtk.Menu_Item is Link Here
147	-- This procedure is needed by Gate to automate the code generation.	147	-- This procedure is needed by Gate to automate the code generation.
148		148
149	procedure Right_Justify (Menu_Item : access Gtk_Menu_Item_Record);	149	procedure Right_Justify (Menu_Item : access Gtk_Menu_Item_Record);
150	pragma Obsolescent;	150	pragma Obsolescent (Entity => Right_Justify);
151	-- Use Set_Right_Justified with Justify = True instead.	151	-- Use Set_Right_Justified with Justify = True instead.
152		152
153	-- </doc_ignore>	153	-- </doc_ignore>

Lines 85-91 package Gtk.Menu_Tool_Button is Link Here

(-)a/src/gtk-menu_tool_button.ads (-1 / +1 lines)
85	Tooltips : access Gtk.Tooltips.Gtk_Tooltips_Record'Class;	85	Tooltips : access Gtk.Tooltips.Gtk_Tooltips_Record'Class;
86	Tip_Text : String;	86	Tip_Text : String;
87	Tip_Private : String := "");	87	Tip_Private : String := "");
88	pragma Obsolescent; -- Set_Arrow_Tooltip	88	pragma Obsolescent (Entity => Set_Arrow_Tooltip);
89	-- Set the tooltip set on the arrow button that will display the menu when	89	-- Set the tooltip set on the arrow button that will display the menu when
90	-- clicked on.	90	-- clicked on.
91	--	91	--




     (Func     : Gtk_Notebook_Window_Creation_Func;
      Data     : System.Address;
      Destroy  : Glib.G_Destroy_Notify_Address);
   pragma Obsolescent (Entity => Set_Window_Creation_Hook);
   --  Install a global function used to create a window when a detached tab
   --  is dropped in an empty area.


      Expand     : out Boolean;
      Fill       : out Boolean;
      Pack_Type  : out Gtk.Enums.Gtk_Pack_Type);
   pragma Obsolescent (Entity => Query_Tab_Label_Packing);
   --  Return the packing used for the tab associated with the page
   --  that contains Child.
   --  See the Gtk.Box package for more information on the parameters.

      Expand    : Boolean;
      Fill      : Boolean;
      Pack_Type : Gtk.Enums.Gtk_Pack_Type);
   pragma Obsolescent (Entity => Set_Tab_Label_Packing);
   --  Modify the packing used for the tab associated with the page that
   --  contains Child.



   function Get_Group (Notebook : access Gtk_Notebook_Record)
      return Gtk_Notebook_Group;
   pragma Obsolescent (Entity => Get_Group);
   procedure Set_Group
     (Notebook : access Gtk_Notebook_Record;
      Group    : Gtk_Notebook_Group);
   pragma Obsolescent (Entity => Set_Group);
   --  Gets/Sets a group identificator pointer for Notebook, notebooks sharing
   --  the same group identificator pointer will be able to exchange tabs
   --  via drag and drop. A notebook with a null group identificator will


   function Get_Children
     (Widget : access Gtk_Notebook_Record) return Page_List.Glist;
   pragma Obsolescent (Entity => Get_Children);
   --  Return the list of all pages in the notebook.

   procedure Set_Homogeneous_Tabs
     (Notebook    : access Gtk_Notebook_Record;
      Homogeneous : Boolean := True);
   pragma Obsolescent (Entity => Set_Homogeneous_Tabs);
   --  Indicate whether all the tabs should have the same size (width or
   --  height, depending on which side they are displayed on).

   procedure Set_Tab_Border
     (Notebook     : access Gtk_Notebook_Record;
      Border_Width : Gint);
   pragma Obsolescent (Entity => Set_Tab_Border);
   --  Change the width of the tabs' borders.
   --  This modifies both the horizontal border and the vertical border.

   procedure Set_Tab_Hborder
     (Notebook     : access Gtk_Notebook_Record;
      Border_Width : Gint);
   pragma Obsolescent (Entity => Set_Tab_Hborder);
   --  Modify the width of the horizontal borders of the tabs.

   procedure Set_Tab_Vborder
     (Notebook     : access Gtk_Notebook_Record;
      Border_Width : Gint);
   pragma Obsolescent (Entity => Set_Tab_Vborder);
   --  Modify the height of the vertical borders of the tabs.

   procedure Set_Group_Id
     (Notebook : access Gtk_Notebook_Record; Group_Id : Gint);
   pragma Obsolescent (Entity => Set_Group_Id);
   --  Set a group identificator for Notebook. Notebooks sharing
   --  the same group identificator will be able to exchange tabs
   --  via drag and drop. A notebook with group identificator -1 will
   --  not be able to exchange tabs with any other notebook.

   function Get_Group_Id (Notebook : access Gtk_Notebook_Record) return Gint;
   pragma Obsolescent (Entity => Get_Group_Id);
   --  Gets the current group identificator for Notebook or -1 if not set.

   --  </doc_ignore>

Lines 246-252 package Gtk.Object is Link Here

(-)a/src/gtk-object.ads (-1 / +1 lines)
246	-- <doc_ignore>	246	-- <doc_ignore>
247		247
248	procedure Sink (Object : access Gtk_Object_Record);	248	procedure Sink (Object : access Gtk_Object_Record);
249	pragma Obsolescent (Sink);	249	pragma Obsolescent (Entity => Sink);
250	-- Sink the object.	250	-- Sink the object.
251	-- If the object is floating (does not have a parent yet), it is unref-ed	251	-- If the object is floating (does not have a parent yet), it is unref-ed
252	-- once and the floating flag is cleared.	252	-- once and the floating flag is cleared.




-----------------------------------------------------------------------
--               GtkAda - Ada95 binding for Gtk+/Gnome               --
--                                                                   --
--   Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet   --
--                Copyright (C) 2000-2011, AdaCore                   --
--                                                                   --
-- This library is free software; you can redistribute it and/or     --
-- modify it under the terms of the GNU General Public               --
-- License as published by the Free Software Foundation; either      --
-- version 2 of the License, or (at your option) any later version.  --
--                                                                   --
-- This library is distributed in the hope that it will be useful,   --
-- but WITHOUT ANY WARRANTY; without even the implied warranty of    --
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU --
-- General Public License for more details.                          --
--                                                                   --
-- You should have received a copy of the GNU General Public         --
-- License along with this library; if not, write to the             --
-- Free Software Foundation, Inc., 59 Temple Place - Suite 330,      --
-- Boston, MA 02111-1307, USA.                                       --
--                                                                   --
-- As a special exception, if other files instantiate generics from  --
-- this unit, or you link this unit with other files to produce an   --
-- executable, this  unit  does not  by itself cause  the resulting  --
-- executable to be covered by the GNU General Public License. This  --
-- exception does not however invalidate any other reasons why the   --
-- executable file  might be covered by the  GNU Public License.     --
-----------------------------------------------------------------------

--  <description>
--  This is the base class of the widget hierarchy.
--  Everything in GtkAda inherits from this class Gtk_Object, except for a few
--  structures in the Gdk.* packages (low-level drawing routines).
--
--  This class provides a set of handful features that you can choose to reuse
--  in your applications:
--
--  - Reference counting: an object is not deleted while there exists at least
--    one reference to it. Although GtkAda mostly takes care of that aspect
--    transparently, you might need in some obscure cases to increment or
--    decrement the reference counting for a widget manually, so that it is not
--    removed from memory while you still need it.
--
--  - User data: any number of data can be attached to a Gtk_Object or one of
--    its children. Theses data are referenced by a String, in a hash-table.
--    GtkAda itself uses this feature to provide an easy conversion between C
--    and Ada widgets.
--    Although you might prefer to have a completely object-oriented
--    application (and thus associate data through class inheritance), it
--    might be convenient to directly attach some data to your objects.
--
--  - It also contains the basic structures and subprograms required for signal
--    emission. This is of course used to implement the signal mechanism in
--    GtkAda itself, but can also be used to implement a Model/View/Controller
--    framework.
--
--  Note that a lot of functions provided in the C interface are not provided
--  here. They are used to emulate an object-oriented language in C, which can
--  of course be done much more conveniently in Ada. Therefore most of these
--  functions are not needed.
--
--  Here is a brief explanation on how the reference counting and destruction
--  process work. You should not have to understand all this to use GtkAda, but
--  it might help anyway.
--
--  When an object (descendant of Gtk.Object) is created, it has initially a
--  ref_count of 1. A flag is set to say the object is "floating".  See the
--  Flags functions in this package for how to retrieve the status of this
--  flag.
--
--  When the object gets a parent (ie Gtk.Widget.Set_Parent is called, possibly
--  from other subprograms like Gtk.Container.Add, Gtk.Box.Pack_Start, ...),
--  the ref_count of the object is incremented to 2.
--  If the object was still "floating", it is also "sinked", ie its ref_count
--  is decremented to 1, and the "floating" flag is cleared.
--
--  The same behavior as above happens when the object is registered as a
--  top-level widget (i.e. we know it won't have any parent).
--
--  Thus the normal life cycle of an object is to have a ref_count to 1, and
--  not be a "floating" object.
--
--  When the object is destroyed, the following happens:
--     A temporary reference to the object is created (call to Ref), and
--        ref_count to 2.
--     The object is shutdown:
--        It is removed from its parent (if any), and its ref_count is
--          decremented to 1.
--        The "destroy" signal is emitted, the user's handlers are called,
--          and then all the handlers connected to the object are destroyed.
--     The object is unref-ed. If its ref_count goes down to 0 (normal case),
--        the memory used by the object and its user_data is freed.
--
--  </description>
--  <c_version>2.8.17</c_version>
--  <group>Abstract base classes</group>

with Glib.Object;
with Glib.Properties;
with Glib.GSlist;
with Gtkada.Types;

package Gtk.Object is

   type Gtk_Object_Record is new Glib.Object.GObject_Record with private;
   type Gtk_Object is access all Gtk_Object_Record'Class;

   procedure Destroy (Object : access Gtk_Object_Record);
   --  Destroy the object.
   --  This emits a "destroy" signal, calls all your handlers, and then
   --  unconnects them all. The object is then unref-ed, and if its reference
   --  count goes down to 0, the memory associated with the object and its
   --  user data is freed.
   --  Note that when you destroy handlers are called, the user_data is still
   --  available.
   --
   --  When a widget is destroyed, it will break any references it holds to
   --  other objects. If the widget is inside a container, the widget will be
   --  removed from the container. If the widget is a toplevel (derived from
   --  Gtk_Window), it will be removed from the list of toplevels, and the
   --  reference GTK+ holds to it will be removed. Removing widget from its
   --  container or the list of toplevels results in the widget being
   --  finalized, unless you've added additional references to the widget with
   --  Ref.
   --
   --  In most cases, only toplevel widgets (windows) require explicit
   --  destruction, because when you destroy a toplevel its children will be
   --  destroyed as well.

   function Get_Type return Gtk.Gtk_Type;
   --  Return the internal value associated with a Gtk_Object internally.
   pragma Import (C, Get_Type, "gtk_object_get_type");

   function Get_Type (Object : access Gtk_Object_Record) return Gtk_Type;
   --  This function is now obsolete, and is temporarily kept for backward
   --  compatibility only. Use Glib.Object.Get_Type instead.
   --  ???

   -----------
   -- Lists --
   -----------

   function Convert (W : Gtk_Object) return System.Address;
   function Convert (W : System.Address) return Gtk_Object;

   package Object_SList is new Glib.GSlist.Generic_SList (Gtk_Object);

   -----------
   -- Flags --
   -----------
   --  Each object is associated with a set of flags, that reports the state
   --  of the object.
   --  The following flags are known by all objects:
   --
   --  - "Destroyed":
   --     Set if the object is marked as destroyed (if its reference count is
   --     not yet 0, the memory has not been freed, but you should not use it
   --     anyway).
   --
   --  - "Floating":
   --     The object has no parent yet, since it was just created. Its
   --     reference count is still 1 (as it was initially). This flag is
   --     cleared as soon as Set_Parent is called on the widget or the widget
   --     is qualified as a toplevel widget (see
   --     Gtk.Container.Register_Toplevel).

   In_Destruction : constant := 2 ** 0;
   Floating       : constant := 2 ** 1;
   Reserved_1     : constant := 2 ** 2;
   Reserved_2     : constant := 2 ** 3;

   function Flags (Object : access Gtk_Object_Record) return Guint32;
   --  Return the flags that are set for the object, as a binary mask.

   procedure Set_Flags (Object : access Gtk_Object_Record; Flags : Guint32);
   --  Set some specific flags for the object.
   --  Flags is a mask that will be added to the current flags of the object.

   procedure Unset_Flags (Object : access Gtk_Object_Record; Flags : Guint32);
   --  Unset some specific flags for the object.
   --  Flags is a mask that will be deleted from the current flags of the
   --  object.

   function Flag_Is_Set
     (Object : access Gtk_Object_Record; Flag : Guint32) return Boolean;
   --  Return True if the specific flag Flag is set for the object.

   function In_Destruction_Is_Set
     (Object : access Gtk_Object_Record'Class) return Boolean;
   --  Test if the Destroyed flag is set for the object.

   --  <doc_ignore>
   function Destroyed_Is_Set (Object : access Gtk_Object_Record'Class)
      return Boolean renames In_Destruction_Is_Set;
   --  backward compatibility only
   --  </doc_ignore>

   function Floating_Is_Set
     (Object : access Gtk_Object_Record'Class) return Boolean;
   --  Test if the Floating flag is set for the object.

   --------------------------
   -- Creating new widgets --
   --------------------------

   --  <doc_ignore>
   --  The following definitions are only provided for better backward
   --  compatibility. You should use Glib.Object directly.

   subtype GObject_Class is Glib.Object.GObject_Class;
   Uninitialized_Class : GObject_Class renames
     Glib.Object.Uninitialized_Class;

   subtype Signal_Parameter_Types is Glib.Object.Signal_Parameter_Types;

   Null_Parameter_Types : Signal_Parameter_Types renames
     Glib.Object.Null_Parameter_Types;

   procedure Initialize_Class_Record
     (Object       : access GObject_Record'Class;
      Signals      : Gtkada.Types.Chars_Ptr_Array;
      Class_Record : in out GObject_Class;
      Type_Name    : String;
      Parameters   : Signal_Parameter_Types := Null_Parameter_Types)
      renames Glib.Object.Initialize_Class_Record;

   --  </doc_ignore>

   ---------------
   -- User Data --
   ---------------
   --  It is possible to associate your own specific data with an existing
   --  object. See the documentation in Glib.Object.
   --  The declaration below has been kept for compatibility reasons.

   generic
   package User_Data renames Glib.Object.User_Data;

   -----------------
   -- Obsolescent --
   -----------------
   --  All subprograms below are now obsolescent in gtk+. They might be removed
   --  from future versions of gtk+ (and therefore GtkAda).
   --  To find out whether your code uses any of these, we recommend compiling
   --  with the -gnatwj switch
   --  <doc_ignore>

   procedure Sink (Object : access Gtk_Object_Record);
   pragma Obsolescent (Sink);
   --  Sink the object.
   --  If the object is floating (does not have a parent yet), it is unref-ed
   --  once and the floating flag is cleared.

   --  </doc_ignore>

   ----------------
   -- Properties --
   ----------------

   --  <properties>
   --  The following properties are defined for this widget. See
   --  Glib.Properties for more information on properties.
   --
   --  - Name:  User_Data_Property
   --    Type:  Pointer
   --    Flags: read-write
   --    Descr: Anonymous User Data Pointer
   --    See also: User_Data.Set, using the default Id "user_data"
   --
   --  </properties>

   User_Data_Property : constant Glib.Properties.Property_Address;

   -------------
   -- Signals --
   -------------

   --  <signals>
   --  The following new signals are defined for this widget:
   --
   --  - "destroy"
   --    procedure Handler (Object : access Gtk_Object_Record'Class);
   --
   --    Raised when the object is about to be destroyed. The "destroyed"
   --    flag has been set on the object first. Handlers should not keep
   --    a reference on the object.
   --    Note that when your destroy handlers are called, the user_data is
   --    still available.
   --    The default implementation destroys all the handlers.
   --  </signals>

   Signal_Destroy : constant Glib.Signal_Name := "destroy";

private
   type Gtk_Object_Record is new Glib.Object.GObject_Record with null record;

   User_Data_Property : constant Glib.Properties.Property_Address :=
     Glib.Properties.Build ("user_data");

   pragma Inline (Floating_Is_Set);
   pragma Inline (In_Destruction_Is_Set);

end Gtk.Object;

--  The following subprograms never had a binding, but are now obsolescent
--  No binding: gtk_object_add_arg_type
--  No binding: gtk_object_get
--  No binding: gtk_object_get_data
--  No binding: gtk_object_get_data_by_id
--  No binding: gtk_object_get_user_data
--  No binding: gtk_object_new
--  No binding: gtk_object_ref
--  No binding: gtk_object_unref
--  No binding: gtk_object_remove_data
--  No binding: gtk_object_remove_data_by_id
--  No binding: gtk_object_remove_no_notify
--  No binding: gtk_object_remove_no_notify_by_id
--  No binding: gtk_object_set
--  No binding: gtk_object_set_data
--  No binding: gtk_object_set_data_by_id
--  No binding: gtk_object_set_data_by_id_full
--  No binding: gtk_object_set_data_full
--  No binding: gtk_object_set_user_data
--  No binding: gtk_object_weakref
--  No binding: gtk_object_weakunref

Lines 40-46 Link Here

(-)a/src/gtk-old_editable.ads (-1 / +1 lines)
40	with Gtk.Widget;	40	with Gtk.Widget;
41		41
42	package Gtk.Old_Editable is	42	package Gtk.Old_Editable is
43	pragma Obsolescent;	43	pragma Obsolescent (Entity => Old_Editable);
44		44
45	type Gtk_Old_Editable_Record is new	45	type Gtk_Old_Editable_Record is new
46	Gtk.Widget.Gtk_Widget_Record with private;	46	Gtk.Widget.Gtk_Widget_Record with private;

Lines 42-48 with Gtk.Menu; Link Here

(-)a/src/gtk-option_menu.ads (-1 / +1 lines)
42	with Gtk.Widget;	42	with Gtk.Widget;
43		43
44	package Gtk.Option_Menu is	44	package Gtk.Option_Menu is
45	pragma Obsolescent;	45	pragma Obsolescent (Entity => Option_Menu);
46		46
47	type Gtk_Option_Menu_Record is new Button.Gtk_Button_Record with private;	47	type Gtk_Option_Menu_Record is new Button.Gtk_Button_Record with private;
48	type Gtk_Option_Menu is access all Gtk_Option_Menu_Record'Class;	48	type Gtk_Option_Menu is access all Gtk_Option_Menu_Record'Class;




   --  <doc_ignore>

   procedure Set_Handle_Size (Paned : access Gtk_Paned_Record; Size : Guint16);
   pragma Obsolescent (Entity => Set_Handle_Size);
   --  Do nothing.
   --  Only provided for compatibility.

   function Get_Handle_Size (Paned : access Gtk_Paned_Record) return Guint16;
   pragma Obsolescent (Entity => Get_Handle_Size);
   --  Return 0.
   --  Only provided for compatibility.

   procedure Set_Gutter_Size (Paned : access Gtk_Paned_Record; Size : Guint16);
   pragma Obsolescent (Entity => Set_Gutter_Size);
   --  Do nothing.
   --  Only provided for compatibility.

   function Get_Gutter_Size (Paned : access Gtk_Paned_Record) return Guint16;
   pragma Obsolescent (Entity => Get_Gutter_Size);
   --  Return 0.
   --  Only provided for compatibility.


Lines 37-43 with Gtk.Window; Link Here

(-)a/src/gtk-pixmap.ads (-1 / +1 lines)
37	with Gtkada.Types;	37	with Gtkada.Types;
38		38
39	package Gtk.Pixmap is	39	package Gtk.Pixmap is
40	pragma Obsolescent ("Use Gtk.Image instead");	40	pragma Obsolescent (Entity => Pixmap, "Use Gtk.Image instead");
41		41
42	type Gtk_Pixmap_Record is new Gtk.Misc.Gtk_Misc_Record with private;	42	type Gtk_Pixmap_Record is new Gtk.Misc.Gtk_Misc_Record with private;
43	type Gtk_Pixmap is access all Gtk_Pixmap_Record'Class;	43	type Gtk_Pixmap is access all Gtk_Pixmap_Record'Class;

Lines 40-46 with Gtk.Enums; use Gtk.Enums; Link Here

(-)a/src/gtk-preview.ads (-1 / +1 lines)
40	with Gtk.Widget;	40	with Gtk.Widget;
41		41
42	package Gtk.Preview is	42	package Gtk.Preview is
43	pragma Obsolescent;	43	pragma Obsolescent (Entity => Preview);
44		44
45	type Gtk_Preview_Record is new Gtk.Widget.Gtk_Widget_Record with private;	45	type Gtk_Preview_Record is new Gtk.Widget.Gtk_Widget_Record with private;
46	type Gtk_Preview is access all Gtk_Preview_Record'Class;	46	type Gtk_Preview is access all Gtk_Preview_Record'Class;

Lines 39-45 with Gtk.Widget; Link Here

(-)a/src/gtk-progress.ads (-1 / +1 lines)
39	with Glib.Properties;	39	with Glib.Properties;
40		40
41	package Gtk.Progress is	41	package Gtk.Progress is
42	pragma Obsolescent; -- Gtk.Progress	42	pragma Obsolescent (Entity => Progress);
43		43
44	type Gtk_Progress_Record is new Gtk.Widget.Gtk_Widget_Record with private;	44	type Gtk_Progress_Record is new Gtk.Widget.Gtk_Widget_Record with private;
45	type Gtk_Progress is access all Gtk_Progress_Record'Class;	45	type Gtk_Progress is access all Gtk_Progress_Record'Class;

Lines 247-257 package Gtk.Recent_Chooser is Link Here

(-)a/src/gtk-recent_chooser.ads (-2 / +2 lines)
247	function Get_Show_Numbers	247	function Get_Show_Numbers
248	(Chooser : Gtk_Recent_Chooser)	248	(Chooser : Gtk_Recent_Chooser)
249	return Boolean;	249	return Boolean;
250	pragma Obsolescent; -- Get_Show_Numbers	250	pragma Obsolescent (Entity => Get_Show_Numbers);
251	procedure Set_Show_Numbers	251	procedure Set_Show_Numbers
252	(Chooser : Gtk_Recent_Chooser;	252	(Chooser : Gtk_Recent_Chooser;
253	Show_Numbers : Boolean);	253	Show_Numbers : Boolean);
254	pragma Obsolescent; -- Set_Show_Numbers	254	pragma Obsolescent (Entity => Set_Show_Numbers);
255	-- Whether to show recently used resources prepended by a unique number.	255	-- Whether to show recently used resources prepended by a unique number.
256	--	256	--
257	-- Deprecated: 2.12: Use Gtk.Recent_Chooser_Menu.Get_Show_Numbers and	257	-- Deprecated: 2.12: Use Gtk.Recent_Chooser_Menu.Get_Show_Numbers and

Lines 384-390 package Gtk.Recent_Manager is Link Here

(-)a/src/gtk-recent_manager.ads (-2 / +2 lines)
384		384
385	function Get_For_Screen	385	function Get_For_Screen
386	(Screen : access Gdk.Screen.Gdk_Screen_Record) return Gtk_Recent_Manager;	386	(Screen : access Gdk.Screen.Gdk_Screen_Record) return Gtk_Recent_Manager;
387	pragma Obsolescent; -- Get_For_Screen	387	pragma Obsolescent (Entity => Get_For_Screen);
388	-- Gets the recent manager object associated with Screen; if this	388	-- Gets the recent manager object associated with Screen; if this
389	-- function has not previously been called for the given screen,	389	-- function has not previously been called for the given screen,
390	-- a new recent manager object will be created and associated with	390	-- a new recent manager object will be created and associated with
Lines 405-411 package Gtk.Recent_Manager is Link Here
405	procedure Set_Screen	405	procedure Set_Screen
406	(Manager : access Gtk_Recent_Manager_Record;	406	(Manager : access Gtk_Recent_Manager_Record;
407	Screen : access Gdk.Screen.Gdk_Screen_Record'Class);	407	Screen : access Gdk.Screen.Gdk_Screen_Record'Class);
408	pragma Obsolescent; -- Set_Screen	408	pragma Obsolescent (Entity => Set_Screen);
409	-- Sets the screen for a recent manager; the screen is used to	409	-- Sets the screen for a recent manager; the screen is used to
410	-- track the user's currently configured recently used documents	410	-- track the user's currently configured recently used documents
411	-- storage.	411	-- storage.

Lines 106-116 package Gtk.Scale_Button is Link Here

(-)a/src/gtk-scale_button.ads (-2 / +2 lines)
106	function Get_Orientation	106	function Get_Orientation
107	(Button : access Gtk_Scale_Button_Record)	107	(Button : access Gtk_Scale_Button_Record)
108	return Gtk.Enums.Gtk_Orientation;	108	return Gtk.Enums.Gtk_Orientation;
109	pragma Obsolescent; -- Get_Orientation	109	pragma Obsolescent (Entity => Get_Orientation);
110	procedure Set_Orientation	110	procedure Set_Orientation
111	(Button : access Gtk_Scale_Button_Record;	111	(Button : access Gtk_Scale_Button_Record;
112	Orientation : Gtk.Enums.Gtk_Orientation);	112	Orientation : Gtk.Enums.Gtk_Orientation);
113	pragma Obsolescent; -- Set_Orientation	113	pragma Obsolescent (Entity => Set_Orientation);
114	-- Gets/Sets the orientation of the Gtk_Scale_Button's popup window.	114	-- Gets/Sets the orientation of the Gtk_Scale_Button's popup window.
115	--	115	--
116	-- Deprecated: 2.16: Use Gtk.Orientable.Get_Orientation and	116	-- Deprecated: 2.16: Use Gtk.Orientable.Get_Orientation and

Lines 124-130 package Gtk.Socket is Link Here

(-)a/src/gtk-socket.ads (-1 / +1 lines)
124	-- <doc_ignore>	124	-- <doc_ignore>
125		125
126	procedure Steal (Socket : access Gtk_Socket_Record; Wid : Guint32);	126	procedure Steal (Socket : access Gtk_Socket_Record; Wid : Guint32);
127	pragma Obsolescent; -- Steal	127	pragma Obsolescent (Entity => Steal);
128	-- Reparent a pre-existing toplevel window into a Gtk_Socket.	128	-- Reparent a pre-existing toplevel window into a Gtk_Socket.
129	-- This is meant to embed clients that do not know about embedding into a	129	-- This is meant to embed clients that do not know about embedding into a
130	-- Gtk_Socket, however doing so is inherently unreliable, and using	130	-- Gtk_Socket, however doing so is inherently unreliable, and using

Lines 357-363 package Gtk.Status_Icon is Link Here

(-)a/src/gtk-status_icon.ads (-1 / +1 lines)
357	procedure Set_Tooltip	357	procedure Set_Tooltip
358	(Status_Icon : access Gtk_Status_Icon_Record;	358	(Status_Icon : access Gtk_Status_Icon_Record;
359	Tooltip_Text : String);	359	Tooltip_Text : String);
360	pragma Obsolescent; -- Set_Tooltip	360	pragma Obsolescent (Entity => Set_Tooltip);
361	-- Sets the tooltip of the status icon.	361	-- Sets the tooltip of the status icon.
362	--	362	--
363	-- Deprecated: 2.16: Use Set_Tooltip_Text instead.	363	-- Deprecated: 2.16: Use Set_Tooltip_Text instead.





   --  <doc_ignore>
   function Get_Font (Style : Gtk_Style) return Gdk.Font.Gdk_Font;
   pragma Obsolescent (Entity => Get_Font, "Use Get_Font_Description");
   --  </doc_ignore>

   procedure Set_Bg_Pixmap

      Shadow_Type : Enums.Gtk_Shadow_Type;
      Points      : Gdk.Types.Gdk_Points_Array;
      Fill        : Boolean);
   pragma Obsolescent (Entity => Draw_Polygon, "Use Paint_Polygon");
   --  Draws a polygon in Window

   procedure Draw_Arrow

      X, Y        : Gint;
      Width       : Gint;
      Height      : Gint);
   pragma Obsolescent (Entity => Draw_Arrow, "Use Pain_Arrow");
   --  Draws an arrow in Window, within the given rectangle

   procedure Draw_Shadow

      Y           : Gint;
      Width       : Gint;
      Height      : Gint);
   pragma Obsolescent (Entity => Draw_Shadow);
   --  Draws a shadow around the given rectangle in @window
   --  using the given style and state and shadow type.


      State_Type  : Enums.Gtk_State_Type;
      X, Y        : Gint;
      Str         : UTF8_String);
   pragma Obsolescent (Entity => Draw_String, "Use Paint_String");
   --  Draws a text on Window

   --  </doc_ignore>

Lines 47-53 pragma Warnings (On); Link Here

(-)a/src/gtk-text.ads (-1 / +1 lines)
47	with Gdk.Window;	47	with Gdk.Window;
48		48
49	package Gtk.Text is	49	package Gtk.Text is
50	pragma Obsolescent;	50	pragma Obsolescent (Entity => Text);
51		51
52	type Gtk_Text_Record is new	52	type Gtk_Text_Record is new
53	Gtk.Old_Editable.Gtk_Old_Editable_Record with private;	53	Gtk.Old_Editable.Gtk_Old_Editable_Record with private;

Lines 35-41 with Gtk.Label; Link Here

(-)a/src/gtk-tips_query.ads (-1 / +1 lines)
35	with Gtk.Widget;	35	with Gtk.Widget;
36		36
37	package Gtk.Tips_Query is	37	package Gtk.Tips_Query is
38	pragma Obsolescent;	38	pragma Obsolescent (Entity => Tips_Query);
39		39
40	type Gtk_Tips_Query_Record is new Gtk.Label.Gtk_Label_Record with private;	40	type Gtk_Tips_Query_Record is new Gtk.Label.Gtk_Label_Record with private;
41	type Gtk_Tips_Query is access all Gtk_Tips_Query_Record'Class;	41	type Gtk_Tips_Query is access all Gtk_Tips_Query_Record'Class;




     (Widget      : out Gtk_Toolbar;
      Orientation : Gtk_Orientation;
      Style       : Gtk_Toolbar_Style);
   pragma Obsolescent (Entity => Gtk_New);

   procedure Initialize
     (Widget      : access Gtk_Toolbar_Record'Class;
      Orientation : Gtk_Orientation;
      Style       : Gtk_Toolbar_Style);
   pragma Obsolescent (Entity => Initialize);

   type Gtk_Toolbar_Child_Type is
     (Toolbar_Child_Space,

      Tooltip_Private_Text : UTF8_String := "";
      Icon                 : Gtk.Widget.Gtk_Widget := null)
      return Gtk.Widget.Gtk_Widget;
   pragma Obsolescent (Entity => Append_Element,
     "Use Gtk.Toolbar.Insert instead");

   function Prepend_Element
     (Toolbar              : access Gtk_Toolbar_Record;

      Tooltip_Private_Text : UTF8_String := "";
      Icon                 : Gtk.Widget.Gtk_Widget := null)
      return Gtk.Widget.Gtk_Widget;
   pragma Obsolescent (Entity => Prepend_Element,
     "Use Gtk.Toolbar.Insert instead");

   function Insert_Element
     (Toolbar              : access Gtk_Toolbar_Record;

      Icon                 : Gtk.Widget.Gtk_Widget := null;
      Position             : Gint)
      return Gtk.Widget.Gtk_Widget;
   pragma Obsolescent (Entity => Insert_Element,
     "Use Gtk.Toolbar.Insert instead");

   function Append_Item
     (Toolbar              : access Gtk_Toolbar_Record;

      Tooltip_Private_Text : UTF8_String := "";
      Icon                 : Gtk.Widget.Gtk_Widget := null)
      return Gtk.Button.Gtk_Button;
   pragma Obsolescent (Entity => Append_Item,
     "Use Gtk.Toolbar.Insert instead");

   function Prepend_Item
     (Toolbar              : access Gtk_Toolbar_Record;

      Tooltip_Private_Text : UTF8_String := "";
      Icon                 : Gtk.Widget.Gtk_Widget := null)
      return Gtk.Button.Gtk_Button;
   pragma Obsolescent (Entity => Prepend_Item,
     "Use Gtk.Toolbar.Insert instead");

   function Insert_Item
     (Toolbar              : access Gtk_Toolbar_Record;

      Icon                 : Gtk.Widget.Gtk_Widget := null;
      Position             : Gint)
      return Gtk.Button.Gtk_Button;
   pragma Obsolescent (Entity => Insert_Item,
     "Use Gtk.Toolbar.Insert instead");

   function Insert_Stock
     (Toolbar              : access Gtk_Toolbar_Record;

      Tooltip_Text         : UTF8_String := "";
      Tooltip_Private_Text : UTF8_String := "";
      Position             : Gint := -1) return Gtk.Button.Gtk_Button;
   pragma Obsolescent (Entity => Insert_Stock,
     "Use Gtk.Toolbar.Insert instead");

   procedure Append_Space (Toolbar : access Gtk_Toolbar_Record);
   pragma Obsolescent (Entity => Append_Space,
     "Use Gtk.Toolbar.Insert instead");

   procedure Prepend_Space (Toolbar : access Gtk_Toolbar_Record);
   pragma Obsolescent (Entity => Prepend_Space,
     "Use Gtk.Toolbar.Insert instead");

   procedure Insert_Space
     (Toolbar : access Gtk_Toolbar_Record; Position : Gint);
   pragma Obsolescent (Entity => Insert_Space,
     "Use Gtk.Toolbar.Insert instead");

   procedure Remove_Space
     (Toolbar : access Gtk_Toolbar_Record; Position : Gint);
   pragma Obsolescent (Entity => Remove_Space,
     "Use Gtk.Toolbar.Insert instead");

   procedure Append_Widget
     (Toolbar              : access Gtk_Toolbar_Record;
      Widget               : access Gtk.Widget.Gtk_Widget_Record'Class;
      Tooltip_Text         : UTF8_String := "";
      Tooltip_Private_Text : UTF8_String := "");
   pragma Obsolescent (Entity => Append_Widget,
     "Use Gtk.Toolbar.Insert instead");

   procedure Prepend_Widget
     (Toolbar              : access Gtk_Toolbar_Record;
      Widget               : access Gtk.Widget.Gtk_Widget_Record'Class;
      Tooltip_Text         : UTF8_String := "";
      Tooltip_Private_Text : UTF8_String := "");
   pragma Obsolescent (Entity => Prepend_Widget,
     "Use Gtk.Toolbar.Insert instead");

   procedure Insert_Widget
     (Toolbar              : access Gtk_Toolbar_Record;

      Tooltip_Text         : UTF8_String := "";
      Tooltip_Private_Text : UTF8_String := "";
      Position             : Gint);
   pragma Obsolescent (Entity => Insert_Widget,
     "Use Gtk.Toolbar.Insert instead");

   procedure Set_Icon_Size
     (Toolbar   : access Gtk_Toolbar_Record;
      Icon_Size : Gtk_Icon_Size);
   pragma Obsolescent (Entity => Set_Icon_Size,
     "Applications should respect user preferences (gtk+ themes)");

   procedure Unset_Icon_Size (Toolbar : access Gtk_Toolbar_Record);
   pragma Obsolescent (Entity => Unset_Icon_Size);
   --  Unsets icon sizes set through Set_Icon_Size, so that user preferences
   --  set through the gtk+ theme are used


Lines 133-139 package Gtk.Tooltips is Link Here

(-)a/src/gtk-tooltips.ads (-1 / +1 lines)
133	procedure Set_Delay	133	procedure Set_Delay
134	(Tooltips : access Gtk_Tooltips_Record;	134	(Tooltips : access Gtk_Tooltips_Record;
135	Duration : Guint := 500);	135	Duration : Guint := 500);
136	pragma Obsolescent; -- Set_Delay	136	pragma Obsolescent (Entity => Set_Delay);
137	-- Set the delay between the user moving the mouse over a widget and the	137	-- Set the delay between the user moving the mouse over a widget and the
138	-- text appearing. Duration is in milli-seconds.	138	-- text appearing. Duration is in milli-seconds.
139		139

Lines 579-585 package Gtk.Tree_View is Link Here

(-)a/src/gtk-tree_view.ads (-2 / +2 lines)
579	Wy : Gint;	579	Wy : Gint;
580	Tx : out Gint;	580	Tx : out Gint;
581	Ty : out Gint);	581	Ty : out Gint);
582	pragma Obsolescent; -- Widget_To_Tree_Coords	582	pragma Obsolescent (Entity => Widget_To_Tree_Coords);
583	-- Converts widget coordinates to coordinates for the	583	-- Converts widget coordinates to coordinates for the
584	-- tree window (the full scrollable area of the tree).	584	-- tree window (the full scrollable area of the tree).
585	--	585	--
Lines 591-597 package Gtk.Tree_View is Link Here
591	Ty : Gint;	591	Ty : Gint;
592	Wx : out Gint;	592	Wx : out Gint;
593	Wy : out Gint);	593	Wy : out Gint);
594	pragma Obsolescent; -- Tree_To_Widget_Coords	594	pragma Obsolescent (Entity => Tree_To_Widget_Coords);
595	-- Converts tree coordinates (coordinates in full scrollable area of	595	-- Converts tree coordinates (coordinates in full scrollable area of
596	-- the tree) to widget coordinates.	596	-- the tree) to widget coordinates.
597	--	597	--

Lines 145-151 package Gtk.Tree_View_Column is Link Here

(-)a/src/gtk-tree_view_column.ads (-1 / +1 lines)
145	function Get_Cell_Renderers	145	function Get_Cell_Renderers
146	(Tree_Column : access Gtk_Tree_View_Column_Record)	146	(Tree_Column : access Gtk_Tree_View_Column_Record)
147	return Gtk.Cell_Renderer.Cell_Renderer_List.Glist;	147	return Gtk.Cell_Renderer.Cell_Renderer_List.Glist;
148	pragma Obsolescent (Get_Cell_Renderers);	148	pragma Obsolescent (Entity => Get_Cell_Renderers);
149	-- Return the list of cell renderers set in the column. The returned list	149	-- Return the list of cell renderers set in the column. The returned list
150	-- must be freed by the caller.	150	-- must be freed by the caller.
151		151




   procedure Draw
     (Widget : access Gtk_Widget_Record;
      Area   : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area);
   pragma Obsolescent (Entity => Draw);
   --  Emit a "draw" signal for a specific area of the widget.
   --  The visual aspect might be different whether the widget has the focus
   --  or not.

   procedure Set_UPosition
     (Widget : access Gtk_Widget_Record;
      X, Y   : Gint);
   pragma Obsolescent (Entity => Set_Uposition);
   --  Modify the position of the widget.
   --  This should be used only for toplevel widgets (windows and dialogs),
   --  since other widgets' positions are handled by their parent.

   procedure Set_USize
     (Widget        : access Gtk_Widget_Record;
      Width, Height : Gint);
   pragma Obsolescent (Entity => Set_USize, "Use Set_Size_Request instead");
   --  Modify the size of the widget.
   --  This sets an absolute size for the widget, no matter what its requested
   --  size would be. For Gtk_Windows, you should consider using

   --  default width is kept.

   procedure Queue_Clear (Widget : access Gtk_Widget_Record);
   pragma Obsolescent (Entity => Queue_Clear);
   --  Add a clear request to the event queue for the whole widget.
   --  This is added to the same list as for Queue_Draw, and thus is coalesced
   --  as much as possible with other drawing requests.

      Y      : Gint;
      Width  : Gint;
      Height : Gint);
   pragma Obsolescent (Entity => Queue_Clear_Area);
   --  Add a clear request to the event queue for part of the widget.
   --  This is added to the same list as for Queue_Draw, and thus is coalesced
   --  as much as possible with other drawing requests.

Lines 1007-1013 package Gtk.Window is Link Here

(-)a/src/gtk-window.ads (-1 / +1 lines)
1007	Allow_Shrink : Boolean;	1007	Allow_Shrink : Boolean;
1008	Allow_Grow : Boolean;	1008	Allow_Grow : Boolean;
1009	Auto_Shrink : Boolean);	1009	Auto_Shrink : Boolean);
1010	pragma Obsolescent; -- Set_Policy	1010	pragma Obsolescent (Entity => Set_Policy);
1011	-- Specify the behavior of the window with regards to size modifications.	1011	-- Specify the behavior of the window with regards to size modifications.
1012	-- Default values when the window is created are:	1012	-- Default values when the window is created are:
1013	-- Allow_Shrink => False,	1013	-- Allow_Shrink => False,

Return to bug 348418

Lines 216-229 package Gtk.Box is Link Here

(-)a/src/gtk-box.ads (-2 / +2 lines)
216	procedure Pack_Start_Defaults	216	procedure Pack_Start_Defaults
217	(In_Box : access Gtk_Box_Record;	217	(In_Box : access Gtk_Box_Record;
218	Child : access Gtk.Widget.Gtk_Widget_Record'Class);	218	Child : access Gtk.Widget.Gtk_Widget_Record'Class);
219	pragma Obsolescent; -- Pack_Start_Defaults	219	pragma Obsolescent (Entity => Pack_Start_Defaults);
220	-- This is the same as Pack_Start if you use the default parameter values.	220	-- This is the same as Pack_Start if you use the default parameter values.
221	-- It is provided for backward compatibility only.	221	-- It is provided for backward compatibility only.
222		222
223	procedure Pack_End_Defaults	223	procedure Pack_End_Defaults
224	(In_Box : access Gtk_Box_Record;	224	(In_Box : access Gtk_Box_Record;
225	Child : access Gtk.Widget.Gtk_Widget_Record'Class);	225	Child : access Gtk.Widget.Gtk_Widget_Record'Class);
226	pragma Obsolescent; -- Pack_End_Defaults	226	pragma Obsolescent (Entity => Pack_End_Defaults);
227	-- This is the same as Pack_End if you use the default parameter values.	227	-- This is the same as Pack_End if you use the default parameter values.
228	-- It is provided for backward compatibility only.	228	-- It is provided for backward compatibility only.
229		229

Lines 190-205 package Gtk.Calendar is Link Here

(-)a/src/gtk-calendar.ads (-3 / +3 lines)
190	procedure Display_Options	190	procedure Display_Options
191	(Calendar : access Gtk_Calendar_Record;	191	(Calendar : access Gtk_Calendar_Record;
192	Flags : Gtk_Calendar_Display_Options);	192	Flags : Gtk_Calendar_Display_Options);
193	pragma Obsolescent; -- Display_Options	193	pragma Obsolescent (Entity => Display_Options);
194	-- Change the display options.	194	-- Change the display options.
195	-- See individual Display_Option flags for more details.	195	-- See individual Display_Option flags for more details.
196		196
197	procedure Freeze (Calendar : access Gtk_Calendar_Record);	197	procedure Freeze (Calendar : access Gtk_Calendar_Record);
198	pragma Obsolescent; -- Freeze	198	pragma Obsolescent (Entity => Freeze);
199	-- Lock the display of the calendar until it is thawed.	199	-- Lock the display of the calendar until it is thawed.
200		200
201	procedure Thaw (Calendar : access Gtk_Calendar_Record);	201	procedure Thaw (Calendar : access Gtk_Calendar_Record);
202	pragma Obsolescent; -- Thaw	202	pragma Obsolescent (Entity => Thaw);
203	-- Defrost a calendar.	203	-- Defrost a calendar.
204	-- All the changes made since the last Freeze are displayed.	204	-- All the changes made since the last Freeze are displayed.
205		205

Lines 452-480 package Gtk.GEntry is Link Here

(-)a/src/gtk-gentry.ads (-5 / +6 lines)
452	-- <doc_ignore>	452	-- <doc_ignore>
453		453
454	procedure Gtk_New (Widget : out Gtk_Entry; Max : Gint);	454	procedure Gtk_New (Widget : out Gtk_Entry; Max : Gint);
455	pragma Obsolescent; -- New_With_Max_Length	455	pragma Obsolescent (Entity => Gtk_New); -- New_With_Max_Length
456	-- Create a new entry with a maximum length for the text.	456	-- Create a new entry with a maximum length for the text.
457	-- The text can never be longer than Max characters.	457	-- The text can never be longer than Max characters.
458		458
459	procedure Initialize	459	procedure Initialize
460	(Widget : access Gtk_Entry_Record'Class; Max : Gint);	460	(Widget : access Gtk_Entry_Record'Class; Max : Gint);
461	pragma Obsolescent;	461	pragma Obsolescent (Entity => Initialize);
462	-- Internal initialization function.	462	-- Internal initialization function.
463	-- See the section "Creating your own widgets" in the documentation.	463	-- See the section "Creating your own widgets" in the documentation.
464		464
465	procedure Append_Text	465	procedure Append_Text
466	(The_Entry : access Gtk_Entry_Record; Text : UTF8_String);	466	(The_Entry : access Gtk_Entry_Record; Text : UTF8_String);
467	pragma Obsolescent ("See Gtk.Editable.Insert_Text"); -- Append_Text	467	pragma Obsolescent (Entity => Append_Text, "See Gtk.Editable.Insert_Text");
468	-- Append a new string at the end of the existing one.	468	-- Append a new string at the end of the existing one.
469		469
470	procedure Prepend_Text	470	procedure Prepend_Text
471	(The_Entry : access Gtk_Entry_Record; Text : UTF8_String);	471	(The_Entry : access Gtk_Entry_Record; Text : UTF8_String);
472	pragma Obsolescent ("See Gtk.Editable.Insert_Text"); -- Prepend_Text	472	pragma Obsolescent (Entity => Prepend_Text,
		473	"See Gtk.Editable.Insert_Text");
473	-- Insert some text at the beginning of the entry.	474	-- Insert some text at the beginning of the entry.
474		475
475	procedure Set_Editable	476	procedure Set_Editable
476	(The_Entry : access Gtk_Entry_Record; Editable : Boolean);	477	(The_Entry : access Gtk_Entry_Record; Editable : Boolean);
477	pragma Obsolescent; -- Set_Editable	478	pragma Obsolescent (Entity => Set_Editable);
478		479
479	function Get_Chars (The_Entry : access Gtk_Entry_Record) return UTF8_String	480	function Get_Chars (The_Entry : access Gtk_Entry_Record) return UTF8_String
480	renames Get_Text;	481	renames Get_Text;

Lines 183-189 package Gtk.Notebook is Link Here

(-)a/src/gtk-notebook.ads (-12 / +12 lines)
183	(Func : Gtk_Notebook_Window_Creation_Func;	183	(Func : Gtk_Notebook_Window_Creation_Func;
184	Data : System.Address;	184	Data : System.Address;
185	Destroy : Glib.G_Destroy_Notify_Address);	185	Destroy : Glib.G_Destroy_Notify_Address);
186	pragma Obsolescent (Set_Window_Creation_Hook);	186	pragma Obsolescent (Entity => Set_Window_Creation_Hook);
187	-- Install a global function used to create a window when a detached tab	187	-- Install a global function used to create a window when a detached tab
188	-- is dropped in an empty area.	188	-- is dropped in an empty area.
189		189
Lines 384-390 package Gtk.Notebook is Link Here
384	Expand : out Boolean;	384	Expand : out Boolean;
385	Fill : out Boolean;	385	Fill : out Boolean;
386	Pack_Type : out Gtk.Enums.Gtk_Pack_Type);	386	Pack_Type : out Gtk.Enums.Gtk_Pack_Type);
387	pragma Obsolescent (Query_Tab_Label_Packing);	387	pragma Obsolescent (Entity => Query_Tab_Label_Packing);
388	-- Return the packing used for the tab associated with the page	388	-- Return the packing used for the tab associated with the page
389	-- that contains Child.	389	-- that contains Child.
390	-- See the Gtk.Box package for more information on the parameters.	390	-- See the Gtk.Box package for more information on the parameters.
Lines 395-401 package Gtk.Notebook is Link Here
395	Expand : Boolean;	395	Expand : Boolean;
396	Fill : Boolean;	396	Fill : Boolean;
397	Pack_Type : Gtk.Enums.Gtk_Pack_Type);	397	Pack_Type : Gtk.Enums.Gtk_Pack_Type);
398	pragma Obsolescent (Set_Tab_Label_Packing);	398	pragma Obsolescent (Entity => Set_Tab_Label_Packing);
399	-- Modify the packing used for the tab associated with the page that	399	-- Modify the packing used for the tab associated with the page that
400	-- contains Child.	400	-- contains Child.
401		401
Lines 446-456 package Gtk.Notebook is Link Here
446		446
447	function Get_Group (Notebook : access Gtk_Notebook_Record)	447	function Get_Group (Notebook : access Gtk_Notebook_Record)
448	return Gtk_Notebook_Group;	448	return Gtk_Notebook_Group;
449	pragma Obsolescent (Get_Group);	449	pragma Obsolescent (Entity => Get_Group);
450	procedure Set_Group	450	procedure Set_Group
451	(Notebook : access Gtk_Notebook_Record;	451	(Notebook : access Gtk_Notebook_Record;
452	Group : Gtk_Notebook_Group);	452	Group : Gtk_Notebook_Group);
453	pragma Obsolescent (Set_Group);	453	pragma Obsolescent (Entity => Set_Group);
454	-- Gets/Sets a group identificator pointer for Notebook, notebooks sharing	454	-- Gets/Sets a group identificator pointer for Notebook, notebooks sharing
455	-- the same group identificator pointer will be able to exchange tabs	455	-- the same group identificator pointer will be able to exchange tabs
456	-- via drag and drop. A notebook with a null group identificator will	456	-- via drag and drop. A notebook with a null group identificator will
Lines 481-525 package Gtk.Notebook is Link Here
481		481
482	function Get_Children	482	function Get_Children
483	(Widget : access Gtk_Notebook_Record) return Page_List.Glist;	483	(Widget : access Gtk_Notebook_Record) return Page_List.Glist;
484	pragma Obsolescent (Get_Children);	484	pragma Obsolescent (Entity => Get_Children);
485	-- Return the list of all pages in the notebook.	485	-- Return the list of all pages in the notebook.
486		486
487	procedure Set_Homogeneous_Tabs	487	procedure Set_Homogeneous_Tabs
488	(Notebook : access Gtk_Notebook_Record;	488	(Notebook : access Gtk_Notebook_Record;
489	Homogeneous : Boolean := True);	489	Homogeneous : Boolean := True);
490	pragma Obsolescent (Set_Homogeneous_Tabs);	490	pragma Obsolescent (Entity => Set_Homogeneous_Tabs);
491	-- Indicate whether all the tabs should have the same size (width or	491	-- Indicate whether all the tabs should have the same size (width or
492	-- height, depending on which side they are displayed on).	492	-- height, depending on which side they are displayed on).
493		493
494	procedure Set_Tab_Border	494	procedure Set_Tab_Border
495	(Notebook : access Gtk_Notebook_Record;	495	(Notebook : access Gtk_Notebook_Record;
496	Border_Width : Gint);	496	Border_Width : Gint);
497	pragma Obsolescent (Set_Tab_Border);	497	pragma Obsolescent (Entity => Set_Tab_Border);
498	-- Change the width of the tabs' borders.	498	-- Change the width of the tabs' borders.
499	-- This modifies both the horizontal border and the vertical border.	499	-- This modifies both the horizontal border and the vertical border.
500		500
501	procedure Set_Tab_Hborder	501	procedure Set_Tab_Hborder
502	(Notebook : access Gtk_Notebook_Record;	502	(Notebook : access Gtk_Notebook_Record;
503	Border_Width : Gint);	503	Border_Width : Gint);
504	pragma Obsolescent (Set_Tab_Hborder);	504	pragma Obsolescent (Entity => Set_Tab_Hborder);
505	-- Modify the width of the horizontal borders of the tabs.	505	-- Modify the width of the horizontal borders of the tabs.
506		506
507	procedure Set_Tab_Vborder	507	procedure Set_Tab_Vborder
508	(Notebook : access Gtk_Notebook_Record;	508	(Notebook : access Gtk_Notebook_Record;
509	Border_Width : Gint);	509	Border_Width : Gint);
510	pragma Obsolescent (Set_Tab_Vborder);	510	pragma Obsolescent (Entity => Set_Tab_Vborder);
511	-- Modify the height of the vertical borders of the tabs.	511	-- Modify the height of the vertical borders of the tabs.
512		512
513	procedure Set_Group_Id	513	procedure Set_Group_Id
514	(Notebook : access Gtk_Notebook_Record; Group_Id : Gint);	514	(Notebook : access Gtk_Notebook_Record; Group_Id : Gint);
515	pragma Obsolescent (Set_Group_Id);	515	pragma Obsolescent (Entity => Set_Group_Id);
516	-- Set a group identificator for Notebook. Notebooks sharing	516	-- Set a group identificator for Notebook. Notebooks sharing
517	-- the same group identificator will be able to exchange tabs	517	-- the same group identificator will be able to exchange tabs
518	-- via drag and drop. A notebook with group identificator -1 will	518	-- via drag and drop. A notebook with group identificator -1 will
519	-- not be able to exchange tabs with any other notebook.	519	-- not be able to exchange tabs with any other notebook.
520		520
521	function Get_Group_Id (Notebook : access Gtk_Notebook_Record) return Gint;	521	function Get_Group_Id (Notebook : access Gtk_Notebook_Record) return Gint;
522	pragma Obsolescent (Get_Group_Id);	522	pragma Obsolescent (Entity => Get_Group_Id);
523	-- Gets the current group identificator for Notebook or -1 if not set.	523	-- Gets the current group identificator for Notebook or -1 if not set.
524		524
525	-- </doc_ignore>	525	-- </doc_ignore>

Lines 177-198 package Gtk.Paned is Link Here

(-)a/src/gtk-paned.ads (-4 / +4 lines)
177	-- <doc_ignore>	177	-- <doc_ignore>
178		178
179	procedure Set_Handle_Size (Paned : access Gtk_Paned_Record; Size : Guint16);	179	procedure Set_Handle_Size (Paned : access Gtk_Paned_Record; Size : Guint16);
180	pragma Obsolescent;	180	pragma Obsolescent (Entity => Set_Handle_Size);
181	-- Do nothing.	181	-- Do nothing.
182	-- Only provided for compatibility.	182	-- Only provided for compatibility.
183		183
184	function Get_Handle_Size (Paned : access Gtk_Paned_Record) return Guint16;	184	function Get_Handle_Size (Paned : access Gtk_Paned_Record) return Guint16;
185	pragma Obsolescent;	185	pragma Obsolescent (Entity => Get_Handle_Size);
186	-- Return 0.	186	-- Return 0.
187	-- Only provided for compatibility.	187	-- Only provided for compatibility.
188		188
189	procedure Set_Gutter_Size (Paned : access Gtk_Paned_Record; Size : Guint16);	189	procedure Set_Gutter_Size (Paned : access Gtk_Paned_Record; Size : Guint16);
190	pragma Obsolescent;	190	pragma Obsolescent (Entity => Set_Gutter_Size);
191	-- Do nothing.	191	-- Do nothing.
192	-- Only provided for compatibility.	192	-- Only provided for compatibility.
193		193
194	function Get_Gutter_Size (Paned : access Gtk_Paned_Record) return Guint16;	194	function Get_Gutter_Size (Paned : access Gtk_Paned_Record) return Guint16;
195	pragma Obsolescent;	195	pragma Obsolescent (Entity => Get_Gutter_Size);
196	-- Return 0.	196	-- Return 0.
197	-- Only provided for compatibility.	197	-- Only provided for compatibility.
198		198

Lines 241-247 package Gtk.Action is Link Here

(-)a/src/gtk-action.ads (-5 / +5 lines)
241		241
242	function Gtk_Widget_Get_Action	242	function Gtk_Widget_Get_Action
243	(Widget : access Gtk.Widget.Gtk_Widget_Record) return Gtk_Action;	243	(Widget : access Gtk.Widget.Gtk_Widget_Record) return Gtk_Action;
244	pragma Obsolescent (Gtk_Widget_Get_Action);	244	pragma Obsolescent (Entity => Gtk_Widget_Get_Action);
245	-- Returns the action that Widget is a proxy for.	245	-- Returns the action that Widget is a proxy for.
246	-- See also Get_Proxies.	246	-- See also Get_Proxies.
247	-- Since: 2.10	247	-- Since: 2.10
Lines 249-259 package Gtk.Action is Link Here
249	procedure Connect_Proxy	249	procedure Connect_Proxy
250	(Action : access Gtk_Action_Record;	250	(Action : access Gtk_Action_Record;
251	Proxy : access Gtk.Widget.Gtk_Widget_Record'Class);	251	Proxy : access Gtk.Widget.Gtk_Widget_Record'Class);
252	pragma Obsolescent (Connect_Proxy);	252	pragma Obsolescent (Entity => Connect_Proxy);
253	procedure Disconnect_Proxy	253	procedure Disconnect_Proxy
254	(Action : access Gtk_Action_Record;	254	(Action : access Gtk_Action_Record;
255	Proxy : access Gtk.Widget.Gtk_Widget_Record'Class);	255	Proxy : access Gtk.Widget.Gtk_Widget_Record'Class);
256	pragma Obsolescent (Disconnect_Proxy);	256	pragma Obsolescent (Entity => Disconnect_Proxy);
257	-- Connects a widget to an action object as a proxy. Synchronises various	257	-- Connects a widget to an action object as a proxy. Synchronises various
258	-- properties of the action with the widget (such as label text, icon,	258	-- properties of the action with the widget (such as label text, icon,
259	-- tooltip, etc), and attaches a callback so that the action gets activated	259	-- tooltip, etc), and attaches a callback so that the action gets activated
Lines 272-282 package Gtk.Action is Link Here
272	procedure Block_Activate_From	272	procedure Block_Activate_From
273	(Action : access Gtk_Action_Record;	273	(Action : access Gtk_Action_Record;
274	Proxy : access Gtk.Widget.Gtk_Widget_Record'Class);	274	Proxy : access Gtk.Widget.Gtk_Widget_Record'Class);
275	pragma Obsolescent (Block_Activate_From);	275	pragma Obsolescent (Entity => Block_Activate_From);
276	procedure Unblock_Activate_From	276	procedure Unblock_Activate_From
277	(Action : access Gtk_Action_Record;	277	(Action : access Gtk_Action_Record;
278	Proxy : access Gtk.Widget.Gtk_Widget_Record'Class);	278	Proxy : access Gtk.Widget.Gtk_Widget_Record'Class);
279	pragma Obsolescent (Unblock_Activate_From);	279	pragma Obsolescent (Entity => Unblock_Activate_From);
280	-- Disables calls to the Activate function by signals on the given proxy	280	-- Disables calls to the Activate function by signals on the given proxy
281	-- widget. This is used to break notification loops for things like check	281	-- widget. This is used to break notification loops for things like check
282	-- or radio actions.	282	-- or radio actions.

Lines 112-118 package Gtk.Button_Box is Link Here

(-)a/src/gtk-button_box.ads (-3 / +3 lines)
112	(Button_Box : access Gtk_Button_Box_Record;	112	(Button_Box : access Gtk_Button_Box_Record;
113	Min_Width : Gint;	113	Min_Width : Gint;
114	Min_Height : Gint);	114	Min_Height : Gint);
115	pragma Obsolescent; -- Set_Child_Size	115	pragma Obsolescent (Entity => Set_Child_Size);
116	-- Set the size to use for children of this specific box.	116	-- Set the size to use for children of this specific box.
117	-- You can modify the size for all the boxes at once by using	117	-- You can modify the size for all the boxes at once by using
118	-- Set_Child_Size_Default.	118	-- Set_Child_Size_Default.
Lines 121-127 package Gtk.Button_Box is Link Here
121	(Button_Box : access Gtk_Button_Box_Record;	121	(Button_Box : access Gtk_Button_Box_Record;
122	Min_Width : out Gint;	122	Min_Width : out Gint;
123	Min_Height : out Gint);	123	Min_Height : out Gint);
124	pragma Obsolescent; -- Get_Child_Size	124	pragma Obsolescent (Entity => Get_Child_Size);
125	-- Return the size to use for children of this specific box.	125	-- Return the size to use for children of this specific box.
126	-- Min_Width and Min_Height are set to -1 if this widget uses the default	126	-- Min_Width and Min_Height are set to -1 if this widget uses the default
127	-- sizes that are set by Set_Child_Size_Default.	127	-- sizes that are set by Set_Child_Size_Default.
Lines 130-136 package Gtk.Button_Box is Link Here
130	(Button_Box : access Gtk_Button_Box_Record;	130	(Button_Box : access Gtk_Button_Box_Record;
131	Ipad_X : Gint;	131	Ipad_X : Gint;
132	Ipad_Y : Gint);	132	Ipad_Y : Gint);
133	pragma Obsolescent; -- Set_Child_Ipadding	133	pragma Obsolescent (Entity => Set_Child_Ipadding);
134	-- no-op procedure.	134	-- no-op procedure.
135		135
136	-- </doc_ignore>	136	-- </doc_ignore>

Lines 190-196 package Gtk.Color_Selection is Link Here

(-)a/src/gtk-color_selection.ads (-3 / +3 lines)
190	procedure Set_Update_Policy	190	procedure Set_Update_Policy
191	(Colorsel : access Gtk_Color_Selection_Record;	191	(Colorsel : access Gtk_Color_Selection_Record;
192	Policy : Enums.Gtk_Update_Type);	192	Policy : Enums.Gtk_Update_Type);
193	pragma Obsolescent; -- Set_Update_Policy	193	pragma Obsolescent (Entity => Set_Update_Policy);
194	-- Set the behavior of the scales used to select a value (red, green,...)	194	-- Set the behavior of the scales used to select a value (red, green,...)
195	-- Set Policy to Update_Continuous if you want to update the color	195	-- Set Policy to Update_Continuous if you want to update the color
196	-- continuously as the slider is mode, Update_Discontinuous to update the	196	-- continuously as the slider is mode, Update_Discontinuous to update the
Lines 200-206 package Gtk.Color_Selection is Link Here
200	procedure Set_Color	200	procedure Set_Color
201	(Colorsel : access Gtk_Color_Selection_Record;	201	(Colorsel : access Gtk_Color_Selection_Record;
202	Color : Color_Array);	202	Color : Color_Array);
203	pragma Obsolescent ("Use Set_Current_Color"); -- Set_Color	203	pragma Obsolescent (Entity => Set_Color, "Use Set_Current_Color");
204	-- Modify the current color.	204	-- Modify the current color.
205	-- Note that Color is an array of percentages, between 0.0 and 1.0, not	205	-- Note that Color is an array of percentages, between 0.0 and 1.0, not
206	-- absolute values.	206	-- absolute values.
Lines 208-214 package Gtk.Color_Selection is Link Here
208	procedure Get_Color	208	procedure Get_Color
209	(Colorsel : access Gtk_Color_Selection_Record;	209	(Colorsel : access Gtk_Color_Selection_Record;
210	Color : out Color_Array);	210	Color : out Color_Array);
211	pragma Obsolescent ("Use Get_Current_Color"); -- Get_Color	211	pragma Obsolescent (Entity => Get_Color, "Use Get_Current_Color");
212	-- Get the current color.	212	-- Get the current color.
213	-- Note that Color is an array of percentages, between 0.0 and 1.0, not	213	-- Note that Color is an array of percentages, between 0.0 and 1.0, not
214	-- absolute values.	214	-- absolute values.

Lines 63-74 package Gtk.File_Chooser_Widget is Link Here

(-)a/src/gtk-file_chooser_widget.ads (-2 / +2 lines)
63	(Widget : out Gtk_File_Chooser_Widget;	63	(Widget : out Gtk_File_Chooser_Widget;
64	Action : Gtk.File_Chooser.File_Chooser_Action;	64	Action : Gtk.File_Chooser.File_Chooser_Action;
65	Backend : String);	65	Backend : String);
66	pragma Obsolescent (Gtk_New_With_Backend);	66	pragma Obsolescent (Entity => Gtk_New_With_Backend);
67	procedure Initialize_With_Backend	67	procedure Initialize_With_Backend
68	(Widget : access Gtk_File_Chooser_Widget_Record'Class;	68	(Widget : access Gtk_File_Chooser_Widget_Record'Class;
69	Action : Gtk.File_Chooser.File_Chooser_Action;	69	Action : Gtk.File_Chooser.File_Chooser_Action;
70	Backend : String);	70	Backend : String);
71	pragma Obsolescent (Initialize_With_Backend);	71	pragma Obsolescent (Entity => Initialize_With_Backend);
72	-- Creates a new file chooser with a specified backend. This is	72	-- Creates a new file chooser with a specified backend. This is
73	-- especially useful if you use Gtk.File_Chooser.Set_Local_Only to allow	73	-- especially useful if you use Gtk.File_Chooser.Set_Local_Only to allow
74	-- non-local files. This is a file chooser widget that can be embedded in	74	-- non-local files. This is a file chooser widget that can be embedded in

Lines 65-88 package Gtk.Hbutton_Box is Link Here

(-)a/src/gtk-hbutton_box.ads (-4 / +4 lines)
65	-- <doc_ignore>	65	-- <doc_ignore>
66		66
67	procedure Set_Spacing_Default (Spacing : in Gint);	67	procedure Set_Spacing_Default (Spacing : in Gint);
68	pragma Obsolescent; -- Set_Spacing_Default	68	pragma Obsolescent (Entity => Set_Spacing_Default);
69	-- Set the default spacing (space between two adjacent children).	69	-- Set the default spacing (space between two adjacent children).
70	-- This is done for all the Hbutton_Boxes in your application. This can be	70	-- This is done for all the Hbutton_Boxes in your application. This can be
71	-- overridden for a specific box by calling Gtk.Button_Box.Set_Spacing.	71	-- overridden for a specific box by calling Gtk.Button_Box.Set_Spacing.
72		72
73	function Get_Spacing_Default return Gint;	73	function Get_Spacing_Default return Gint;
74	pragma Obsolescent; -- Get_Spacing_Default	74	pragma Obsolescent (Entity => Get_Spacing_Default);
75	-- Return the default spacing to use for all Hbutton_Boxes in your	75	-- Return the default spacing to use for all Hbutton_Boxes in your
76	-- application that don't have a specific value.	76	-- application that don't have a specific value.
77		77
78	procedure Set_Layout_Default (Layout : Gtk.Enums.Gtk_Button_Box_Style);	78	procedure Set_Layout_Default (Layout : Gtk.Enums.Gtk_Button_Box_Style);
79	pragma Obsolescent; -- Set_Layout_Default	79	pragma Obsolescent (Entity => Set_Layout_Default);
80	-- Set the the default layout to use for all the hbutton_boxes in your	80	-- Set the the default layout to use for all the hbutton_boxes in your
81	-- application that don't have a specific value set by	81	-- application that don't have a specific value set by
82	-- Gtk.Button_Box.Set_Layout. The default value is Buttonbox_Edge.	82	-- Gtk.Button_Box.Set_Layout. The default value is Buttonbox_Edge.
83		83
84	function Get_Layout_Default return Gtk.Enums.Gtk_Button_Box_Style;	84	function Get_Layout_Default return Gtk.Enums.Gtk_Button_Box_Style;
85	pragma Obsolescent; -- Get_Layout_Default	85	pragma Obsolescent (Entity => Get_Layout_Default);
86	-- Return the default layout to use for all the hbutton_boxes.	86	-- Return the default layout to use for all the hbutton_boxes.
87		87
88	-- </doc_ignore>	88	-- </doc_ignore>

Lines 155-161 package Gtk.Layout is Link Here

(-)a/src/gtk-layout.ads (-3 / +3 lines)
155	-- <doc_ignore>	155	-- <doc_ignore>
156		156
157	function Get_Width (Layout : access Gtk_Layout_Record) return Guint;	157	function Get_Width (Layout : access Gtk_Layout_Record) return Guint;
158	pragma Obsolescent;	158	pragma Obsolescent (Entity => Get_Width);
159	-- Deprecated, only provided for compatibility, see Get_Size	159	-- Deprecated, only provided for compatibility, see Get_Size
160		160
161	function Get_Height (Layout : access Gtk_Layout_Record) return Guint;	161	function Get_Height (Layout : access Gtk_Layout_Record) return Guint;
Lines 163-173 package Gtk.Layout is Link Here
163	-- Deprecated, only provided for compatibility, see Get_Size	163	-- Deprecated, only provided for compatibility, see Get_Size
164		164
165	procedure Freeze (Layout : access Gtk_Layout_Record);	165	procedure Freeze (Layout : access Gtk_Layout_Record);
166	pragma Obsolescent; -- Freeze	166	pragma Obsolescent (Entity => Freeze);
167	-- Deprecated, only provided for compatibility.	167	-- Deprecated, only provided for compatibility.
168		168
169	procedure Thaw (Layout : access Gtk_Layout_Record);	169	procedure Thaw (Layout : access Gtk_Layout_Record);
170	pragma Obsolescent; -- Thaw	170	pragma Obsolescent (Entity => Thaw);
171	-- Deprecated, only provided for compatibility.	171	-- Deprecated, only provided for compatibility.
172		172
173	-- </doc_ignore>	173	-- </doc_ignore>

Lines 327-333 package Gtk.Main is Link Here

(-)a/src/gtk-main.ads (-13 / +15 lines)
327	-- <doc_ignore>	327	-- <doc_ignore>
328		328
329	procedure Gtk_Exit (Error_Code : Gint);	329	procedure Gtk_Exit (Error_Code : Gint);
330	pragma Obsolescent (Gtk_Exit);	330	pragma Obsolescent (Entity => Gtk_Exit);
331	-- Terminate GtkAda.	331	-- Terminate GtkAda.
332	-- Deprecated, use Main_Quit instead.	332	-- Deprecated, use Main_Quit instead.
333		333
Lines 356-362 package Gtk.Main is Link Here
356	(Cb : Idle_Callback;	356	(Cb : Idle_Callback;
357	Priority : Idle_Priority := Priority_Default_Idle)	357	Priority : Idle_Priority := Priority_Default_Idle)
358	return Idle_Handler_Id;	358	return Idle_Handler_Id;
359	pragma Obsolescent (Idle_Add, "Use Glib.Main.Idle_Add"); -- Idle_Add_Full	359	pragma Obsolescent (Entity => Idle_Add, "Use Glib.Main.Idle_Add");
		360	-- Idle_Add_Full
360	-- Register an idle callback with no user data.	361	-- Register an idle callback with no user data.
361		362
362	generic	363	generic
Lines 371-377 package Gtk.Main is Link Here
371	Priority : Idle_Priority := Priority_Default_Idle;	372	Priority : Idle_Priority := Priority_Default_Idle;
372	Destroy : Destroy_Callback := null)	373	Destroy : Destroy_Callback := null)
373	return Idle_Handler_Id;	374	return Idle_Handler_Id;
374	pragma Obsolescent (Add, "Use Glib.Main.Idle");	375	pragma Obsolescent (Entity => Add, "Use Glib.Main.Idle");
375		376
376	private	377	private
377	procedure Free_Data (D : System.Address);	378	procedure Free_Data (D : System.Address);
Lines 385-391 package Gtk.Main is Link Here
385	-- to Idle_Remove.	386	-- to Idle_Remove.
386		387
387	procedure Idle_Remove (Id : Idle_Handler_Id);	388	procedure Idle_Remove (Id : Idle_Handler_Id);
388	pragma Obsolescent (Idle_Remove, "Use Glib.Main.Idle_Remove");	389	pragma Obsolescent (Entity => Idle_Remove, "Use Glib.Main.Idle_Remove");
389	-- Remove an idle callback, when its Id is known.	390	-- Remove an idle callback, when its Id is known.
390		391
391	type Timeout_Handler_Id is new Guint;	392	type Timeout_Handler_Id is new Guint;
Lines 401-407 package Gtk.Main is Link Here
401	function Timeout_Add	402	function Timeout_Add
402	(Interval : Guint32;	403	(Interval : Guint32;
403	Func : Timeout_Callback) return Timeout_Handler_Id;	404	Func : Timeout_Callback) return Timeout_Handler_Id;
404	pragma Obsolescent (Timeout_Add, "Use Glib.Main.Timeout_Add");	405	pragma Obsolescent (Entity => Timeout_Add, "Use Glib.Main.Timeout_Add");
405	-- Add a new timeout. Func will be called after Interval milliseconds.	406	-- Add a new timeout. Func will be called after Interval milliseconds.
406	-- The function will be called as long as it returns True.	407	-- The function will be called as long as it returns True.
407		408
Lines 416-422 package Gtk.Main is Link Here
416	Func : Callback;	417	Func : Callback;
417	D : Data_Type;	418	D : Data_Type;
418	Destroy : Destroy_Callback := null) return Timeout_Handler_Id;	419	Destroy : Destroy_Callback := null) return Timeout_Handler_Id;
419	pragma Obsolescent (Add, "Use Glib.Main.Timeout");	420	pragma Obsolescent (Entity => Add, "Use Glib.Main.Timeout");
420	-- Adds a new timeout. Func will be called after Interval milliseconds.	421	-- Adds a new timeout. Func will be called after Interval milliseconds.
421		422
422	private	423	private
Lines 428-455 package Gtk.Main is Link Here
428	end Timeout;	429	end Timeout;
429		430
430	procedure Timeout_Remove (Id : Timeout_Handler_Id);	431	procedure Timeout_Remove (Id : Timeout_Handler_Id);
431	pragma Obsolescent (Timeout_Remove, "Use Glib.Main.Timeout_Remove");	432	pragma Obsolescent (Entity => Timeout_Remove,
		433	"Use Glib.Main.Timeout_Remove");
432	-- Unregister a timeout function.	434	-- Unregister a timeout function.
433		435
434	function Set_Locale return String;	436	function Set_Locale return String;
435	pragma Obsolescent (Set_Locale);	437	pragma Obsolescent (Entity => Set_Locale);
436	-- Read and parse the local settings, such as time format, ...	438	-- Read and parse the local settings, such as time format, ...
437	-- Return the name of the local settings, which can also be set with	439	-- Return the name of the local settings, which can also be set with
438	-- the environment variable LOCALE	440	-- the environment variable LOCALE
439		441
440	procedure Set_Locale;	442	procedure Set_Locale;
441	pragma Obsolescent (Set_Locale);	443	pragma Obsolescent (Entity => Set_Locale);
442	-- Read and parse the local settings, such as time format, ...	444	-- Read and parse the local settings, such as time format, ...
443		445
444	procedure Init_Add (Func : Init_Function; Data : System.Address);	446	procedure Init_Add (Func : Init_Function; Data : System.Address);
445	pragma Obsolescent (Init_Add);	447	pragma Obsolescent (Entity => Init_Add);
446	-- Register a function to be called just before starting a main loop.	448	-- Register a function to be called just before starting a main loop.
447	-- This function is called only once, even if a new main loop is started	449	-- This function is called only once, even if a new main loop is started
448	-- recursively.	450	-- recursively.
449		451
450	function Quit_Add	452	function Quit_Add
451	(Main_Level : Guint; Func : Quit_Function) return Quit_Handler_Id;	453	(Main_Level : Guint; Func : Quit_Function) return Quit_Handler_Id;
452	pragma Obsolescent (Quit_Add);	454	pragma Obsolescent (Entity => Quit_Add);
453	-- Register a new function to be called when the current main loop exits.	455	-- Register a new function to be called when the current main loop exits.
454	-- The function will be called once when the current main loop exists.	456	-- The function will be called once when the current main loop exists.
455	-- If it returns False, it will then be deleted from the list of	457	-- If it returns False, it will then be deleted from the list of
Lines 463-474 package Gtk.Main is Link Here
463	(Main_Level : Guint;	465	(Main_Level : Guint;
464	Object : access Gtk.Object.Gtk_Object_Record'Class)	466	Object : access Gtk.Object.Gtk_Object_Record'Class)
465	return Quit_Handler_Id;	467	return Quit_Handler_Id;
466	pragma Obsolescent (Quit_Add_Destroy);	468	pragma Obsolescent (Entity => Quit_Add_Destroy);
467	-- Ensure that Object is destroyed when exiting the main loop at Main_Level	469	-- Ensure that Object is destroyed when exiting the main loop at Main_Level
468	-- (or the current main loop level is 0).	470	-- (or the current main loop level is 0).
469		471
470	procedure Quit_Remove (Id : Quit_Handler_Id);	472	procedure Quit_Remove (Id : Quit_Handler_Id);
471	pragma Obsolescent (Quit_Remove);	473	pragma Obsolescent (Entity => Quit_Remove);
472	-- Remove a Quit Handler, that has been previously set by Quit_Add.	474	-- Remove a Quit Handler, that has been previously set by Quit_Add.
473		475
474	-- </doc_ignore>	476	-- </doc_ignore>

Line 0 Link Here

(-)a/src/gtk-object.ads.orig (+325 lines)
		1	-----------------------------------------------------------------------
		2	-- GtkAda - Ada95 binding for Gtk+/Gnome --
		3	-- --
		4	-- Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet --
		5	-- Copyright (C) 2000-2011, AdaCore --
		6	-- --
		7	-- This library is free software; you can redistribute it and/or --
		8	-- modify it under the terms of the GNU General Public --
		9	-- License as published by the Free Software Foundation; either --
		10	-- version 2 of the License, or (at your option) any later version. --
		11	-- --
		12	-- This library is distributed in the hope that it will be useful, --
		13	-- but WITHOUT ANY WARRANTY; without even the implied warranty of --
		14	-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU --
		15	-- General Public License for more details. --
		16	-- --
		17	-- You should have received a copy of the GNU General Public --
		18	-- License along with this library; if not, write to the --
		19	-- Free Software Foundation, Inc., 59 Temple Place - Suite 330, --
		20	-- Boston, MA 02111-1307, USA. --
		21	-- --
		22	-- As a special exception, if other files instantiate generics from --
		23	-- this unit, or you link this unit with other files to produce an --
		24	-- executable, this unit does not by itself cause the resulting --
		25	-- executable to be covered by the GNU General Public License. This --
		26	-- exception does not however invalidate any other reasons why the --
		27	-- executable file might be covered by the GNU Public License. --
		28	-----------------------------------------------------------------------
		29
		30	-- <description>
		31	-- This is the base class of the widget hierarchy.
		32	-- Everything in GtkAda inherits from this class Gtk_Object, except for a few
		33	-- structures in the Gdk.* packages (low-level drawing routines).
		34	--
		35	-- This class provides a set of handful features that you can choose to reuse
		36	-- in your applications:
		37	--
		38	-- - Reference counting: an object is not deleted while there exists at least
		39	-- one reference to it. Although GtkAda mostly takes care of that aspect
		40	-- transparently, you might need in some obscure cases to increment or
		41	-- decrement the reference counting for a widget manually, so that it is not
		42	-- removed from memory while you still need it.
		43	--
		44	-- - User data: any number of data can be attached to a Gtk_Object or one of
		45	-- its children. Theses data are referenced by a String, in a hash-table.
		46	-- GtkAda itself uses this feature to provide an easy conversion between C
		47	-- and Ada widgets.
		48	-- Although you might prefer to have a completely object-oriented
		49	-- application (and thus associate data through class inheritance), it
		50	-- might be convenient to directly attach some data to your objects.
		51	--
		52	-- - It also contains the basic structures and subprograms required for signal
		53	-- emission. This is of course used to implement the signal mechanism in
		54	-- GtkAda itself, but can also be used to implement a Model/View/Controller
		55	-- framework.
		56	--
		57	-- Note that a lot of functions provided in the C interface are not provided
		58	-- here. They are used to emulate an object-oriented language in C, which can
		59	-- of course be done much more conveniently in Ada. Therefore most of these
		60	-- functions are not needed.
		61	--
		62	-- Here is a brief explanation on how the reference counting and destruction
		63	-- process work. You should not have to understand all this to use GtkAda, but
		64	-- it might help anyway.
65	--
66	-- When an object (descendant of Gtk.Object) is created, it has initially a
67	-- ref_count of 1. A flag is set to say the object is "floating". See the
68	-- Flags functions in this package for how to retrieve the status of this
69	-- flag.
70	--
71	-- When the object gets a parent (ie Gtk.Widget.Set_Parent is called, possibly
72	-- from other subprograms like Gtk.Container.Add, Gtk.Box.Pack_Start, ...),
73	-- the ref_count of the object is incremented to 2.
74	-- If the object was still "floating", it is also "sinked", ie its ref_count
75	-- is decremented to 1, and the "floating" flag is cleared.
76	--
77	-- The same behavior as above happens when the object is registered as a
78	-- top-level widget (i.e. we know it won't have any parent).
79	--
80	-- Thus the normal life cycle of an object is to have a ref_count to 1, and
81	-- not be a "floating" object.
82	--
83	-- When the object is destroyed, the following happens:
84	-- A temporary reference to the object is created (call to Ref), and
85	-- ref_count to 2.
86	-- The object is shutdown:
87	-- It is removed from its parent (if any), and its ref_count is
88	-- decremented to 1.
89	-- The "destroy" signal is emitted, the user's handlers are called,
90	-- and then all the handlers connected to the object are destroyed.
91	-- The object is unref-ed. If its ref_count goes down to 0 (normal case),
92	-- the memory used by the object and its user_data is freed.
93	--
94	-- </description>
95	-- <c_version>2.8.17</c_version>
96	-- <group>Abstract base classes</group>
97
98	with Glib.Object;
99	with Glib.Properties;
100	with Glib.GSlist;
101	with Gtkada.Types;
102
103	package Gtk.Object is
104
105	type Gtk_Object_Record is new Glib.Object.GObject_Record with private;
106	type Gtk_Object is access all Gtk_Object_Record'Class;
107
108	procedure Destroy (Object : access Gtk_Object_Record);
109	-- Destroy the object.
110	-- This emits a "destroy" signal, calls all your handlers, and then
111	-- unconnects them all. The object is then unref-ed, and if its reference
112	-- count goes down to 0, the memory associated with the object and its
113	-- user data is freed.
114	-- Note that when you destroy handlers are called, the user_data is still
115	-- available.
116	--
117	-- When a widget is destroyed, it will break any references it holds to
118	-- other objects. If the widget is inside a container, the widget will be
119	-- removed from the container. If the widget is a toplevel (derived from
120	-- Gtk_Window), it will be removed from the list of toplevels, and the
121	-- reference GTK+ holds to it will be removed. Removing widget from its
122	-- container or the list of toplevels results in the widget being
123	-- finalized, unless you've added additional references to the widget with
124	-- Ref.
125	--
126	-- In most cases, only toplevel widgets (windows) require explicit
127	-- destruction, because when you destroy a toplevel its children will be
128	-- destroyed as well.
129
130	function Get_Type return Gtk.Gtk_Type;
131	-- Return the internal value associated with a Gtk_Object internally.
132	pragma Import (C, Get_Type, "gtk_object_get_type");
133
134	function Get_Type (Object : access Gtk_Object_Record) return Gtk_Type;
135	-- This function is now obsolete, and is temporarily kept for backward
136	-- compatibility only. Use Glib.Object.Get_Type instead.
137	-- ???
138
139	-----------
140	-- Lists --
141	-----------
142
143	function Convert (W : Gtk_Object) return System.Address;
144	function Convert (W : System.Address) return Gtk_Object;
145
146	package Object_SList is new Glib.GSlist.Generic_SList (Gtk_Object);
147
148	-----------
149	-- Flags --
150	-----------
151	-- Each object is associated with a set of flags, that reports the state
152	-- of the object.
153	-- The following flags are known by all objects:
154	--
155	-- - "Destroyed":
156	-- Set if the object is marked as destroyed (if its reference count is
157	-- not yet 0, the memory has not been freed, but you should not use it
158	-- anyway).
159	--
160	-- - "Floating":
161	-- The object has no parent yet, since it was just created. Its
162	-- reference count is still 1 (as it was initially). This flag is
163	-- cleared as soon as Set_Parent is called on the widget or the widget
164	-- is qualified as a toplevel widget (see
165	-- Gtk.Container.Register_Toplevel).
166
167	In_Destruction : constant := 2 ** 0;
168	Floating : constant := 2 ** 1;
169	Reserved_1 : constant := 2 ** 2;
170	Reserved_2 : constant := 2 ** 3;
171
172	function Flags (Object : access Gtk_Object_Record) return Guint32;
173	-- Return the flags that are set for the object, as a binary mask.
174
175	procedure Set_Flags (Object : access Gtk_Object_Record; Flags : Guint32);
176	-- Set some specific flags for the object.
177	-- Flags is a mask that will be added to the current flags of the object.
178
179	procedure Unset_Flags (Object : access Gtk_Object_Record; Flags : Guint32);
180	-- Unset some specific flags for the object.
181	-- Flags is a mask that will be deleted from the current flags of the
182	-- object.
183
184	function Flag_Is_Set
185	(Object : access Gtk_Object_Record; Flag : Guint32) return Boolean;
186	-- Return True if the specific flag Flag is set for the object.
187
188	function In_Destruction_Is_Set
189	(Object : access Gtk_Object_Record'Class) return Boolean;
190	-- Test if the Destroyed flag is set for the object.
191
192	-- <doc_ignore>
193	function Destroyed_Is_Set (Object : access Gtk_Object_Record'Class)
194	return Boolean renames In_Destruction_Is_Set;
195	-- backward compatibility only
196	-- </doc_ignore>
197
198	function Floating_Is_Set
199	(Object : access Gtk_Object_Record'Class) return Boolean;
200	-- Test if the Floating flag is set for the object.
201
202	--------------------------
203	-- Creating new widgets --
204	--------------------------
205
206	-- <doc_ignore>
207	-- The following definitions are only provided for better backward
208	-- compatibility. You should use Glib.Object directly.
209
210	subtype GObject_Class is Glib.Object.GObject_Class;
211	Uninitialized_Class : GObject_Class renames
212	Glib.Object.Uninitialized_Class;
213
214	subtype Signal_Parameter_Types is Glib.Object.Signal_Parameter_Types;
215
216	Null_Parameter_Types : Signal_Parameter_Types renames
217	Glib.Object.Null_Parameter_Types;
218
219	procedure Initialize_Class_Record
220	(Object : access GObject_Record'Class;
221	Signals : Gtkada.Types.Chars_Ptr_Array;
222	Class_Record : in out GObject_Class;
223	Type_Name : String;
224	Parameters : Signal_Parameter_Types := Null_Parameter_Types)
225	renames Glib.Object.Initialize_Class_Record;
226
227	-- </doc_ignore>
228
229	---------------
230	-- User Data --
231	---------------
232	-- It is possible to associate your own specific data with an existing
233	-- object. See the documentation in Glib.Object.
234	-- The declaration below has been kept for compatibility reasons.
235
236	generic
237	package User_Data renames Glib.Object.User_Data;
238
239	-----------------
240	-- Obsolescent --
241	-----------------
242	-- All subprograms below are now obsolescent in gtk+. They might be removed
243	-- from future versions of gtk+ (and therefore GtkAda).
244	-- To find out whether your code uses any of these, we recommend compiling
245	-- with the -gnatwj switch
246	-- <doc_ignore>
247
248	procedure Sink (Object : access Gtk_Object_Record);
249	pragma Obsolescent (Sink);
250	-- Sink the object.
251	-- If the object is floating (does not have a parent yet), it is unref-ed
252	-- once and the floating flag is cleared.
253
254	-- </doc_ignore>
255
256	----------------
257	-- Properties --
258	----------------
259
260	-- <properties>
261	-- The following properties are defined for this widget. See
262	-- Glib.Properties for more information on properties.
263	--
264	-- - Name: User_Data_Property
265	-- Type: Pointer
266	-- Flags: read-write
267	-- Descr: Anonymous User Data Pointer
268	-- See also: User_Data.Set, using the default Id "user_data"
269	--
270	-- </properties>
271
272	User_Data_Property : constant Glib.Properties.Property_Address;
273
274	-------------
275	-- Signals --
276	-------------
277
278	-- <signals>
279	-- The following new signals are defined for this widget:
280	--
281	-- - "destroy"
282	-- procedure Handler (Object : access Gtk_Object_Record'Class);
283	--
284	-- Raised when the object is about to be destroyed. The "destroyed"
285	-- flag has been set on the object first. Handlers should not keep
286	-- a reference on the object.
287	-- Note that when your destroy handlers are called, the user_data is
288	-- still available.
289	-- The default implementation destroys all the handlers.
290	-- </signals>
291
292	Signal_Destroy : constant Glib.Signal_Name := "destroy";
293
294	private
295	type Gtk_Object_Record is new Glib.Object.GObject_Record with null record;
296
297	User_Data_Property : constant Glib.Properties.Property_Address :=
298	Glib.Properties.Build ("user_data");
299
300	pragma Inline (Floating_Is_Set);
301	pragma Inline (In_Destruction_Is_Set);
302
303	end Gtk.Object;
304
305	-- The following subprograms never had a binding, but are now obsolescent
306	-- No binding: gtk_object_add_arg_type
307	-- No binding: gtk_object_get
308	-- No binding: gtk_object_get_data
309	-- No binding: gtk_object_get_data_by_id
310	-- No binding: gtk_object_get_user_data
311	-- No binding: gtk_object_new
312	-- No binding: gtk_object_ref
313	-- No binding: gtk_object_unref
314	-- No binding: gtk_object_remove_data
315	-- No binding: gtk_object_remove_data_by_id
316	-- No binding: gtk_object_remove_no_notify
317	-- No binding: gtk_object_remove_no_notify_by_id
318	-- No binding: gtk_object_set
319	-- No binding: gtk_object_set_data
320	-- No binding: gtk_object_set_data_by_id
321	-- No binding: gtk_object_set_data_by_id_full
322	-- No binding: gtk_object_set_data_full
323	-- No binding: gtk_object_set_user_data
324	-- No binding: gtk_object_weakref
325	-- No binding: gtk_object_weakunref

Lines 392-398 package Gtk.Style is Link Here

(-)a/src/gtk-style.ads (-5 / +5 lines)
392		392
393	-- <doc_ignore>	393	-- <doc_ignore>
394	function Get_Font (Style : Gtk_Style) return Gdk.Font.Gdk_Font;	394	function Get_Font (Style : Gtk_Style) return Gdk.Font.Gdk_Font;
395	pragma Obsolescent ("Use Get_Font_Description"); -- Get_Font	395	pragma Obsolescent (Entity => Get_Font, "Use Get_Font_Description");
396	-- </doc_ignore>	396	-- </doc_ignore>
397		397
398	procedure Set_Bg_Pixmap	398	procedure Set_Bg_Pixmap
Lines 767-773 package Gtk.Style is Link Here
767	Shadow_Type : Enums.Gtk_Shadow_Type;	767	Shadow_Type : Enums.Gtk_Shadow_Type;
768	Points : Gdk.Types.Gdk_Points_Array;	768	Points : Gdk.Types.Gdk_Points_Array;
769	Fill : Boolean);	769	Fill : Boolean);
770	pragma Obsolescent ("Use Paint_Polygon"); -- Draw_Polygon	770	pragma Obsolescent (Entity => Draw_Polygon, "Use Paint_Polygon");
771	-- Draws a polygon in Window	771	-- Draws a polygon in Window
772		772
773	procedure Draw_Arrow	773	procedure Draw_Arrow
Lines 780-786 package Gtk.Style is Link Here
780	X, Y : Gint;	780	X, Y : Gint;
781	Width : Gint;	781	Width : Gint;
782	Height : Gint);	782	Height : Gint);
783	pragma Obsolescent ("Use Pain_Arrow"); -- Draw_Arrow	783	pragma Obsolescent (Entity => Draw_Arrow, "Use Pain_Arrow");
784	-- Draws an arrow in Window, within the given rectangle	784	-- Draws an arrow in Window, within the given rectangle
785		785
786	procedure Draw_Shadow	786	procedure Draw_Shadow
Lines 792-798 package Gtk.Style is Link Here
792	Y : Gint;	792	Y : Gint;
793	Width : Gint;	793	Width : Gint;
794	Height : Gint);	794	Height : Gint);
795	pragma Obsolescent; -- Draw_Shadow	795	pragma Obsolescent (Entity => Draw_Shadow);
796	-- Draws a shadow around the given rectangle in @window	796	-- Draws a shadow around the given rectangle in @window
797	-- using the given style and state and shadow type.	797	-- using the given style and state and shadow type.
798		798
Lines 803-809 package Gtk.Style is Link Here
803	State_Type : Enums.Gtk_State_Type;	803	State_Type : Enums.Gtk_State_Type;
804	X, Y : Gint;	804	X, Y : Gint;
805	Str : UTF8_String);	805	Str : UTF8_String);
806	pragma Obsolescent ("Use Paint_String"); -- Draw_String	806	pragma Obsolescent (Entity => Draw_String, "Use Paint_String");
807	-- Draws a text on Window	807	-- Draws a text on Window
808		808
809	-- </doc_ignore>	809	-- </doc_ignore>

Lines 179-191 package Gtk.Toolbar is Link Here

(-)a/src/gtk-toolbar.ads (-19 / +33 lines)
179	(Widget : out Gtk_Toolbar;	179	(Widget : out Gtk_Toolbar;
180	Orientation : Gtk_Orientation;	180	Orientation : Gtk_Orientation;
181	Style : Gtk_Toolbar_Style);	181	Style : Gtk_Toolbar_Style);
182	pragma Obsolescent;	182	pragma Obsolescent (Entity => Gtk_New);
183		183
184	procedure Initialize	184	procedure Initialize
185	(Widget : access Gtk_Toolbar_Record'Class;	185	(Widget : access Gtk_Toolbar_Record'Class;
186	Orientation : Gtk_Orientation;	186	Orientation : Gtk_Orientation;
187	Style : Gtk_Toolbar_Style);	187	Style : Gtk_Toolbar_Style);
188	pragma Obsolescent;	188	pragma Obsolescent (Entity => Initialize);
189		189
190	type Gtk_Toolbar_Child_Type is	190	type Gtk_Toolbar_Child_Type is
191	(Toolbar_Child_Space,	191	(Toolbar_Child_Space,
Lines 208-214 package Gtk.Toolbar is Link Here
208	Tooltip_Private_Text : UTF8_String := "";	208	Tooltip_Private_Text : UTF8_String := "";
209	Icon : Gtk.Widget.Gtk_Widget := null)	209	Icon : Gtk.Widget.Gtk_Widget := null)
210	return Gtk.Widget.Gtk_Widget;	210	return Gtk.Widget.Gtk_Widget;
211	pragma Obsolescent ("Use Gtk.Toolbar.Insert instead"); -- Append_Element	211	pragma Obsolescent (Entity => Append_Element,
		212	"Use Gtk.Toolbar.Insert instead");
212		213
213	function Prepend_Element	214	function Prepend_Element
214	(Toolbar : access Gtk_Toolbar_Record;	215	(Toolbar : access Gtk_Toolbar_Record;
Lines 219-225 package Gtk.Toolbar is Link Here
219	Tooltip_Private_Text : UTF8_String := "";	220	Tooltip_Private_Text : UTF8_String := "";
220	Icon : Gtk.Widget.Gtk_Widget := null)	221	Icon : Gtk.Widget.Gtk_Widget := null)
221	return Gtk.Widget.Gtk_Widget;	222	return Gtk.Widget.Gtk_Widget;
222	pragma Obsolescent ("Use Gtk.Toolbar.Insert instead"); -- Prepend_Element	223	pragma Obsolescent (Entity => Prepend_Element,
		224	"Use Gtk.Toolbar.Insert instead");
223		225
224	function Insert_Element	226	function Insert_Element
225	(Toolbar : access Gtk_Toolbar_Record;	227	(Toolbar : access Gtk_Toolbar_Record;
Lines 231-237 package Gtk.Toolbar is Link Here
231	Icon : Gtk.Widget.Gtk_Widget := null;	233	Icon : Gtk.Widget.Gtk_Widget := null;
232	Position : Gint)	234	Position : Gint)
233	return Gtk.Widget.Gtk_Widget;	235	return Gtk.Widget.Gtk_Widget;
234	pragma Obsolescent ("Use Gtk.Toolbar.Insert instead"); -- Insert_Element	236	pragma Obsolescent (Entity => Insert_Element,
		237	"Use Gtk.Toolbar.Insert instead");
235		238
236	function Append_Item	239	function Append_Item
237	(Toolbar : access Gtk_Toolbar_Record;	240	(Toolbar : access Gtk_Toolbar_Record;
Lines 240-246 package Gtk.Toolbar is Link Here
240	Tooltip_Private_Text : UTF8_String := "";	243	Tooltip_Private_Text : UTF8_String := "";
241	Icon : Gtk.Widget.Gtk_Widget := null)	244	Icon : Gtk.Widget.Gtk_Widget := null)
242	return Gtk.Button.Gtk_Button;	245	return Gtk.Button.Gtk_Button;
243	pragma Obsolescent ("Use Gtk.Toolbar.Insert instead"); -- Append_Item	246	pragma Obsolescent (Entity => Append_Item,
		247	"Use Gtk.Toolbar.Insert instead");
244		248
245	function Prepend_Item	249	function Prepend_Item
246	(Toolbar : access Gtk_Toolbar_Record;	250	(Toolbar : access Gtk_Toolbar_Record;
Lines 249-255 package Gtk.Toolbar is Link Here
249	Tooltip_Private_Text : UTF8_String := "";	253	Tooltip_Private_Text : UTF8_String := "";
250	Icon : Gtk.Widget.Gtk_Widget := null)	254	Icon : Gtk.Widget.Gtk_Widget := null)
251	return Gtk.Button.Gtk_Button;	255	return Gtk.Button.Gtk_Button;
252	pragma Obsolescent ("Use Gtk.Toolbar.Insert instead"); -- Prepend_Item	256	pragma Obsolescent (Entity => Prepend_Item,
		257	"Use Gtk.Toolbar.Insert instead");
253		258
254	function Insert_Item	259	function Insert_Item
255	(Toolbar : access Gtk_Toolbar_Record;	260	(Toolbar : access Gtk_Toolbar_Record;
Lines 259-265 package Gtk.Toolbar is Link Here
259	Icon : Gtk.Widget.Gtk_Widget := null;	264	Icon : Gtk.Widget.Gtk_Widget := null;
260	Position : Gint)	265	Position : Gint)
261	return Gtk.Button.Gtk_Button;	266	return Gtk.Button.Gtk_Button;
262	pragma Obsolescent ("Use Gtk.Toolbar.Insert instead"); -- Insert_Item	267	pragma Obsolescent (Entity => Insert_Item,
		268	"Use Gtk.Toolbar.Insert instead");
263		269
264	function Insert_Stock	270	function Insert_Stock
265	(Toolbar : access Gtk_Toolbar_Record;	271	(Toolbar : access Gtk_Toolbar_Record;
Lines 267-301 package Gtk.Toolbar is Link Here
267	Tooltip_Text : UTF8_String := "";	273	Tooltip_Text : UTF8_String := "";
268	Tooltip_Private_Text : UTF8_String := "";	274	Tooltip_Private_Text : UTF8_String := "";
269	Position : Gint := -1) return Gtk.Button.Gtk_Button;	275	Position : Gint := -1) return Gtk.Button.Gtk_Button;
270	pragma Obsolescent ("Use Gtk.Toolbar.Insert instead"); -- Insert_Stock	276	pragma Obsolescent (Entity => Insert_Stock,
		277	"Use Gtk.Toolbar.Insert instead");
271		278
272	procedure Append_Space (Toolbar : access Gtk_Toolbar_Record);	279	procedure Append_Space (Toolbar : access Gtk_Toolbar_Record);
273	pragma Obsolescent ("Use Gtk.Toolbar.Insert instead"); -- Append_Space	280	pragma Obsolescent (Entity => Append_Space,
		281	"Use Gtk.Toolbar.Insert instead");
274		282
275	procedure Prepend_Space (Toolbar : access Gtk_Toolbar_Record);	283	procedure Prepend_Space (Toolbar : access Gtk_Toolbar_Record);
276	pragma Obsolescent ("Use Gtk.Toolbar.Insert instead"); -- Prepend_Space	284	pragma Obsolescent (Entity => Prepend_Space,
		285	"Use Gtk.Toolbar.Insert instead");
277		286
278	procedure Insert_Space	287	procedure Insert_Space
279	(Toolbar : access Gtk_Toolbar_Record; Position : Gint);	288	(Toolbar : access Gtk_Toolbar_Record; Position : Gint);
280	pragma Obsolescent ("Use Gtk.Toolbar.Insert instead"); -- Insert_Space	289	pragma Obsolescent (Entity => Insert_Space,
		290	"Use Gtk.Toolbar.Insert instead");
281		291
282	procedure Remove_Space	292	procedure Remove_Space
283	(Toolbar : access Gtk_Toolbar_Record; Position : Gint);	293	(Toolbar : access Gtk_Toolbar_Record; Position : Gint);
284	pragma Obsolescent ("Use Gtk.Toolbar.Insert instead"); -- Remove_Space	294	pragma Obsolescent (Entity => Remove_Space,
		295	"Use Gtk.Toolbar.Insert instead");
285		296
286	procedure Append_Widget	297	procedure Append_Widget
287	(Toolbar : access Gtk_Toolbar_Record;	298	(Toolbar : access Gtk_Toolbar_Record;
288	Widget : access Gtk.Widget.Gtk_Widget_Record'Class;	299	Widget : access Gtk.Widget.Gtk_Widget_Record'Class;
289	Tooltip_Text : UTF8_String := "";	300	Tooltip_Text : UTF8_String := "";
290	Tooltip_Private_Text : UTF8_String := "");	301	Tooltip_Private_Text : UTF8_String := "");
291	pragma Obsolescent ("Use Gtk.Toolbar.Insert instead"); -- Append_Widget	302	pragma Obsolescent (Entity => Append_Widget,
		303	"Use Gtk.Toolbar.Insert instead");
292		304
293	procedure Prepend_Widget	305	procedure Prepend_Widget
294	(Toolbar : access Gtk_Toolbar_Record;	306	(Toolbar : access Gtk_Toolbar_Record;
295	Widget : access Gtk.Widget.Gtk_Widget_Record'Class;	307	Widget : access Gtk.Widget.Gtk_Widget_Record'Class;
296	Tooltip_Text : UTF8_String := "";	308	Tooltip_Text : UTF8_String := "";
297	Tooltip_Private_Text : UTF8_String := "");	309	Tooltip_Private_Text : UTF8_String := "");
298	pragma Obsolescent ("Use Gtk.Toolbar.Insert instead"); -- Prepend_Widget	310	pragma Obsolescent (Entity => Prepend_Widget,
		311	"Use Gtk.Toolbar.Insert instead");
299		312
300	procedure Insert_Widget	313	procedure Insert_Widget
301	(Toolbar : access Gtk_Toolbar_Record;	314	(Toolbar : access Gtk_Toolbar_Record;
Lines 303-318 package Gtk.Toolbar is Link Here
303	Tooltip_Text : UTF8_String := "";	316	Tooltip_Text : UTF8_String := "";
304	Tooltip_Private_Text : UTF8_String := "";	317	Tooltip_Private_Text : UTF8_String := "";
305	Position : Gint);	318	Position : Gint);
306	pragma Obsolescent ("Use Gtk.Toolbar.Insert instead"); -- Insert_Widget	319	pragma Obsolescent (Entity => Insert_Widget,
		320	"Use Gtk.Toolbar.Insert instead");
307		321
308	procedure Set_Icon_Size	322	procedure Set_Icon_Size
309	(Toolbar : access Gtk_Toolbar_Record;	323	(Toolbar : access Gtk_Toolbar_Record;
310	Icon_Size : Gtk_Icon_Size);	324	Icon_Size : Gtk_Icon_Size);
311	pragma Obsolescent -- Set_Icon_Size	325	pragma Obsolescent (Entity => Set_Icon_Size,
312	("Applications should respect user preferences (gtk+ themes)");	326	"Applications should respect user preferences (gtk+ themes)");
313		327
314	procedure Unset_Icon_Size (Toolbar : access Gtk_Toolbar_Record);	328	procedure Unset_Icon_Size (Toolbar : access Gtk_Toolbar_Record);
315	pragma Obsolescent; -- Unset_Icon_Size	329	pragma Obsolescent (Entity => Unset_Icon_Size);
316	-- Unsets icon sizes set through Set_Icon_Size, so that user preferences	330	-- Unsets icon sizes set through Set_Icon_Size, so that user preferences
317	-- set through the gtk+ theme are used	331	-- set through the gtk+ theme are used
318		332

Lines 1418-1424 package Gtk.Widget is Link Here

(-)a/src/gtk-widget.ads (-5 / +5 lines)
1418	procedure Draw	1418	procedure Draw
1419	(Widget : access Gtk_Widget_Record;	1419	(Widget : access Gtk_Widget_Record;
1420	Area : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area);	1420	Area : Gdk.Rectangle.Gdk_Rectangle := Gdk.Rectangle.Full_Area);
1421	pragma Obsolescent; -- Draw	1421	pragma Obsolescent (Entity => Draw);
1422	-- Emit a "draw" signal for a specific area of the widget.	1422	-- Emit a "draw" signal for a specific area of the widget.
1423	-- The visual aspect might be different whether the widget has the focus	1423	-- The visual aspect might be different whether the widget has the focus
1424	-- or not.	1424	-- or not.
Lines 1426-1432 package Gtk.Widget is Link Here
1426	procedure Set_UPosition	1426	procedure Set_UPosition
1427	(Widget : access Gtk_Widget_Record;	1427	(Widget : access Gtk_Widget_Record;
1428	X, Y : Gint);	1428	X, Y : Gint);
1429	pragma Obsolescent; -- Set_Uposition	1429	pragma Obsolescent (Entity => Set_Uposition);
1430	-- Modify the position of the widget.	1430	-- Modify the position of the widget.
1431	-- This should be used only for toplevel widgets (windows and dialogs),	1431	-- This should be used only for toplevel widgets (windows and dialogs),
1432	-- since other widgets' positions are handled by their parent.	1432	-- since other widgets' positions are handled by their parent.
Lines 1434-1440 package Gtk.Widget is Link Here
1434	procedure Set_USize	1434	procedure Set_USize
1435	(Widget : access Gtk_Widget_Record;	1435	(Widget : access Gtk_Widget_Record;
1436	Width, Height : Gint);	1436	Width, Height : Gint);
1437	pragma Obsolescent ("Use Set_Size_Request instead"); -- Set_Usize	1437	pragma Obsolescent (Entity => Set_USize, "Use Set_Size_Request instead");
1438	-- Modify the size of the widget.	1438	-- Modify the size of the widget.
1439	-- This sets an absolute size for the widget, no matter what its requested	1439	-- This sets an absolute size for the widget, no matter what its requested
1440	-- size would be. For Gtk_Windows, you should consider using	1440	-- size would be. For Gtk_Windows, you should consider using
Lines 1444-1450 package Gtk.Widget is Link Here
1444	-- default width is kept.	1444	-- default width is kept.
1445		1445
1446	procedure Queue_Clear (Widget : access Gtk_Widget_Record);	1446	procedure Queue_Clear (Widget : access Gtk_Widget_Record);
1447	pragma Obsolescent; -- Queue_Clear	1447	pragma Obsolescent (Entity => Queue_Clear);
1448	-- Add a clear request to the event queue for the whole widget.	1448	-- Add a clear request to the event queue for the whole widget.
1449	-- This is added to the same list as for Queue_Draw, and thus is coalesced	1449	-- This is added to the same list as for Queue_Draw, and thus is coalesced
1450	-- as much as possible with other drawing requests.	1450	-- as much as possible with other drawing requests.
Lines 1455-1461 package Gtk.Widget is Link Here
1455	Y : Gint;	1455	Y : Gint;
1456	Width : Gint;	1456	Width : Gint;
1457	Height : Gint);	1457	Height : Gint);
1458	pragma Obsolescent; -- Queue_Clear_Area	1458	pragma Obsolescent (Entity => Queue_Clear_Area);
1459	-- Add a clear request to the event queue for part of the widget.	1459	-- Add a clear request to the event queue for part of the widget.
1460	-- This is added to the same list as for Queue_Draw, and thus is coalesced	1460	-- This is added to the same list as for Queue_Draw, and thus is coalesced
1461	-- as much as possible with other drawing requests.	1461	-- as much as possible with other drawing requests.