diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-12 01:14:58 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-12 01:14:58 +1300 |
| commit | e93b9bbc02e2791f3a35b6f077fcbb8514c28aed (patch) | |
| tree | 3661530027db6809a9cbad7b2477416009e00787 /src/fltk-widgets-groups-browsers-textline.adb | |
| parent | 53aa8144851913994b963ed611cca8885b8f9a9e (diff) | |
Refactored draw/handle methods in Widgets hierarchy, improved docs, added a few minor method bindings here and there
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) |