GtkAda and tasking how to?.

["Per Sandbergs" <prsa@cntw.com>]

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
-------------------------------------------------------------------
with all nececarry units;
procedure main is
  task type Start_Task_type is
  end tart_Task_type;
   type Start_Task_Type_ref is access Start_Task_Type;

task body Start_Task_type is
begin
    while more_work_to_be_done loop
        do_some_work;
        "Update the GUI with text and status":
    end loop;
end;

begin
   declare
      Server : Start_Task_Type_Ref;
   begin
      Gtk.Main.Set_Locale;
      Gtk.Main.Init;
      Gtk_New (Server_Main);
      Show_All (Server_Main);
      Gdk.Threads.Enter;
      Server := new Start_Task_Type;
      Gtk.Main.Main;
      Gdk.Threads.Leave;
   end;
end Main;
----------------------------------------------------------------