#!/bin/sh
set -C -e -f -u
cd "$ADTTMP"

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 Main use ("main.adb");
end P;
EOF
gnatmake -q -P p.gpr
xvfb-run ./main
