1 files changed, 26 insertions, 2 deletions
diff --git a/src/fltk_binding/fltk-widget.ads b/src/fltk_binding/fltk-widget.ads
index 1e56c4f..a8b2b27 100644
--- a/src/fltk_binding/fltk-widget.ads
+++ b/src/fltk_binding/fltk-widget.ads
@@ -1,14 +1,18 @@
 
 
 with FLTK.Enums; use FLTK.Enums;
-private with Ada.Finalization;
+with Ada.Finalization;
 private with System;
 
 
 package FLTK.Widget is
 
 
-    type Widget_Type is abstract tagged limited private;
+    type Widget_Type is abstract new Ada.Finalization.Limited_Controlled with private;
+
+
+    type Font_Size is new Natural;
+    Normal_Size : constant Font_Size := 14;
 
 
     function Create
@@ -37,6 +41,26 @@ package FLTK.Widget is
             F : in Font_Kind);
 
 
+    function Get_Label_Size
+           (W : in Widget_Type'Class)
+        return Font_Size;
+
+
+    procedure Set_Label_Size
+           (W : in Widget_Type'Class;
+            S : in Font_Size);
+
+
+    function Get_Label_Type
+           (W : in Widget_Type'Class)
+        return Label_Kind;
+
+
+    procedure Set_Label_Type
+           (W : in Widget_Type'Class;
+            L : in Label_Kind);
+
+
 private