summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJedidiah Barber <contact@jedbarber.id.au>2023-12-24 14:14:59 +1300
committerJedidiah Barber <contact@jedbarber.id.au>2023-12-24 14:14:59 +1300
commita937e0b2a25d49e813d85fa3da14ea0c6882ff2f (patch)
tree0247aca9504dd6a95d5e89857ff3442f382914cf
parent7ec40156bf80af71ebf3f51129af42a01221f250 (diff)
Fixed access discriminant problem in editor windowHEADmaster
-rw-r--r--src/windows-editor.adb4
1 files 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;