From e93b9bbc02e2791f3a35b6f077fcbb8514c28aed Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Sun, 12 Jan 2025 01:14:58 +1300
Subject: Refactored draw/handle methods in Widgets hierarchy, improved docs,
 added a few minor method bindings here and there

---
 src/fltk-widgets-groups-browsers-textline.adb | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

(limited to 'src/fltk-widgets-groups-browsers-textline.adb')

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)
-- 
cgit