Background
I am trying to define a set of widgets - in a typical treelike hierarchy as
in:
chart_widget
piechart_widget
linechart_widget
....
so I start with this :
with qt4.widgets ;
private with qt4.Widgets.Directors ;
package chart_widgets is
type Chart_Widget is abstract limited new Qt4.Widgets.Q_Widget with
private ;
type Chart_Widget_Access is access all Chart_Widget'Class;
private
type Chart_Widget is limited new Qt4.Widgets.Directors.Q_Widget_Director
with null record ;
end chart_widgets ;
and then
package linechart_widgets is
type LineChart_Widget is limited new Chart_Widgets.Chart_Widget with
private;
type LineChart_Widget_Access is access all LineChart_Widget'Class;
function Create
(Parent : access Qt4.Widgets.Q_Widget'Class := null)
return not null access LineChart_Widget;
... etc....
private
type LineChart_Widget is limited new
Qt4.Widgets.Directors.Q_Widget_Director
with
record
... etc
end linechart_widgets ;
Of course I am leaving out things in the above but the essentials are
provided.
When I attempt to compile I get the following error:
"parent of full type must descend from parent of private extension" <-
pointing to the private "type LineChart_Widget ...."
Any ideas on how to implement this family of widgets?
thanks, srini
-------------- next part --------------
An HTML attachment was scrubbed...
URL:
<http://box347.bluehost.com/pipermail/qtada-users_lists.qtada.com/attachments/20100421/322e8b3c/attachment.html>
_______________________________________________
qtada-users mailing list
[email protected]
http://box347.bluehost.com/mailman/listinfo/qtada-users_lists.qtada.com
