Hello,
After declaration of my view:
type Default_View_Type is new Gnoga.Gui.View.Grid.Grid_View_Type with record
Label_Text : Gnoga.Gui.View.View_Type;
Click_Button : Gnoga.Gui.Element.Common.Button_Type;
end record;
and creation of my objects:
Gnoga.Gui.View.Grid.Grid_View_Type (Grid).Create (Parent, Layout,
Fill_Parent, Set_Sizes, ID);
Grid.Label_Text.Create (Grid.Panel (1, 1).all);
Grid.Click_Button.Create (Grid.Panel (1, 2).all, "Click Me");
My button controller is:
procedure On_Click (Object : in out Gnoga.Gui.Base.Base_Type'Class) is
-- View : Logo.View.Default_View_Access :=
-- Logo.View.Default_View_Access (Object.Parent);
begin
-- View.Label_Text.Put_Line ("Click");
gnoga.log(ada.Tags.Expanded_Name(Object.Parent'tag));
end On_Click;
I've got a CE:
raised CONSTRAINT_ERROR : logo-controller.adb:14 tag check failed
because of object parent's type:
GNOGA.GUI.VIEW.VIEW_BASE_TYPE
How to get the true parent that is Default_View_Type and then access to
Label_Text?
Thanks for help, Pascal.
http://blady.pagesperso-orange.fr
------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
Gnoga-list mailing list
Gnoga-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gnoga-list
