diff options
author | Jed Barber <jjbarber@y7mail.com> | 2016-09-21 17:20:32 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2016-09-21 17:20:32 +1000 |
commit | f8fc211b41dbfa43f9cace75ffdc1d43c0ab8114 (patch) | |
tree | 9a294a4d27ae7e673cf06f3d41a8715b6e133370 /src/editor_windows.ads | |
parent | 8cb506a7f6ba79983b1327e29233f4fb25a4a694 (diff) |
Started constructing Find/Replace/About windows
Diffstat (limited to 'src/editor_windows.ads')
-rw-r--r-- | src/editor_windows.ads | 84 |
1 files changed, 84 insertions, 0 deletions
diff --git a/src/editor_windows.ads b/src/editor_windows.ads index 3fefd4f..9665b02 100644 --- a/src/editor_windows.ads +++ b/src/editor_windows.ads @@ -8,6 +8,8 @@ with FLTK.Text_Buffers; use FLTK.Text_Buffers; 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; package Editor_Windows is @@ -49,11 +51,67 @@ package Editor_Windows is procedure Delete (This : in out Editor_Window); + + + type About_Window is new Double_Window with private; + + + function Create + (X, Y, W, H : in Integer; + Label_Text : in String) + return About_Window; + + + function Create + (W, H : in Integer) + return About_Window; + + + + + type Find_Window is new Double_Window with private; + + + function Create + (X, Y, W, H : in Integer; + Label_Text : in String) + return Find_Window; + + + function Create + (W, H : in Integer) + return Find_Window; + + + procedure Reset (This : in out Find_Window); + + + + + type Replace_Window is new Double_Window with private; + + + function Create + (X, Y, W, H : in Integer; + Label_Text : in String) + return Replace_Window; + + + function Create + (W, H : in Integer) + return Replace_Window; + + + procedure Reset (This : in out Replace_Window); + + private use FLTK.Widgets.Groups.Text_Displays.Text_Editors; use FLTK.Widgets.Menus.Menu_Bars; + use FLTK.Widgets.Boxes; + use FLTK.Widgets; type Editor_Window is new Double_Window with @@ -63,5 +121,31 @@ private end record; + type Hide_Callback is new Widget_Callback with null record; + overriding procedure Call + (This : in Hide_Callback; + Item : in out Widget'Class); + + + type About_Window is new Double_Window with + record + Heading : Box; + Blurb : Box; + Author : Box; + end record; + + + type Find_Window is new Double_Window with + record + Placeholder : Integer; + end record; + + + type Replace_Window is new Double_Window with + record + Placeholder : Integer; + end record; + + end Editor_Windows; |