diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2017-05-06 14:06:32 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2017-05-06 14:06:32 +1000 |
| commit | 5f91a787afcebae37b5e22ab0dfe93b2a9794226 (patch) | |
| tree | adbf983e3cfb408f16c4dc8773e6c2ef9e5e5835 /src/fltk-widgets.ads | |
| parent | fbdef14a42388934067427854b6f5559bef31e8d (diff) | |
Draw method overriding implemented for Widgets, fixed for Menus, still needs cleaning up
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 |