generic type User_Data_Type (<>) is private; with procedure Destroy (Data : in out User_Data_Type) is null; package Set_Forward_Page_Func_User_Data is
type Gtk_Assistant_Page_Func is access function (Current_Page : Gint; Data : User_Data_Type) return Gint;
procedure Destroy
( | Data | : in out User_Data_Type) is null; |
procedure Set_Forward_Page_Func
( | Assistant | : not null access Gtk.Assistant.Gtk_Assistant_Record'Class; |
Page_Func | : Gtk_Assistant_Page_Func; | |
Data | : User_Data_Type); |