diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2016-11-14 17:38:44 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2016-11-14 17:38:44 +1100 |
| commit | b787152c2603f8d51b1626f163d234b343dbeb6f (patch) | |
| tree | 58b3664f2c8f5df1ed57123f718e4bcaed2984c4 /src | |
| parent | 770a95e888849f0756c98079a90164b832b1825f (diff) | |
Improved replace
Diffstat (limited to 'src')
| -rw-r--r-- | src/adapad.adb | 35 |
1 files changed, 21 insertions, 14 deletions
diff --git a/src/adapad.adb b/src/adapad.adb index 78b0684..fb34196 100644 --- a/src/adapad.adb +++ b/src/adapad.adb @@ -388,25 +388,32 @@ package body Adapad is (Item, Replace_With : in String; Match_Case, Replace_All : in Boolean) is - Current_Position, Found_At : Natural; - Times_Replaced : Natural := 0; + use type FLTK.Dialogs.Choice; + User_Response : FLTK.Dialogs.Choice; + Found_At : Natural; + Current_Position, Times_Replaced : Natural := 0; begin Replace.Hide; - if Replace_All then - Editor.Set_Insert_Position (0); - end if; - - loop - Current_Position := Editor.Get_Insert_Position; - exit when not Buffer.Search_Forward (Current_Position, Item, Found_At, Match_Case); + while Buffer.Search_Forward (Current_Position, Item, Found_At, Match_Case) loop Buffer.Set_Selection (Found_At, Found_At + Item'Length); - Buffer.Remove_Selected_Text; - Buffer.Insert_Text (Found_At, Replace_With); - Editor.Set_Insert_Position (Found_At + Replace_With'Length); + Editor.Set_Insert_Position (Found_At); Editor.Show_Insert_Position; - Times_Replaced := Times_Replaced + 1; - exit when not Replace_All and Times_Replaced > 0; + if not Replace_All then + User_Response := FLTK.Dialogs.Three_Way_Choice + ("Replace?", "No", "Yes", "Cancel"); + else + User_Response := FLTK.Dialogs.Second; + end if; + exit when User_Response = FLTK.Dialogs.Third; + if User_Response = FLTK.Dialogs.Second then + Buffer.Remove_Selected_Text; + Buffer.Insert_Text (Found_At, Replace_With); + Current_Position := Found_At + Replace_With'Length; + Times_Replaced := Times_Replaced + 1; + else + Current_Position := Found_At + Item'Length; + end if; end loop; if Times_Replaced > 0 then |