From 6aa9475d598065081866913bb86a049a6d2d0c1a Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Mon, 18 Jul 2016 15:58:30 +1000 Subject: Decided on widget init problem, started on rudimentary editor appearance --- fltk-widgets.ads | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'fltk-widgets.ads') diff --git a/fltk-widgets.ads b/fltk-widgets.ads index 9910dee..8108a5d 100644 --- a/fltk-widgets.ads +++ b/fltk-widgets.ads @@ -43,6 +43,16 @@ package FLTK.Widgets is Box : in Box_Kind); + function Get_Label + (This : in out Widget) + return String; + + + procedure Set_Label + (This : in out Widget; + Text : in String); + + function Get_Label_Font (This : in Widget) return Font_Kind; -- cgit