diff options
Diffstat (limited to 'src/fltk-widgets-groups-help_views.ads')
| -rw-r--r-- | src/fltk-widgets-groups-help_views.ads | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/src/fltk-widgets-groups-help_views.ads b/src/fltk-widgets-groups-help_views.ads index 8bea2a6..03bb6c5 100644 --- a/src/fltk-widgets-groups-help_views.ads +++ b/src/fltk-widgets-groups-help_views.ads @@ -28,10 +28,8 @@ package FLTK.Widgets.Groups.Help_Views is return String; - - -- You have no idea how tempting it is to give this - -- a more tongue in cheek name + -- a more tongue in cheek name. Load_Help_Error : exception; @@ -95,7 +93,7 @@ package FLTK.Widgets.Groups.Help_Views is (This : in Help_View) return String; - -- Name here can be either a ftp/http/https/ipp/mailto/news URL or a filename + -- Name here can be either a ftp/http/https/ipp/mailto/news URL or a filename. procedure Load (This : in out Help_View; Name : in String); @@ -135,6 +133,10 @@ package FLTK.Widgets.Groups.Help_Views is (This : in out Help_View; W, H : in Integer); + procedure Resize + (This : in out Help_View; + X, Y, W, H : in Integer); + function Get_Text_Color (This : in Help_View) return Color; @@ -179,14 +181,16 @@ private Hilda : Interfaces.C.Strings.chars_ptr; end record; + overriding procedure Initialize + (This : in out Help_View); + overriding procedure Finalize (This : in out Help_View); procedure Extra_Init (This : in out Help_View; X, Y, W, H : in Integer; - Text : in String) - with Inline; + Text : in String); procedure Extra_Final (This : in out Help_View); |