I am trying to crate a Gtk print procedure,
From the point I start creating Print_Op and Print_Set the code I use is:
Print_Op := new Gtkada_Print_Operation_Record; Gtkada.Printing.Initialize (Print_Op);
Set_Current_Page (Print_Op, 1);
Number := long_float(last_line) / long_float(delta_lines); Number := long_float'Ceiling(Number);
nr_Pages := Gint(Number);
Set_N_Pages (Print_Op, nr_Pages + 1);
I just put a breakpoint at the line after Set_N_Pages. I also found
the following parameters. If I delete the + 1 in the last line get
message that possily point to adres 0*0
On the Debugging Console I got the following messages:
(gdb) show lang
~"The current source language is \"auto; currently ada\".\n"
~"type = access access new
gtk.print_operation.gtk_print_operation_record with record null; end record\n"
The folowing code is:
Set_Unit (Print_Op, points);
Result := Connect_and_Run(Print_Op ,Action_Print_Dialog, Main_Window);
The overall result is that the program does not show a failure but
also does not print any thing except an empty page.
As I try to debug something not all parameters displayed in the
variables window when I am running the debugger.
Can anyone tell me wher to find a working example?
|Location:||Huddersfield, West Yorkshire, UK|
|Nodes:||16 (2 / 14)|