diff options
Diffstat (limited to 'src/fltk-widgets.ads')
-rw-r--r-- | src/fltk-widgets.ads | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/fltk-widgets.ads b/src/fltk-widgets.ads index 0ed0d2d..c2b863b 100644 --- a/src/fltk-widgets.ads +++ b/src/fltk-widgets.ads @@ -129,13 +129,13 @@ package FLTK.Widgets is Pic : in out FLTK.Images.Image'Class); -private - - procedure Draw (This : in out Widget); +private + + type Widget is new Wrapper with record Callback : Widget_Callback; |