Fixed access discriminant problem in editor windowHEADmaster

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;