From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,3ed4c57426e16006
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII
Path: 
 g2news2.google.com!news4.google.com!feeder.news-service.com!85.214.198.2.MISMATCH!eternal-september.org!feeder.eternal-september.org!.POSTED!not-for-mail
From: "J-P. Rosen" <rosen@adalog.fr>
Newsgroups: comp.lang.ada
Subject: Re: GtkAda using Glade
Date: Thu, 19 May 2011 07:12:07 +0200
Organization: A noiseless patient Spider
Message-ID: <ir28r5$tbl$1@dont-email.me>
References: 
 <15ff2ec1-5a2b-4d24-8aab-cf7985b6374f@t19g2000yql.googlegroups.com>
 <ir0c4o$efh$1@dont-email.me>
 <2e496d2c-f12f-4961-981b-2162fdf1ce1e@k3g2000prl.googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
Injection-Date: Thu, 19 May 2011 05:12:05 +0000 (UTC)
Injection-Info: mx03.eternal-september.org;
 posting-host="cJo7kSTQUrCFv2/D8KKtqw";
	logging-data="30069"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX1/3T1sbLmI+PNkMcEllLzWP"
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; fr;
 rv:1.9.2.17) Gecko/20110414 Thunderbird/3.1.10
In-Reply-To: 
 <2e496d2c-f12f-4961-981b-2162fdf1ce1e@k3g2000prl.googlegroups.com>
Cancel-Lock: sha1:6VebO64v81fBnW1MJtl1XrGOcVQ=
Xref: g2news2.google.com comp.lang.ada:20284
Date: 2011-05-19T07:12:07+02:00
List-Id: <comp.lang.ada>

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