From 0f9b0b9259ada50de7f8866f9591ce4ad3e7eadc Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sun, 13 Nov 2016 14:41:26 +1100 Subject: Added word wrap feature --- fltk-widgets-groups-text_displays.ads | 9 +++++++++ 1 file changed, 9 insertions(+) (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 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 -- cgit