Doing some experiments revealed that in one case that worked, the access type is declared as
type My_Widget_Access is access all My_Widget_T'class The one that gave the bad results did not have the 'Class attribute in the access declaration. Julianne ---------- Forwarded message ---------- From: <[email protected]> Date: Mon, Sep 27, 2010 at 8:31 AM Subject: MDI widget return To: [email protected] I am trying to create an MDI application. An MDI area is created and MDI sub windows are added: Viewer_Area.Add_Sub_Window (My_Widget); where Viewer_Area is the MDI area and My_Widget is a widget access type. When using the Viewer_Area.Current_Sub_Window.Widget function, the return value isn't the same widget that was added: A_Widget_Access := My_Widget_Access (Viewer_Area.Current_Sub_Window.Widget); Is this a bug or am I misunderstanding the operation of the MDI? Julianne _______________________________________________ qtada-users mailing list [email protected] http://box347.bluehost.com/mailman/listinfo/qtada-users_lists.qtada.com
