Re: Gtk Ada Message box example

["ldries46" <bertus.dries@planet.nl>]

[-- Attachment #1: Type: text/plain, Size: 1201 bytes --]

Thanks for the information.
I just have remembered how it has to be done in Gtk and put in some standard 
package that wil position a message box with only one button which can do 
what I wanrted, just preenting a message

L. Dries

"Dmitry A. Kazakov"  schreef in bericht news:q08683$ol5$1@gioia.aioe.org...

On 2018-12-29 16:34, ldries46 wrote:
> I am searching for an example of showing a message box in Gtk.
> I have been programming in VC++ earlier and there it was simple tocreate a 
> message box because you only have to show it.
> I just want a message box with a title, a message and one button "OK". If 
> possble an Icon "Warning"
> both text items can be either in string format or in.
> I do not want to use glade anymore since it cannot present ada programming 
> language anymore.
> I just am glad with a link ho an example in Ada

    http://www.dmitry-kazakov.de/ada/gtkada_contributions.htm

Package Gtk.Missed, procedure Message_Dialog.

Note it cannot be called from any Ada task other than the one running
the GTK messages loop.

For a procedure callable from any task see the package Gtk.Main.Router,
procedure Say.

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

[-- Attachment #2: message_box.adb --]
[-- Type: text/plain, Size: 1344 bytes --]

pragma License(Unrestricted);
--with Gtk;                         use Gtk;
with Gtk.Window;                  use Gtk.Window;
with Gtk.Dialog;                  use Gtk.Dialog;
with Gtk.Message_Dialog;          use Gtk.Message_Dialog;
with Ada.Strings.Unbounded;       use Ada.Strings.Unbounded;

package body Message_Box is

   procedure M_Box(Title : String;
                   Text : String) is
      MessageBox : Gtk_Message_Dialog;
   begin
      MessageBox := Gtk_Message_Dialog_New(null,
                                           1,
                                           Message_Warning,
                                           Buttons_Close,
                                           Text);
      MessageBox.Set_Title(Title);
      if MessageBox.Run <= 0 then
         MessageBox.Destroy;
      end if;
   end M_Box;

   procedure M_Box(Title : UnBounded_String;
                   Text : UnBounded_String) is
   begin
      M_Box(To_String(Title), To_String(Text));
   end M_Box;

   procedure M_Box(Title : UnBounded_String;
                   Text : String) is
   begin
      M_Box(To_String(Title), Text);
   end M_Box;

   procedure M_Box(Title : String;
                   Text : UnBounded_String) is
   begin
      M_Box(Title, To_String(Text));
   end M_Box;

end Message_Box;

[-- Attachment #3: message_box.ads --]
[-- Type: text/plain, Size: 625 bytes --]

pragma License(Unrestricted);
--with Gtk;                         use Gtk;
with Gtk.Window;                  use Gtk.Window;
with Gtk.Message_Dialog;          use Gtk.Message_Dialog;
with Ada.Strings.Unbounded;       use Ada.Strings.Unbounded;

package Message_Box is

   procedure M_Box(Title : String;
                   Text : String);
   procedure M_Box(Title : UnBounded_String;
                   Text : UnBounded_String);
   procedure M_Box(Title : UnBounded_String;
                   Text : String);
   procedure M_Box(Title : String;
                   Text : UnBounded_String);

end Message_Box;