From 32062c660307d5b34f46b1f7b75d17a184930e71 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Fri, 27 May 2016 04:03:00 +1000 Subject: Text buffers, access types and line lengths --- fltk.adb | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'fltk.adb') diff --git a/fltk.adb b/fltk.adb index 674a54a..cc2d407 100644 --- a/fltk.adb +++ b/fltk.adb @@ -1,6 +1,7 @@ with Interfaces.C; +with System; package body FLTK is @@ -10,11 +11,22 @@ package body FLTK is pragma Import (C, fl_run, "fl_run"); + + function Run return Integer is begin return Integer (fl_run); end Run; + + + procedure Initialize + (This : in out Wrapper) is + begin + This.Void_Ptr := System.Null_Address; + end Initialize; + + end FLTK; -- cgit