[gtkada] Gtk.Main.Main_Quit; / raise exception

[Thomas De Contes]

hi :-)

http://tDeContes.hd.free.fr/miseADisposition/contributions/ 
mes%20programmes%20ada/packages%20ada%20persos/ig/fileselectionpkg- 
callbacks.adb

         procedure B_Cancel_Clicked
                 (Object : access Gtk_Button_Record'Class)
         is
         begin

                 Hide( Get_Toplevel( Object ) );
                 Gtk.Main.Main_Quit;
                 raise annulation;

         end B_Cancel_Clicked;


the fact of "raise annulation;" seems to disable the final quitting of  
the application (with Gtk.Main.Main_Quit)
but not for the recursives main loop

is it normal ?