with Gtk.Window; use Gtk.Window; with Gtk.Box; use Gtk.Box; with Gtk.Dialog; use Gtk.Dialog; with Gn.Identity; use Gn.Identity; package Gn.Logos is type Gn_Dialog_record is tagged record Dialog : Gtk_Dialog; Vbox : Gtk_Vbox; end record; type Command_Access is access function (Gn_Dialog : not null access Gn_Dialog_Record'Class; Parent : in Gtk_Window; Identity : in Identity_Access; Iter : in Natural) return Gtk_Response_Type; end Gn.logos;