#!/bin/sh
set -C -e -f -u -v
cd ${TMPDIR}

cat > main.adb <<EOF
with Gtk.Main;
with Gnome;
with Gtk.GLArea;

procedure Main is
  B : boolean;
  T : Gtk.Gtk_Type;
begin
   Gtk.Main.Init;
   B := Gnome.Init ("a", "b");
   T := Gtk.GLArea.Get_Type;
end Main;
EOF
cat > p.gpr <<EOF
with "gtkada";
with "gtkglada";
with "gnomeada2";

project P is
   for Source_Dirs use (".");
   for Main use ("main.adb");
end P;
EOF
gnatmake -P p.gpr
./main
