Re: Gnoga - The GNU Omnificent GUI for Ada

[tonyg <tonythegair@gmail.com>]

On Friday, 3 October 2014 03:28:49 UTC+1, David Botton  wrote:
> > If I create five buttons and attach the same on click handler, how do I identify the button clicked to the code inside the handler?
> 
> 
> 
> There are many ways to do it, here is a simple way (notice the use of dynamic controls, views will deallocate them when they are finalized). When you create each button, give it an ID. e.g.
> 
> 
> 
> declare
> 
>    My_Button : Button_Access;
> 
> begin
> 
>    My_Button := new Button_Type;
> 
>    My_Button.Create (My_View, "Click Me 1", ID="b1");
> 
>    My_Button.On_Click_Handler (My_Click'Access);
> 
> 
> 
>    My_Button := new Button_Type;
> 
>    My_Button.Create (My_View, "Click Me 2", ID="b2");
> 
>    My_Button.On_Click_Handler (My_Click'Access);
> 
> end;
> 
> 
> 
> procedure My_Click (Object : Base_Type'Class) is
> 
> begin
> 
>    if Object.ID = "b1" then
> 
>       Gnoga.Log ("Clicked Button 1");
> 
>    if Object.ID = "b2" then
> 
>       Gnoga.Log ("Click Button 2");
> 
>    end if;
> 
> end My_Click;

Thanks David, thats really helpful :)