1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
with FLTK, Adapad; function Main return Integer is begin Adapad.Show; return FLTK.Run; end Main;