diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2016-05-26 04:35:58 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2016-05-26 04:35:58 +1000 |
| commit | 2b4468a62a55d9f8520582f9aa2e420ab89ed7bd (patch) | |
| tree | 6a112a0f3db36b622a71bccf9a2b7dc0130e6e2e /src/fltk_binding/fltk-widgets-groups-text_displays.ads | |
| parent | 524edbb4463b66d61e92c92a7020d9d09b82e744 (diff) | |
In the interests of readability and consistent style...
Diffstat (limited to 'src/fltk_binding/fltk-widgets-groups-text_displays.ads')
| -rw-r--r-- | src/fltk_binding/fltk-widgets-groups-text_displays.ads | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/src/fltk_binding/fltk-widgets-groups-text_displays.ads b/src/fltk_binding/fltk-widgets-groups-text_displays.ads index e5391d1..bc50ae1 100644 --- a/src/fltk_binding/fltk-widgets-groups-text_displays.ads +++ b/src/fltk_binding/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; |