From 2aac034b614d6de39f4aee9f41dba8f2bcc63d8d Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Thu, 26 May 2016 04:35:58 +1000 Subject: In the interests of readability and consistent style... --- fltk-widgets-groups-text_displays.ads | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) (limited to 'fltk-widgets-groups-text_displays.ads') diff --git a/fltk-widgets-groups-text_displays.ads b/fltk-widgets-groups-text_displays.ads index e5391d1..bc50ae1 100644 --- a/fltk-widgets-groups-text_displays.ads +++ b/fltk-widgets-groups-text_displays.ads @@ -16,33 +16,33 @@ package FLTK.Widgets.Groups.Text_Displays is function Get_Text_Color - (TD : in Text_Display) + (TD : in Text_Display'Class) return Color; procedure Set_Text_Color - (TD : in Text_Display; - C : in Color); + (TD : in out Text_Display'Class; + C : in Color); function Get_Text_Font - (TD : in Text_Display) + (TD : in Text_Display'Class) return Font_Kind; procedure Set_Text_Font - (TD : in Text_Display; - F : in Font_Kind); + (TD : in out Text_Display'Class; + F : in Font_Kind); function Get_Text_Size - (TD : in Text_Display) + (TD : in Text_Display'Class) return Font_Size; procedure Set_Text_Size - (TD : in Text_Display; - S : in Font_Size); + (TD : in out Text_Display'Class; + S : in Font_Size); private @@ -51,7 +51,8 @@ private type Text_Display is new Group with null record; - overriding procedure Finalize (This : in out Text_Display); + overriding procedure Finalize + (This : in out Text_Display); end FLTK.Widgets.Groups.Text_Displays; -- cgit