#!/usr/bin/perl -w

# Header für das Pascal-Programm. Wertet keine Dateien aus.

use strict;

print <<EOT;
{\$mode objfpc}

uses
 glib,gdk,gtk,sysutils;

function delete_event (widget : pGtkWidget ; event: pGdkEvent; data: pgpointer ): integer; cdecl;
begin
  gtk_main_quit();
  delete_event := 0;
end;

// callbacks:

EOT