From ae82edc42a3c93c400775b314b65a8662f181b67 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Thu, 19 Apr 2018 21:30:43 +1000
Subject: Completed and polished Window widgets, and fixed some associated
 oddities

---
 src/fltk-widgets.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/fltk-widgets.adb b/src/fltk-widgets.adb
index 5d1e5d8..28bbb24 100644
--- a/src/fltk-widgets.adb
+++ b/src/fltk-widgets.adb
@@ -405,7 +405,7 @@ package body FLTK.Widgets is
 
 
     function Get_Label
-           (This : in out Widget)
+           (This : in Widget)
         return String is
     begin
         return Interfaces.C.Strings.Value (fl_widget_get_label (This.Void_Ptr));
-- 
cgit