diff options
Diffstat (limited to 'src/windows-editor.adb')
| -rw-r--r-- | src/windows-editor.adb | 48 |
1 files changed, 10 insertions, 38 deletions
diff --git a/src/windows-editor.adb b/src/windows-editor.adb index 69fecdb..b25dc19 100644 --- a/src/windows-editor.adb +++ b/src/windows-editor.adb @@ -27,21 +27,20 @@ package body Windows.Editor is if Width < W then Width := W; end if; - if Height < H then Height := H; end if; return This : Editor_Window := - (WD.Double_Window'(WD.Forge.Create (X, Y, Width, Height, Label_Text)) with - - Editor => TE.Text_Editor'(TE.Forge.Create - (0, Menu_Height, Width, Height - Menu_Height, "")), - Bar => MB.Menu_Bar'(MB.Forge.Create - (0, 0, Width, Menu_Height, "")), - Popup => MU.Menu_Button'(MU.Forge.Create - (0, Menu_Height, Width, Height - Menu_Height, ""))) do - + (WD.Forge.Create (X, Y, Width, Height, Label_Text) + with + Editor => TE.Forge.Create + (0, Menu_Height, Width, Height - Menu_Height, ""), + Bar => MB.Forge.Create + (0, 0, Width, Menu_Height, ""), + Popup => MU.Forge.Create + (0, Menu_Height, Width, Height - Menu_Height, "")) + do This.Editor.Set_Text_Font (Courier); This.Add (This.Editor); @@ -62,8 +61,6 @@ package body Windows.Editor is end Create; - - function Create (W, H : in Integer) return Editor_Window is @@ -82,8 +79,6 @@ package body Windows.Editor is end Get_Buffer; - - procedure Set_Buffer (This : in out Editor_Window; Buff : in out FLTK.Text_Buffers.Text_Buffer) is @@ -92,8 +87,6 @@ package body Windows.Editor is end Set_Buffer; - - function Get_Menu_Bar (This : in out Editor_Window) return FLTK.Widgets.Menus.Menu_Reference is @@ -102,8 +95,6 @@ package body Windows.Editor is end Get_Menu_Bar; - - function Get_Rightclick_Menu (This : in out Editor_Window) return FLTK.Widgets.Menus.Menu_Reference is @@ -121,8 +112,6 @@ package body Windows.Editor is end Undo; - - procedure Cut (This : in out Editor_Window) is begin @@ -130,8 +119,6 @@ package body Windows.Editor is end Cut; - - procedure Copy (This : in out Editor_Window) is begin @@ -139,8 +126,6 @@ package body Windows.Editor is end Copy; - - procedure Paste (This : in out Editor_Window) is begin @@ -148,8 +133,6 @@ package body Windows.Editor is end Paste; - - procedure Delete (This : in out Editor_Window) is begin @@ -167,8 +150,6 @@ package body Windows.Editor is end Get_Insert_Position; - - procedure Set_Insert_Position (This : in out Editor_Window; Pos : in Natural) is @@ -177,8 +158,6 @@ package body Windows.Editor is end Set_Insert_Position; - - procedure Show_Insert_Position (This : in out Editor_Window) is begin @@ -186,8 +165,6 @@ package body Windows.Editor is end Show_Insert_Position; - - procedure Next_Word (This : in out Editor_Window) is begin @@ -195,8 +172,6 @@ package body Windows.Editor is end Next_Word; - - procedure Previous_Word (This : in out Editor_Window) is begin @@ -204,8 +179,6 @@ package body Windows.Editor is end Previous_Word; - - procedure Set_Wrap_Mode (This : in out Editor_Window; Mode : in Wrap_Mode; @@ -215,8 +188,6 @@ package body Windows.Editor is end Set_Wrap_Mode; - - procedure Set_Linenumber_Width (This : in out Editor_Window; Width : in Natural) is @@ -227,3 +198,4 @@ package body Windows.Editor is end Windows.Editor; + |