From c2c5985b130e02b970cb6bf88c9a81e6e72c6646 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sat, 6 May 2017 17:59:20 +1000
Subject: Cleaned up positioning of Draw procedures

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

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

diff --git a/src/fltk-widgets-menus.adb b/src/fltk-widgets-menus.adb
index afb007c..84e2f61 100644
--- a/src/fltk-widgets-menus.adb
+++ b/src/fltk-widgets-menus.adb
@@ -93,7 +93,8 @@ package body FLTK.Widgets.Menus is
     procedure Draw
            (This : in out Menu) is
     begin
-        fl_menu_draw (This.Void_Ptr);
+        --  this space intentionally left blank
+        null;
     end Draw;
 
 
-- 
cgit