[Ada]|résolu]interuption du signal "destroy" de GtkAda

Marsh Posté le 14-11-2010 à 17:13:45

Bonjour,

J'ai ecrit une fonction "quit" que j'ai connecté au signal destroy, mais ma fenêtre est fermé malgrès tout, comment faire pour garder la fenêtre ouverte ?
S'il vous plait, merci pour votre aide.
Voici ma fonction "Quit"

Code :

procedure Main_Quit(Widget : access Gtk.Widget.Gtk_Widget_Record'class; Main_Window : T_Main_Window) is
      Dialog : Gtk_Dialog;
      Yes    : Gtk_Widget;
      No     : Gtk_Widget;
      Help   : Gtk_Widget;
   begin
      loop
         Gtk_New(Dialog, "Quit ?", Main_Window.Window, modal);
         Yes := Add_Button(Dialog, "Yes", Gtk_Response_Yes);
         Yes := Add_Button(Dialog, "No", Gtk_Response_No);
         Help := Add_Button(Dialog, "Help", Gtk_Response_Help);
         case Run(Dialog) is
            when Gtk_Response_Yes    =>
               Gtk.Main.Main_Quit;
               exit;
            when  Gtk_Response_No     =>
               exit;
            when Gtk_Response_Help   =>
               null;
            when others =>
               null;
         end case;
         Destroy(Dialog);
      end loop;
      Destroy(Dialog);
   end Main_Quit;

Message édité par Profil supprimé le 20-11-2010 à 02:50:28

Reply

Marsh Posté le 14-11-2010 à 17:13:45

Reply

Marsh Posté le 16-11-2010 à 13:57:58

Up, je sèche toujours ici.

Reply

Marsh Posté le 16-11-2010 à 14:29:57

D'après http://www.siteduzero.com/forum-83 [...] netre.html quand la fenetre recoit destroy c'est deja trop tard, il faut intercepter un autre signal.

Message cité 1 fois

---------------
Seul Google le sait...

Reply

Marsh Posté le 16-11-2010 à 14:33:57

breizhbugs a écrit :

D'après http://www.siteduzero.com/forum-83 [...] netre.html quand la fenetre recoit destroy c'est deja trop tard, il faut intercepter un autre signal.

C'est précieux comme info ça, merci breizhbugs, deux fois, je t'en dois une.

Reply

Marsh Posté le 16-11-2010 à 15:09:08

j'ai tenté d'implémenté avec le signal "delete_event" mais sa me plente l'appli au démarrage.

j'ai connecté le signal avec une instance de User_Callback et User_Return_Callback.

Reply

Marsh Posté le 20-11-2010 à 02:49:57

Ca y est, ça fonctionne, je sais pas ce que j'avais fichu.

Merci breizhbugs

Reply

Marsh Posté le 20-11-2010 à 12:05:02

:jap:

---------------
Seul Google le sait...

Reply

[Ada]|résolu]interuption du signal "destroy" de GtkAda

Sujets relatifs:

Leave a Replay