diff options
Diffstat (limited to 'src/editor_windows.adb')
-rw-r--r-- | src/editor_windows.adb | 47 |
1 files changed, 41 insertions, 6 deletions
diff --git a/src/editor_windows.adb b/src/editor_windows.adb index dffad97..20ccbbd 100644 --- a/src/editor_windows.adb +++ b/src/editor_windows.adb @@ -138,6 +138,35 @@ package body Editor_Windows is + function Get_Insert_Position + (This : in Editor_Window) + return Natural is + begin + return This.Editor.Get_Insert_Position; + end Get_Insert_Position; + + + + + procedure Set_Insert_Position + (This : in out Editor_Window; + Pos : in Natural) is + begin + This.Editor.Set_Insert_Position (Pos); + end Set_Insert_Position; + + + + + procedure Show_Insert_Position + (This : in out Editor_Window) is + begin + This.Editor.Show_Insert_Position; + end Show_Insert_Position; + + + + -- used to hide about/find/replace/etc windows instead -- of constantly creating and destroying them @@ -245,11 +274,13 @@ package body Editor_Windows is Item : in out Widget'Class) is type Find_Window_Access is access all Find_Window; - The_Window : access Find_Window := Find_Window_Access (Item.Parent); + Dialog : access Find_Window := Find_Window_Access (Item.Parent); begin - if The_Window.Callback /= null then - The_Window.Callback.Call ("Hello", True); + if Dialog.Callback /= null then + Dialog.Callback.Call + (Dialog.Find_What.Get_Value, + Dialog.Match_Case.Get_State = On); end if; end Call; @@ -348,11 +379,15 @@ package body Editor_Windows is Item : in out Widget'Class) is type Replace_Window_Access is access all Replace_Window; - The_Window : access Replace_Window := Replace_Window_Access (Item.Parent); + Dialog : access Replace_Window := Replace_Window_Access (Item.Parent); begin - if The_Window.Callback /= null then - The_Window.Callback.Call ("Hello", "There", True, True); + if Dialog.Callback /= null then + Dialog.Callback.Call + (Dialog.Find_What.Get_Value, + Dialog.Replace_With.Get_Value, + Dialog.Match_Case.Get_State = On, + Dialog.Replace_All.Get_State = On); end if; end Call; |