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;