summaryrefslogtreecommitdiff
path: root/src/fltk-widgets-groups-windows-double-cairo.ads
diff options
context:
space:
mode:
authorJedidiah Barber <contact@jedbarber.id.au>2025-01-12 01:14:58 +1300
committerJedidiah Barber <contact@jedbarber.id.au>2025-01-12 01:14:58 +1300
commite93b9bbc02e2791f3a35b6f077fcbb8514c28aed (patch)
tree3661530027db6809a9cbad7b2477416009e00787 /src/fltk-widgets-groups-windows-double-cairo.ads
parent53aa8144851913994b963ed611cca8885b8f9a9e (diff)
Refactored draw/handle methods in Widgets hierarchy, improved docs, added a few minor method bindings here and there
Diffstat (limited to 'src/fltk-widgets-groups-windows-double-cairo.ads')
-rw-r--r--src/fltk-widgets-groups-windows-double-cairo.ads9
1 files changed, 3 insertions, 6 deletions
diff --git a/src/fltk-widgets-groups-windows-double-cairo.ads b/src/fltk-widgets-groups-windows-double-cairo.ads
index 111f7ac..02a1dbf 100644
--- a/src/fltk-widgets-groups-windows-double-cairo.ads
+++ b/src/fltk-widgets-groups-windows-double-cairo.ads
@@ -65,11 +65,6 @@ package FLTK.Widgets.Groups.Windows.Double.Cairo is
procedure Draw
(This : in out Cairo_Window);
- function Handle
- (This : in out Cairo_Window;
- Event : in Event_Kind)
- return Event_Outcome;
-
private
@@ -78,6 +73,9 @@ private
My_Func : Cairo_Callback;
end record;
+ overriding procedure Initialize
+ (This : in out Cairo_Window);
+
overriding procedure Finalize
(This : in out Cairo_Window);
@@ -93,7 +91,6 @@ private
pragma Inline (Set_Cairo_Draw);
pragma Inline (Draw);
- pragma Inline (Handle);
end FLTK.Widgets.Groups.Windows.Double.Cairo;