From 6aa9475d598065081866913bb86a049a6d2d0c1a Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Mon, 18 Jul 2016 15:58:30 +1000
Subject: Decided on widget init problem, started on rudimentary editor
 appearance

---
 fltk.adb | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'fltk.adb')

diff --git a/fltk.adb b/fltk.adb
index cc2d407..aacb58b 100644
--- a/fltk.adb
+++ b/fltk.adb
@@ -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
-- 
cgit