diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2016-11-13 14:41:26 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2016-11-13 14:41:26 +1100 |
| commit | 0f9b0b9259ada50de7f8866f9591ce4ad3e7eadc (patch) | |
| tree | cfcafa0c09eb9f9543e40dfe15a17d384d5e12ef /fltk-widgets-groups-text_displays.ads | |
| parent | fa22b74c2e6528b4315909377f277ef193e19d11 (diff) | |
Added word wrap feature
Diffstat (limited to 'fltk-widgets-groups-text_displays.ads')
| -rw-r--r-- | fltk-widgets-groups-text_displays.ads | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/fltk-widgets-groups-text_displays.ads b/fltk-widgets-groups-text_displays.ads index 3eea299..a55b28f 100644 --- a/fltk-widgets-groups-text_displays.ads +++ b/fltk-widgets-groups-text_displays.ads @@ -10,6 +10,9 @@ package FLTK.Widgets.Groups.Text_Displays is type Text_Display is new Group with private; + type Wrap_Mode is (Wrap_None, Wrap_At_Column, Wrap_At_Pixel, Wrap_At_Bounds); + + function Create (X, Y, W, H : in Integer; Text : in String) @@ -78,6 +81,12 @@ package FLTK.Widgets.Groups.Text_Displays is (This : in out Text_Display); + procedure Set_Wrap_Mode + (This : in out Text_Display; + Mode : in Wrap_Mode; + Margin : in Natural := 0); + + private |