Organising source

1 files changed, 0 insertions, 44 deletions

diff --git a/fltk.adb b/fltk.adb
deleted file mode 100644
index 983f308..0000000
--- a/fltk.adb
+++ /dev/null
@@ -1,44 +0,0 @@
-
-
-with Interfaces.C;
-with System;
-use type System.Address;
-
-
-package body FLTK is
-
-
-    function fl_run return Interfaces.C.int;
-    pragma Import (C, fl_run, "fl_run");
-
-
-
-
-    function Run
-        return Integer is
-    begin
-        return Integer (fl_run);
-    end Run;
-
-
-
-
-    function Has_Valid_Ptr
-           (This : in Wrapper)
-        return Boolean is
-    begin
-        return This.Void_Ptr /= System.Null_Address;
-    end Has_Valid_Ptr;
-
-
-
-
-    procedure Initialize
-           (This : in out Wrapper) is
-    begin
-        This.Void_Ptr := System.Null_Address;
-    end Initialize;
-
-
-end FLTK;
-