Re: gtkada and timeouts

[tonyg <tonythegair@gmail.com>]

On Apr 1, 9:27 am, "Dmitry A. Kazakov" <mail...@dmitry-kazakov.de>
wrote:
> On Fri, 1 Apr 2011 01:09:36 -0700 (PDT), tonyg wrote:
> > I've written a function called update_screen which always returns a
> > value of true and sets various values in the 'main_screen' access
> > record. This is part of the code from glade/gate which I have modified
> > to include a timeout
>
> > with Gtk; use Gtk;
> > with Gtk; use Gtk;
> > with Gtk.Main; use Gtk.Main;
> > with Gtk.Widget; use Gtk.Widget;
> > with Main_Screen_Pkg; use Main_Screen_Pkg;
> > with Main_Control; use Main_Control;
> > procedure Main_Screen is
> >    Main_Screen : Main_Screen_Access;
> >         Timeout_Id : Timeout_Handler_id ;
> >    package Data_Timeout is new Gtk.Main.Timeout (Main_Screen_Access);
>
> > begin
> >    Gtk.Main.Set_Locale;
> >    Gtk.Main.Init;
> >    Gtk_New (Main_Screen);
> >    Show_All (Main_Screen);
> >    Gtk.Main.Main;
> >    -- my addition -- the timer
> >    Timeout_Id := Data_Timeout.Add (100, Update_Screen'Access,
> > Main_Screen);
>
> > end Main_Screen;
>
> > Sadly the timeout is never called, Can anyone cast some light on this?
>
> The procedure Gtk.Main.Main runs infinite messages loop. You should add
> timers before entering the loop.
>
> --
> Regards,
> Dmitry A. Kazakovhttp://www.dmitry-kazakov.de

I tried placing it just before the Gtk.Main.Main and the whole app
locked up. I'm going to put it now in the initialise procedure than
gate creates in the _pkg.adb.