Source position: gtkitemfactory.inc line 9
type TGtkPrintFunc = procedure(
func_data: gpointer;
str: Pgchar
);