From 98abc141c9cb76bc12f8ba10f18fd87e32aae251 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Mon, 9 Dec 2024 02:22:17 +1300 Subject: Fl_File_Chooser bound --- src/fltk-widgets.ads | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/fltk-widgets.ads') diff --git a/src/fltk-widgets.ads b/src/fltk-widgets.ads index f37870d..d7cbca8 100644 --- a/src/fltk-widgets.ads +++ b/src/fltk-widgets.ads @@ -370,6 +370,10 @@ private -- Groups.Browsers (has two internal Scrollbars) -- If weird Init/Final errors start mysteriously occuring then check there first. + -- Extra_Init functionality is also duplicated in FLTK.File_Choosers + -- for reasons of hierarchy visibility. Really, the File_Chooser should be in + -- the Widget hierarchy like Color_Chooser but for some reason it isn't. + procedure Extra_Init (This : in out Widget; X, Y, W, H : in Integer; -- cgit