From a937e0b2a25d49e813d85fa3da14ea0c6882ff2f Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Sun, 24 Dec 2023 14:14:59 +1300 Subject: Fixed access discriminant problem in editor window --- src/windows-editor.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/windows-editor.adb b/src/windows-editor.adb index b0c2d02..2a7b991 100644 --- a/src/windows-editor.adb +++ b/src/windows-editor.adb @@ -98,7 +98,7 @@ package body Windows.Editor is (This : in out Editor_Window) return FLTK.Widgets.Menus.Menu_Reference is begin - return Ref : FLTK.Widgets.Menus.Menu_Reference (This.Bar'Access); + return Ref : FLTK.Widgets.Menus.Menu_Reference (This.Bar'Unchecked_Access); end Get_Menu_Bar; @@ -108,7 +108,7 @@ package body Windows.Editor is (This : in out Editor_Window) return FLTK.Widgets.Menus.Menu_Reference is begin - return Ref : FLTK.Widgets.Menus.Menu_Reference (This.Popup'Access); + return Ref : FLTK.Widgets.Menus.Menu_Reference (This.Popup'Unchecked_Access); end Get_Rightclick_Menu; -- cgit