1 files changed, 440 insertions, 0 deletions

diff --git a/x11-toolkits/qtada/files/patch-fix-limited.diff b/x11-toolkits/qtada/files/patch-fix-limited.diff
new file mode 100644
index 000000000000..8fe115aca992
--- /dev/null
+++ b/x11-toolkits/qtada/files/patch-fix-limited.diff
@@ -0,0 +1,440 @@
+Versions of GNAT older than 5 permitted the mistake of not pairing
+"limited" from forward declaration.  This fixes numerous instances of that
+mistake in qtada.
+
+--- examples/designer/custom_widget_plugin/analog_clock_plugin.ads.orig	2011-01-24 14:14:50 UTC
++++ examples/designer/custom_widget_plugin/analog_clock_plugin.ads
+@@ -37,7 +37,7 @@ package Analog_Clock_Plugin is
+ private
+ 
+    type Analog_Clock_Plugin is
+-     new Qt4.Objects.Directors.Q_Object_Director
++     limited new Qt4.Objects.Directors.Q_Object_Director
+        and Qt4.Designer_Custom_Widget_Interfaces.Q_Designer_Custom_Widget_Interface
+          with record
+       Q_Designer_Custom_Widget_Interface_View :
+--- examples/graphics_view/elastic_nodes/graph_widgets.ads.orig	2009-04-03 13:20:32 UTC
++++ examples/graphics_view/elastic_nodes/graph_widgets.ads
+@@ -43,7 +43,7 @@ package Graph_Widgets is
+ private
+ 
+    type Graph_Widget is
+-     new Qt4.Graphics_Views.Directors.Q_Graphics_View_Director with
++     limited new Qt4.Graphics_Views.Directors.Q_Graphics_View_Director with
+    record
+       Timer_Id    : Qt4.Q_Integer := 0;
+ 
+--- examples/item_views/chart/main_windows.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/item_views/chart/main_windows.ads
+@@ -49,7 +49,7 @@ package Main_Windows is
+ private
+ 
+    type Main_Window is
+-     new Qt4.Main_Windows.Directors.Q_Main_Window_Director with
++     limited new Qt4.Main_Windows.Directors.Q_Main_Window_Director with
+    record
+       Model           : Qt4.Abstract_Item_Models.Q_Abstract_Item_Model_Access;
+       Pie_Chart       : Qt4.Abstract_Item_Views.Q_Abstract_Item_View_Access;
+--- examples/item_views/chart/pie_views.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/item_views/chart/pie_views.ads
+@@ -49,7 +49,7 @@ package Pie_Views is
+ 
+ private
+ 
+-   type Pie_View is
++   type Pie_View is limited
+      new Qt4.Abstract_Item_Views.Directors.Q_Abstract_Item_View_Director with
+    record
+       Margin      : Qt4.Q_Integer;
+--- examples/main_windows/dock_widgets/main_windows.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/main_windows/dock_widgets/main_windows.ads
+@@ -39,7 +39,7 @@ package Main_Windows is
+ 
+ private
+ 
+-   type Main_Window is
++   type Main_Window is limited
+      new Qt4.Main_Windows.Directors.Q_Main_Window_Director with
+    record
+       Text_Edit       : Qt4.Text_Edits.Q_Text_Edit_Access;
+--- examples/qt_ada/tasking/emitters.ads.orig	2009-12-21 06:36:28 UTC
++++ examples/qt_ada/tasking/emitters.ads
+@@ -39,7 +39,7 @@ package Emitters is
+ 
+ private
+ 
+-   type Emitter is
++   type Emitter is limited
+      new Qt4.Objects.Directors.Q_Object_Director with null record;
+ 
+    procedure Emit_Progress_Value_Changed
+--- examples/qt_ada/tasking/main_windows.ads.orig	2009-12-21 06:36:28 UTC
++++ examples/qt_ada/tasking/main_windows.ads
+@@ -37,7 +37,7 @@ package Main_Windows is
+ 
+ private
+ 
+-   type Main_Window is
++   type Main_Window is limited
+      new Qt4.Main_Windows.Directors.Q_Main_Window_Director with record
+       Progress_Bar : Qt4.Progress_Bars.Q_Progress_Bar_Access;
+       Start_Button : Qt4.Push_Buttons.Q_Push_Button_Access;
+--- examples/sql/cached_table/table_editors.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/sql/cached_table/table_editors.ads
+@@ -43,7 +43,7 @@ package Table_Editors is
+ 
+ private
+ 
+-   type Table_Editor is
++   type Table_Editor is limited
+      new Qt4.Dialogs.Directors.Q_Dialog_Director with record
+       Submit_Button : Qt4.Push_Buttons.Q_Push_Button_Access;
+       Revert_Button : Qt4.Push_Buttons.Q_Push_Button_Access;
+--- examples/tools/echo_window/echo_plugin/echo_plugin.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tools/echo_window/echo_plugin/echo_plugin.ads
+@@ -45,7 +45,7 @@ package Echo_Plugin is
+ 
+ private
+ 
+-   type Echo_Plugin_Impl is new Qt4.Objects.Directors.Q_Object_Director
++   type Echo_Plugin_Impl is limited new Qt4.Objects.Directors.Q_Object_Director
+      and Echo_Interfaces.Echo_Interface with null record;
+    pragma Q_Export_Plugin (Echo_Plugin_Impl, Constructors.Create);
+ 
+--- examples/tools/echo_window/echo_windows.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tools/echo_window/echo_windows.ads
+@@ -38,7 +38,7 @@ package Echo_Windows is
+ 
+ private
+ 
+-   type Echo_Window is
++   type Echo_Window is limited
+      new Qt4.Widgets.Directors.Q_Widget_Director with record
+       Echo      : Echo_Interfaces.Echo_Interface_Access;
+       Label     : Qt4.Labels.Q_Label_Access;
+--- examples/tutorial/t10/cannon_fields.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t10/cannon_fields.ads
+@@ -52,7 +52,8 @@ package Cannon_Fields is
+ 
+ private
+ 
+-   type Cannon_Field is new Qt4.Widgets.Directors.Q_Widget_Director with record
++   type Cannon_Field is limited
++     new Qt4.Widgets.Directors.Q_Widget_Director with record
+       Current_Angle : Qt4.Q_Integer;
+       Current_Force : Qt4.Q_Integer;
+    end record;
+--- examples/tutorial/t10/lcd_ranges.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t10/lcd_ranges.ads
+@@ -46,7 +46,8 @@ package LCD_Ranges is
+ 
+ private
+ 
+-   type LCD_Range is new Qt4.Widgets.Directors.Q_Widget_Director with record
++   type LCD_Range is limited
++     new Qt4.Widgets.Directors.Q_Widget_Director with record
+       Slider : Qt4.Sliders.Q_Slider_Access;
+    end record;
+ 
+--- examples/tutorial/t10/my_widgets.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t10/my_widgets.ads
+@@ -33,7 +33,7 @@ package My_Widgets is
+ 
+ private
+ 
+-   type My_Widget is
++   type My_Widget is limited
+      new Qt4.Widgets.Directors.Q_Widget_Director with null record;
+ 
+ end My_Widgets;
+--- examples/tutorial/t11/cannon_fields.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t11/cannon_fields.ads
+@@ -57,7 +57,8 @@ package Cannon_Fields is
+ 
+ private
+ 
+-   type Cannon_Field is new Qt4.Widgets.Directors.Q_Widget_Director with record
++   type Cannon_Field is limited
++     new Qt4.Widgets.Directors.Q_Widget_Director with record
+       Current_Angle    : Qt4.Q_Integer;
+       Current_Force    : Qt4.Q_Integer;
+ 
+--- examples/tutorial/t11/lcd_ranges.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t11/lcd_ranges.ads
+@@ -46,7 +46,7 @@ package LCD_Ranges is
+ 
+ private
+ 
+-   type LCD_Range is
++   type LCD_Range is limited
+      new Qt4.Widgets.Directors.Q_Widget_Director with record
+       Slider : Qt4.Sliders.Q_Slider_Access;
+    end record;
+--- examples/tutorial/t11/my_widgets.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t11/my_widgets.ads
+@@ -33,7 +33,7 @@ package My_Widgets is
+ 
+ private
+ 
+-   type My_Widget is
++   type My_Widget is limited
+      new Qt4.Widgets.Directors.Q_Widget_Director with null record;
+ 
+ end My_Widgets;
+--- examples/tutorial/t12/cannon_fields.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t12/cannon_fields.ads
+@@ -63,7 +63,8 @@ package Cannon_Fields is
+ 
+ private
+ 
+-   type Cannon_Field is new Qt4.Widgets.Directors.Q_Widget_Director with record
++   type Cannon_Field is limited
++     new Qt4.Widgets.Directors.Q_Widget_Director with record
+       Current_Angle    : Qt4.Q_Integer;
+       Current_Force    : Qt4.Q_Integer;
+       Timer_Count      : Qt4.Q_Integer;
+--- examples/tutorial/t12/lcd_ranges.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t12/lcd_ranges.ads
+@@ -46,7 +46,8 @@ package LCD_Ranges is
+ 
+ private
+ 
+-   type LCD_Range is new Qt4.Widgets.Directors.Q_Widget_Director with record
++   type LCD_Range is limited
++     new Qt4.Widgets.Directors.Q_Widget_Director with record
+       Slider : Qt4.Sliders.Q_Slider_Access;
+    end record;
+ 
+--- examples/tutorial/t12/my_widgets.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t12/my_widgets.ads
+@@ -33,7 +33,7 @@ package My_Widgets is
+ 
+ private
+ 
+-   type My_Widget is
++   type My_Widget is limited
+      new Qt4.Widgets.Directors.Q_Widget_Director with null record;
+ 
+ end My_Widgets;
+--- examples/tutorial/t13/cannon_fields.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t13/cannon_fields.ads
+@@ -73,7 +73,8 @@ package Cannon_Fields is
+ 
+ private
+ 
+-   type Cannon_Field is new Qt4.Widgets.Directors.Q_Widget_Director with record
++   type Cannon_Field is limited
++     new Qt4.Widgets.Directors.Q_Widget_Director with record
+       Current_Angle    : Qt4.Q_Integer;
+       Current_Force    : Qt4.Q_Integer;
+       Timer_Count      : Qt4.Q_Integer;
+--- examples/tutorial/t13/game_boards.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t13/game_boards.ads
+@@ -50,7 +50,8 @@ package Game_Boards is
+ 
+ private
+ 
+-   type Game_Board is new Qt4.Widgets.Directors.Q_Widget_Director with record
++   type Game_Board is limited
++     new Qt4.Widgets.Directors.Q_Widget_Director with record
+       Hits         : Qt4.LCD_Numbers.Q_LCD_Number_Access;
+       Shots_Left   : Qt4.LCD_Numbers.Q_LCD_Number_Access;
+       Cannon_Field : Cannon_Fields.Cannon_Field_Access;
+--- examples/tutorial/t13/lcd_ranges.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t13/lcd_ranges.ads
+@@ -57,7 +57,8 @@ package LCD_Ranges is
+ 
+ private
+ 
+-   type LCD_Range is new Qt4.Widgets.Directors.Q_Widget_Director with record
++   type LCD_Range is limited
++     new Qt4.Widgets.Directors.Q_Widget_Director with record
+       Slider : Qt4.Sliders.Q_Slider_Access;
+       Label  : Qt4.Labels.Q_Label_Access;
+    end record;
+--- examples/tutorial/t14/cannon_fields.ads.orig	2009-04-09 19:05:06 UTC
++++ examples/tutorial/t14/cannon_fields.ads
+@@ -84,7 +84,8 @@ package Cannon_Fields is
+ 
+ private
+ 
+-   type Cannon_Field is new Qt4.Widgets.Directors.Q_Widget_Director with record
++   type Cannon_Field is limited
++     new Qt4.Widgets.Directors.Q_Widget_Director with record
+       Current_Angle    : Qt4.Q_Integer;
+       Current_Force    : Qt4.Q_Integer;
+       Timer_Count      : Qt4.Q_Integer;
+--- examples/tutorial/t14/game_boards.ads.orig	2009-04-09 19:05:06 UTC
++++ examples/tutorial/t14/game_boards.ads
+@@ -53,7 +53,8 @@ package Game_Boards is
+ 
+ private
+ 
+-   type Game_Board is new Qt4.Widgets.Directors.Q_Widget_Director with record
++   type Game_Board is limited
++     new Qt4.Widgets.Directors.Q_Widget_Director with record
+       Hits         : Qt4.LCD_Numbers.Q_LCD_Number_Access;
+       Shots_Left   : Qt4.LCD_Numbers.Q_LCD_Number_Access;
+       Cannon_Field : Cannon_Fields.Cannon_Field_Access;
+--- examples/tutorial/t14/lcd_ranges.ads.orig	2009-04-09 19:05:06 UTC
++++ examples/tutorial/t14/lcd_ranges.ads
+@@ -62,7 +62,8 @@ package LCD_Ranges is
+ 
+ private
+ 
+-   type LCD_Range is new Qt4.Widgets.Directors.Q_Widget_Director with record
++   type LCD_Range is limited
++     new Qt4.Widgets.Directors.Q_Widget_Director with record
+       Slider : Qt4.Sliders.Q_Slider_Access;
+       Label  : Qt4.Labels.Q_Label_Access;
+    end record;
+--- examples/tutorial/t4/my_widgets.ads.orig	2009-04-04 16:14:18 UTC
++++ examples/tutorial/t4/my_widgets.ads
+@@ -38,7 +38,8 @@ package My_Widgets is
+ 
+ private
+ 
+-   type My_Widget is new Qt4.Widgets.Directors.Q_Widget_Director with record
++   type My_Widget is limited
++     new Qt4.Widgets.Directors.Q_Widget_Director with record
+       Quit : Qt4.Push_Buttons.Q_Push_Button_Access;
+    end record;
+ 
+--- examples/tutorial/t5/my_widgets.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t5/my_widgets.ads
+@@ -36,7 +36,8 @@ package My_Widgets is
+ 
+ private
+ 
+-   type My_Widget is new Qt4.Widgets.Directors.Q_Widget_Director with record
++   type My_Widget is limited
++     new Qt4.Widgets.Directors.Q_Widget_Director with record
+       Quit   : Qt4.Push_Buttons.Q_Push_Button_Access;
+       LCD    : Qt4.LCD_Numbers.Q_LCD_Number_Access;
+       Slider : Qt4.Sliders.Q_Slider_Access;
+--- examples/tutorial/t6/lcd_ranges.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t6/lcd_ranges.ads
+@@ -33,7 +33,7 @@ package LCD_Ranges is
+ 
+ private
+ 
+-   type LCD_Range is
++   type LCD_Range is limited
+      new Qt4.Widgets.Directors.Q_Widget_Director with null record;
+ 
+ end LCD_Ranges;
+--- examples/tutorial/t6/my_widgets.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t6/my_widgets.ads
+@@ -33,7 +33,7 @@ package My_Widgets is
+ 
+ private
+ 
+-   type My_Widget is
++   type My_Widget is limited
+      new Qt4.Widgets.Directors.Q_Widget_Director with null record;
+ 
+ end My_Widgets;
+--- examples/tutorial/t7/lcd_ranges.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t7/lcd_ranges.ads
+@@ -39,7 +39,8 @@ package LCD_Ranges is
+ 
+ private
+ 
+-   type LCD_Range is new Qt4.Widgets.Directors.Q_Widget_Director with record
++   type LCD_Range is limited
++     new Qt4.Widgets.Directors.Q_Widget_Director with record
+       Slider : Qt4.Sliders.Q_Slider_Access;
+    end record;
+ 
+--- examples/tutorial/t7/my_widgets.ads.orig	2009-04-04 16:40:39 UTC
++++ examples/tutorial/t7/my_widgets.ads
+@@ -37,7 +37,7 @@ package My_Widgets is
+ 
+ private
+ 
+-   type My_Widget is
++   type My_Widget is limited
+      new Qt4.Widgets.Directors.Q_Widget_Director with null record;
+ 
+ end My_Widgets;
+--- examples/tutorial/t8/cannon_fields.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t8/cannon_fields.ads
+@@ -48,7 +48,8 @@ package Cannon_Fields is
+ 
+ private
+ 
+-   type Cannon_Field is new Qt4.Widgets.Directors.Q_Widget_Director with record
++   type Cannon_Field is limited
++     new Qt4.Widgets.Directors.Q_Widget_Director with record
+       Current_Angle : Qt4.Q_Integer;
+    end record;
+ 
+--- examples/tutorial/t8/lcd_ranges.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t8/lcd_ranges.ads
+@@ -46,7 +46,8 @@ package LCD_Ranges is
+ 
+ private
+ 
+-   type LCD_Range is new Qt4.Widgets.Directors.Q_Widget_Director with record
++   type LCD_Range is limited
++     new Qt4.Widgets.Directors.Q_Widget_Director with record
+       Slider : Qt4.Sliders.Q_Slider_Access;
+    end record;
+ 
+--- examples/tutorial/t8/my_widgets.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t8/my_widgets.ads
+@@ -33,7 +33,7 @@ package My_Widgets is
+ 
+ private
+ 
+-   type My_Widget is
++   type My_Widget is limited
+      new Qt4.Widgets.Directors.Q_Widget_Director with null record;
+ 
+ end My_Widgets;
+--- examples/tutorial/t9/cannon_fields.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t9/cannon_fields.ads
+@@ -43,7 +43,7 @@ package Cannon_Fields is
+ 
+ private
+ 
+-   type Cannon_Field is
++   type Cannon_Field is limited
+      new Qt4.Widgets.Directors.Q_Widget_Director with record
+       Current_Angle : Qt4.Q_Integer;
+    end record;
+--- examples/tutorial/t9/lcd_ranges.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t9/lcd_ranges.ads
+@@ -46,7 +46,8 @@ package LCD_Ranges is
+ 
+ private
+ 
+-   type LCD_Range is new Qt4.Widgets.Directors.Q_Widget_Director with record
++   type LCD_Range is limited
++     new Qt4.Widgets.Directors.Q_Widget_Director with record
+       Slider : Qt4.Sliders.Q_Slider_Access;
+    end record;
+ 
+--- examples/tutorial/t9/my_widgets.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/tutorial/t9/my_widgets.ads
+@@ -33,7 +33,7 @@ package My_Widgets is
+ 
+ private
+ 
+-   type My_Widget is
++   type My_Widget is limited
+      new Qt4.Widgets.Directors.Q_Widget_Director with null record;
+ 
+ end My_Widgets;
+--- examples/widgets/line_edits/my_widgets.ads.orig	2009-04-18 09:27:41 UTC
++++ examples/widgets/line_edits/my_widgets.ads
+@@ -34,7 +34,8 @@ package My_Widgets is
+ 
+ private
+ 
+-   type My_Widget is new Qt4.Widgets.Directors.Q_Widget_Director with record
++   type My_Widget is limited
++     new Qt4.Widgets.Directors.Q_Widget_Director with record
+       Access_Line_Edit     : Qt4.Line_Edits.Q_Line_Edit_Access;
+       Alignment_Line_Edit  : Qt4.Line_Edits.Q_Line_Edit_Access;
+       Echo_Line_Edit       : Qt4.Line_Edits.Q_Line_Edit_Access;