summaryrefslogtreecommitdiff
path: root/src/editors.ads
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2016-07-16 15:59:18 +1000
committerJed Barber <jjbarber@y7mail.com>2016-07-16 15:59:18 +1000
commit0b019001293227083dba0c953e0142c4d0c66884 (patch)
treec8148d408cd6bfd5b3e2f7bf5ad61b325d15e3a2 /src/editors.ads
parentb72f41264d96f6cd9333badad82f978ecdc48fc2 (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.ads54
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;