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 | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/fltk_binding/fltk-widgets-groups-text_displays.ads b/src/fltk_binding/fltk-widgets-groups-text_displays.ads index 3eea299..a55b28f 100644 --- a/src/fltk_binding/fltk-widgets-groups-text_displays.ads +++ b/src/fltk_binding/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 |