summaryrefslogtreecommitdiff
path: root/src/fltk_binding/fltk.adb
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2017-04-28 18:21:25 +1000
committerJed Barber <jjbarber@y7mail.com>2017-04-28 18:21:25 +1000
commitecdb8876ea6bdd333386aa7014cc5a8e0abe4c91 (patch)
tree0dc76811c26d32b3d920d85d0a2c22b6ec7d0298 /src/fltk_binding/fltk.adb
parent73d263cf2bc1d0cfee840df5e6a698eff8b2bd4e (diff)
Moved fltk binding to separate repo
Diffstat (limited to 'src/fltk_binding/fltk.adb')
-rw-r--r--src/fltk_binding/fltk.adb44
1 files changed, 0 insertions, 44 deletions
diff --git a/src/fltk_binding/fltk.adb b/src/fltk_binding/fltk.adb
deleted file mode 100644
index 983f308..0000000
--- a/src/fltk_binding/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;
-