summaryrefslogtreecommitdiff
path: root/src/fltk-widgets-clocks-updated.ads
diff options
context:
space:
mode:
authorJedidiah Barber <contact@jedbarber.id.au>2024-11-16 10:30:34 +1300
committerJedidiah Barber <contact@jedbarber.id.au>2024-11-16 10:30:34 +1300
commitf5f77c762534ed15adc557009d1a645e5fd998a5 (patch)
tree7b9d8c3099c303c74bf41079e9a0785983bd8a31 /src/fltk-widgets-clocks-updated.ads
parent66fba2bf75c5fc3deb2690a6a66cf504f47b7652 (diff)
Reworked widget init/create subprograms
Diffstat (limited to 'src/fltk-widgets-clocks-updated.ads')
-rw-r--r--src/fltk-widgets-clocks-updated.ads6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/fltk-widgets-clocks-updated.ads b/src/fltk-widgets-clocks-updated.ads
index 31caabd..a4662c0 100644
--- a/src/fltk-widgets-clocks-updated.ads
+++ b/src/fltk-widgets-clocks-updated.ads
@@ -54,7 +54,11 @@ private
overriding procedure Finalize
(This : in out Updated_Clock);
-
+ procedure Extra_Init
+ (This : in out Updated_Clock;
+ X, Y, W, H : in Integer;
+ Text : in String)
+ with Inline;
pragma Inline (Draw);