Source position: fpgtk.pp line 1058
type DialogResultCallback = procedure(
Sender: TFPgtkWindow;
DialogResult: pointer;
Action: Integer;
initiator: TFPgtkObject
) of object;