diff options
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; |