diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2016-10-04 00:32:30 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2016-10-04 00:32:30 +1100 |
| commit | 7a84d0f3d0d181196b24795592a260e05b63fa74 (patch) | |
| tree | a9801dd8ba035cd20f269d1c713def579b035027 /src/fltk_binding/fltk-widgets.ads | |
| parent | ff006c440b90f1fdcfc47f8d809e07fbe54951ac (diff) | |
Find/Replace marshalling back to Adapad Main done, some Group/Widget_Cursor stuff removed
Diffstat (limited to 'src/fltk_binding/fltk-widgets.ads')
| -rw-r--r-- | src/fltk_binding/fltk-widgets.ads | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/src/fltk_binding/fltk-widgets.ads b/src/fltk_binding/fltk-widgets.ads index c0f89c1..05bba29 100644 --- a/src/fltk_binding/fltk-widgets.ads +++ b/src/fltk_binding/fltk-widgets.ads @@ -10,8 +10,6 @@ package FLTK.Widgets is type Widget is abstract new Wrapper with private; - type Widget_Cursor (Data : access Widget'Class) is limited null record - with Implicit_Dereference => Data; type Widget_Callback is interface; @@ -20,11 +18,6 @@ package FLTK.Widgets is Item : in out Widget'Class) is abstract; - -- would like to move this definition to FLTK.Widgets.Groups somehow - type Group_Cursor (Data : access FLTK.Widgets.Groups.Group'Class) is limited null record - with Implicit_Dereference => Data; - - type Font_Size is new Natural; Normal_Size : constant Font_Size := 14; type Color is new Natural; @@ -38,7 +31,7 @@ package FLTK.Widgets is function Parent (This : in Widget) - return Group_Cursor; + return access FLTK.Widgets.Groups.Group'Class; function Get_Box |