src/fltk_binding/fltk-callbacks.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15


package body FLTK.Callbacks is


    function Create
           (Call : access procedure)
        return Callback is
    begin
        return This : Callback;
    end Create;


end FLTK.Callbacks;