Printer handling from Gtk

Printer handling from Gtk

[ldries46]

I am in need for working example of printing from a Gtk environment in Ada.
I know then I need to use function "Connect_and_Run(Print_Op ,Action_Print, 
Main_Window)
and earlier the procedure On_Draw_Page(Print_Op, Call to Draw_Page)
The problem is the " Callto Draw_Page"  according to the 
gtk.print_operations that call must be

procedure On_Draw_Page
   (Self  : not null access Gtk_Print_Operation_Record;
    Call  : Cb_Gtk_Print_Operation_Gtk_Print_Context_Gint_Void;
    After : Boolean := False);
where the procedure to call must b of the type 
Cb_Gtk_Print_Operation_Gtk_Print_Context_Gint_Void of which the type 
definition is:

type Cb_Gtk_Print_Operation_Gtk_Print_Context_Gint_Void is not null access 
procedure
  (Self    : access Gtk_Print_Operation_Record'Class;
   Context : not null access 
Gtk.Print_Context.Gtk_Print_Context_Record'Class;
   Page_Nr : Glib.Gint);

The Draw_Page procedure has the following declaration:

procedure Draw_Page
  (Op          : access Gtkada_Print_Operation_Record'Class;
   Context     : not null access Gtk_Print_Context_Record'Class;
   Page_Number : Gint)

Where use clauses are used for most packages.

My question is now: how must I convert the Namme Draw_Page to the type used 
in On_Draw_Page

L. Dries