Re: GtkAda and tasking how to?.

[randhol+abuse@pvv.org (Preben Randhol)]

On Sun, 6 May 2001 09:48:43 +0200, Per Sandbergs wrote:
> Colud somone phelp me with the folowing issue concering GTKAda and tasking.
> What i want to to is basiclty the folowing:
> 
> Create a GUI in GtkAda containig a Text box.and som other widgets running as
> the one Ada-task.
> I am running
>     Win NT4/2K
>     GNAT 3.14a
>     GTKAda 1.3.11

I let my main program run a loop where all the checking it wants to do
are done and then I run the GUI in a spereate task, so that when I need
to update the GUI I call the Update_GUI below:


  task body GUI_task is

  begin

    Gtk.Main.Set_Locale;
    Gdk.Threads.Init;
    Gtk.Main.Init;

    loop
      select
        accept Update_GUI do
         -- Do the stuff here.......
      else
         -- If not do all the other things the GUI wants to do...
         while Gtk.Main.Events_Pending loop
            Dead := Gtk.Main.Main_Iteration;
         end loop;
      end select;
      delay 0.01;
    end loop;

   exception
      when E : others =>
         Put_Line ("Exception raised in GUI task:" &
                   Exception_Information (E));

  end GUI_task;

Hope it helps.
-- 
Preben Randhol ------------------- http://www.pvv.org/~randhol/ --
                 �For me, Ada95 puts back the joy in programming.�