diff options
Diffstat (limited to 'src/fltk-widgets.ads')
-rw-r--r-- | src/fltk-widgets.ads | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/src/fltk-widgets.ads b/src/fltk-widgets.ads index d1c4b89..0ed0d2d 100644 --- a/src/fltk-widgets.ads +++ b/src/fltk-widgets.ads @@ -11,7 +11,7 @@ private with Ada.Unchecked_Conversion; package FLTK.Widgets is - type Widget is abstract new Wrapper with private; + type Widget is new Wrapper with private; type Widget_Callback is access procedure @@ -26,7 +26,7 @@ package FLTK.Widgets is function Create (X, Y, W, H : in Integer; Text : in String) - return Widget is abstract; + return Widget; function Parent @@ -132,13 +132,21 @@ package FLTK.Widgets is private - type Widget is abstract new Wrapper with + procedure Draw + (This : in out Widget); + + + type Widget is new Wrapper with record Callback : Widget_Callback; Current_Image : access FLTK.Images.Image'Class; end record; + overriding procedure Finalize + (This : in out Widget); + + package Widget_Convert is new System.Address_To_Access_Conversions (Widget'Class); -- package Callback_Convert is new System.Address_To_Access_Conversions (Widget_Callback); package Callback_Convert is |