No subject

it is time. Calling New_Dialog below will be blocked as Gtk's Main Loop
is blocking this. The body of the GUI_task looks like this:


task body GUI_Task is
  begin
  Gtk.Main.Set_Locale;
  Gdk.Threads.Init;
  Gtk.Main.Init;

  loop
    select
      accept New_Dialog do
        Gdk.Threads.Enter;
        Gtk_New (Notify_Dialog,
                 "Remember to tape the radioplay today")
        Show_All (Notify_Dialog);
        Gdk.Threads.Leave;
      end New_Dialog;
    else
      Gdk.Threads.Enter;
      Gtk.Main.Main;
      Gdk.Threads.Leave;
      delay 0.01;
    end select;
  end loop;

How can I do it?

Thanks in advance.
-- 
Preben Randhol ------------------- http://www.pvv.org/~randhol/ --
                 «For me, Ada95 puts back the joy in programming.»