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 | bc54653c3e5277afecaecf2f208e1ee335df3a6e (patch) | |
| tree | 59d8e7285c77680d99a52d35fa3c1a3a9624b903 /fltk-widgets.ads | |
| parent | d4520de203a8fd8816836b7f8507027cf0675f91 (diff) | |
Find/Replace marshalling back to Adapad Main done, some Group/Widget_Cursor stuff removed
Diffstat (limited to 'fltk-widgets.ads')
| -rw-r--r-- | fltk-widgets.ads | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/fltk-widgets.ads b/fltk-widgets.ads index c0f89c1..05bba29 100644 --- a/fltk-widgets.ads +++ b/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 |