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-groups-text_displays-text_editors.ads | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/fltk-widgets-groups-text_displays-text_editors.ads')

diff --git a/src/fltk-widgets-groups-text_displays-text_editors.ads b/src/fltk-widgets-groups-text_displays-text_editors.ads
index 0f84a7e..10652fc 100644
--- a/src/fltk-widgets-groups-text_displays-text_editors.ads
+++ b/src/fltk-widgets-groups-text_displays-text_editors.ads
@@ -40,13 +40,13 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is
             Key  : in     Shortcut_Key);
 
 
-private
-
-
     procedure Draw
            (This : in out Text_Editor);
 
 
+private
+
+
     type Text_Editor is new Text_Display with null record;
 
 
-- 
cgit