Re: Gtk.Message_Dialog

["Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>]

On 2021-09-08 15:52, AdaMagica wrote:
> I need a two page message for a help button, so I have the callback
> 
>    procedure Help (Self: access Gtk.Button.Gtk_Button_Record'Class) is
>    begin
>      Show ("Page 1");
>      Show ("Page 2");
>    end Help;
> 
> where
> 
>    procedure Show (Message: Glib.UTF8_String) is
>      Dialog  : Gtk.Message_Dialog.Gtk_Message_Dialog;
>      Response: Gtk.Dialog.Gtk_Response_Type;
>    begin
>      Gtk.Message_Dialog.Gtk_New (Dialog,
>                                  Parent   => Parent,
>                                  Flags    => Modal,
>                                  The_Type => Message_Info,
>                                  Buttons  => Buttons_Close,
>                                  Message  => Message);
>      Response := Gtk.Message_Dialog.Run (Dialog);
>      Gtk.Message_Dialog.Close (Dialog);
>    end Show;
> 
> The problem is: When the first dialog's Close button is pressed, the next page appears, but the first is not closed. When the second page's Close is pressed, the window disappers, but the first dialog window is still there. Only pressing the red cross on the window's right upper edge closes the dialog.
> 
> What's wrong with my code?

You must call Destroy on the dialog to kill its window.

P.S. Note, that when the object reference is "floating" you have to sink 
it first before calling Destroy. However, in your case after Run all 
references must be OK.

P.P.S. Modal dialogs is the root of all evil...

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de