diff options
Diffstat (limited to 'src/fltk-widgets-groups-browsers-textline.adb')
| -rw-r--r-- | src/fltk-widgets-groups-browsers-textline.adb | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/src/fltk-widgets-groups-browsers-textline.adb b/src/fltk-widgets-groups-browsers-textline.adb index 8c68420..2830732 100644 --- a/src/fltk-widgets-groups-browsers-textline.adb +++ b/src/fltk-widgets-groups-browsers-textline.adb @@ -268,6 +268,15 @@ package body FLTK.Widgets.Groups.Browsers.Textline is + procedure fl_browser_set_size + (B : in Storage.Integer_Address; + W, H : in Interfaces.C.int); + pragma Import (C, fl_browser_set_size, "fl_browser_set_size"); + pragma Inline (fl_browser_set_size); + + + + procedure fl_browser_set_icon (B : in Storage.Integer_Address; L : in Interfaces.C.int; @@ -887,6 +896,19 @@ package body FLTK.Widgets.Groups.Browsers.Textline is + procedure Resize + (This : in out Textline_Browser; + W, H : in Integer) is + begin + fl_browser_set_size + (This.Void_Ptr, + Interfaces.C.int (W), + Interfaces.C.int (H)); + end Resize; + + + + function Has_Icon (This : in Textline_Browser; Line : in Positive) |