diff options
Diffstat (limited to 'src/editor_windows.ads')
| -rw-r--r-- | src/editor_windows.ads | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/src/editor_windows.ads b/src/editor_windows.ads index 9665b02..d90b696 100644 --- a/src/editor_windows.ads +++ b/src/editor_windows.ads @@ -10,6 +10,10 @@ private with FLTK.Widgets.Groups.Text_Displays.Text_Editors; private with FLTK.Widgets.Menus.Menu_Bars; private with FLTK.Widgets.Boxes; private with FLTK.Widgets; +private with FLTK.Widgets.Inputs; +private with FLTK.Widgets.Buttons; +private with FLTK.Widgets.Buttons.Enter; +private with FLTK.Widgets.Buttons.Light.Check; package Editor_Windows is @@ -18,6 +22,10 @@ package Editor_Windows is type Editor_Window is new Double_Window with private; + Min_Editor_Height : Integer := 60; + Min_Editor_Width : Integer := 300; + + function Create (X, Y, W, H : in Integer; Label_Text : in String) @@ -112,6 +120,10 @@ private use FLTK.Widgets.Menus.Menu_Bars; use FLTK.Widgets.Boxes; use FLTK.Widgets; + use FLTK.Widgets.Inputs; + use FLTK.Widgets.Buttons; + use FLTK.Widgets.Buttons.Enter; + use FLTK.Widgets.Buttons.Light.Check; type Editor_Window is new Double_Window with @@ -132,17 +144,26 @@ private Heading : Box; Blurb : Box; Author : Box; + Dismiss : Enter_Button; end record; type Find_Window is new Double_Window with record + -- Find_What : Input; + -- Match_Case : Check_Button; + -- Cancel : Button; + -- Start : Enter_Button; Placeholder : Integer; end record; type Replace_Window is new Double_Window with record + -- Find_What, Replace_With : Input; + -- Match_Case, Replace_All : Check_Button; + -- Cancel : Button; + -- Start : Enter_Button; Placeholder : Integer; end record; |