From 99ea64c2c914608d3429e63845f8ed396b234dd7 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 25 May 2016 01:10:29 +1000 Subject: Buttons and accessors --- src/editor.ads | 20 +++++++++++++++++--- 1 file changed, 17 insertions(+), 3 deletions(-) (limited to 'src/editor.ads') diff --git a/src/editor.ads b/src/editor.ads index fe98691..e80111a 100644 --- a/src/editor.ads +++ b/src/editor.ads @@ -2,6 +2,7 @@ with FLTK.Widget.Group.Window.Double; with FLTK.Widget.Input; +with FLTK.Widget.Button.Ret; package Editor is @@ -12,16 +13,29 @@ package Editor is type Editor_Type is new Window.Double.Double_Type with private; + function Create + (X, Y, W, H : in Integer; + Label : in String) + return Editor_Type; + + private type Editor_Type is new Window.Double.Double_Type with record - Replace_Dialog : access Window.Window_Type; - Replace_Find : access FLTK.Widget.Input.Input_Type; - Replace_With : access FLTK.Widget.Input.Input_Type; + Replace_Dialog : Window.Window_Type; + Replace_Find : FLTK.Widget.Input.Input_Type; + Replace_With : FLTK.Widget.Input.Input_Type; + Replace_All : FLTK.Widget.Button.Button_Type; + Replace_Next : FLTK.Widget.Button.Ret.Return_Type; + Replace_Cancel : FLTK.Widget.Button.Button_Type; end record; + overriding procedure Initialize (This : in out Editor_Type); + overriding procedure Finalize (This : in out Editor_Type); + + end Editor; -- cgit