From dda92d3223611c1ce22597c5839e67ecf0dff5ae Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Wed, 31 May 2017 17:32:08 +1000
Subject: Completed Double_Window, Single_Window, Menu_Window widgets

---
 src/fltk-widgets-groups-windows.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/fltk-widgets-groups-windows.adb')

diff --git a/src/fltk-widgets-groups-windows.adb b/src/fltk-widgets-groups-windows.adb
index 429d27d..97a640a 100644
--- a/src/fltk-widgets-groups-windows.adb
+++ b/src/fltk-widgets-groups-windows.adb
@@ -181,7 +181,7 @@ package body FLTK.Widgets.Groups.Windows is
 
 
     procedure Show
-           (This : in Window) is
+           (This : in out Window) is
     begin
         fl_window_show (This.Void_Ptr);
     end Show;
@@ -190,7 +190,7 @@ package body FLTK.Widgets.Groups.Windows is
 
 
     procedure Hide
-           (This : in Window) is
+           (This : in out Window) is
     begin
         fl_window_hide (This.Void_Ptr);
     end Hide;
-- 
cgit