From e0ee146d740146cd4c80de22d6bf6e204efadfa0 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Wed, 9 Nov 2016 09:12:26 +1100
Subject: Removed superfluous use clauses, styling now more standardised

---
 fltk-widgets-groups-windows-single-menu.adb | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'fltk-widgets-groups-windows-single-menu.adb')

diff --git a/fltk-widgets-groups-windows-single-menu.adb b/fltk-widgets-groups-windows-single-menu.adb
index 2936504..8345308 100644
--- a/fltk-widgets-groups-windows-single-menu.adb
+++ b/fltk-widgets-groups-windows-single-menu.adb
@@ -137,11 +137,7 @@ package body FLTK.Widgets.Groups.Windows.Single.Menu is
            (This : in Menu_Window)
         return Boolean is
     begin
-        if fl_menu_window_overlay (This.Void_Ptr) = 0 then
-            return False;
-        else
-            return True;
-        end if;
+        return fl_menu_window_overlay (This.Void_Ptr) /= 0;
     end Get_Overlay;
 
 
-- 
cgit