diff options
author | Jed Barber <jjbarber@y7mail.com> | 2016-07-18 15:58:30 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2016-07-18 15:58:30 +1000 |
commit | 6aa9475d598065081866913bb86a049a6d2d0c1a (patch) | |
tree | fd2074432185ed1d9f9dd8b3e9ae8e2344cbe7c5 /fltk.adb | |
parent | f419b275ee91792e08f211a588d891c4aa6bedac (diff) |
Decided on widget init problem, started on rudimentary editor appearance
Diffstat (limited to 'fltk.adb')
-rw-r--r-- | fltk.adb | 11 |
1 files changed, 11 insertions, 0 deletions
@@ -2,6 +2,7 @@ with Interfaces.C; with System; +use type System.Address; package body FLTK is @@ -21,6 +22,16 @@ package body FLTK is + 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 |