Text buffers, access types and line lengths

1 files changed, 12 insertions, 0 deletions

diff --git a/src/fltk_binding/fltk.adb b/src/fltk_binding/fltk.adb
index 674a54a..cc2d407 100644
--- a/src/fltk_binding/fltk.adb
+++ b/src/fltk_binding/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;