Re: GtkAda using Glade

["J-P. Rosen" <rosen@adalog.fr>]

Le 18/05/2011 15:58, Gary a �crit :
> I did that but the process is still running on Windows XP after I
> close the app. The code that "Gate" generates does not look right to
> me. It generates the following code in the "..._pkg_callbacks.adb"
> 
>    function Gtk_Main_Quit
>      (Object : access Gtk_Widget_Record'Class;
>       Params : Gtk.Arguments.Gtk_Args) return Boolean
>    is
>       Arg1 : Gdk_Event := To_Event (Params, 1);
>    begin
>       return False;
>    end Gtk_Main_Quit;
> 
> This isn't right is it?

Hmmm, looking at my code, where I ask for confirmation to quit:

function Gtk_Main_Quit (Object : access Gtk_Widget_Record'Class;
                        Params : Gtk.Arguments.Gtk_Args) return Boolean
is
   use Gtkada.Dialogs;
begin
   if Message_Dialog ("Really quit?",
                      Confirmation,
                      Button_OK or Button_Cancel) = Button_OK
   then
      Gtk.Main.Main_Quit;
      return False;
   else
      return True;
   end if;
end Gtk_Main_Quit;

So, you have to call Gtk.Main.Main_Quit explicitely