diff options
author | Jed Barber <jjbarber@y7mail.com> | 2016-07-16 15:59:18 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2016-07-16 15:59:18 +1000 |
commit | 0b019001293227083dba0c953e0142c4d0c66884 (patch) | |
tree | c8148d408cd6bfd5b3e2f7bf5ad61b325d15e3a2 /src/editors.ads | |
parent | b72f41264d96f6cd9333badad82f978ecdc48fc2 (diff) |
Starting to construct main program, but now I have to redo all the FLTK Initializers. Great.
Diffstat (limited to 'src/editors.ads')
-rw-r--r-- | src/editors.ads | 54 |
1 files changed, 38 insertions, 16 deletions
diff --git a/src/editors.ads b/src/editors.ads index 27d54d7..41e6b07 100644 --- a/src/editors.ads +++ b/src/editors.ads @@ -1,41 +1,63 @@ +with FLTK.Widgets.Groups.Windows; +use FLTK.Widgets.Groups.Windows; with FLTK.Widgets.Groups.Windows.Double; +use FLTK.Widgets.Groups.Windows.Double; with FLTK.Widgets.Inputs; +use FLTK.Widgets.Inputs; +with FLTK.Widgets.Buttons; +use FLTK.Widgets.Buttons; with FLTK.Widgets.Buttons.Enter; +use FLTK.Widgets.Buttons.Enter; +with FLTK.Widgets.Groups.Text_Displays.Text_Editors; +use FLTK.Widgets.Groups.Text_Displays.Text_Editors; +with FLTK.Text_Buffers; +use FLTK.Text_Buffers; package Editors is - package Windows renames FLTK.Widgets.Groups.Windows; - - type Editor is new Windows.Double.Double_Window with private; + type Editor_Window is new Double_Window with private; function Create (X, Y, W, H : in Integer; - Label : in String) - return Editor; + Label_Text : in String) + return Editor_Window; + + + function Create + (W, H : in Integer) + return Editor_Window; + + + function Get_Buffer + (This : in Editor_Window) + return Text_Buffer_Cursor; + + + procedure Set_Buffer + (This : in out Editor_Window; + Buff : in out Text_Buffer); private - type Editor is new Windows.Double.Double_Window with + type Editor_Window is new Double_Window with record - Replace_Dialog : Windows.Window; - Replace_Find : FLTK.Widgets.Inputs.Input; - Replace_With : FLTK.Widgets.Inputs.Input; - Replace_All : FLTK.Widgets.Buttons.Button; - Replace_Next : FLTK.Widgets.Buttons.Enter.Enter_Button; - Replace_Cancel : FLTK.Widgets.Buttons.Button; + --Replace_Dialog : Window; + --Replace_Find : Input; + --Replace_With : Input; + --Replace_All : Button; + --Replace_Next : Enter_Button; + --Replace_Cancel : Button; + + The_Editor : Text_Editor := FLTK.Widgets.Groups.Text_Displays.Text_Editors.Create (0, 30, 640, 370, "AdaPad"); end record; - overriding procedure Initialize (This : in out Editor); - overriding procedure Finalize (This : in out Editor); - - end Editors; |