cedit: add Enter key support to trigger search/replace

2026-01-11 12:48:24 +05:00
parent 72a8bfff98
commit 2d5e384ed2
1 changed files with 8 additions and 0 deletions
--- a/programs/develop/cedit/SRC/CEdit.ob07
+++ b/programs/develop/cedit/SRC/CEdit.ob07
@@ -1755,6 +1755,10 @@ BEGIN
                    ELSE
                        SetFocus(ReplaceEdit, TRUE)
                    END
+                ELSIF keyCode = 28 THEN (* Enter *)    
+                    IF searchOpened & (searchText # "") THEN
+                        notFound := ~T.findNext(text, BKW.value)
+                    END
            	ELSE
 	                EB.key(FindEdit, key);
 	                EditBox_Get(FindEdit, new_searchText);
@@ -1770,6 +1774,10 @@ BEGIN
                    ELSE
                        SetFocus(GotoEdit, TRUE)
                    END
+                ELSIF keyCode = 28 THEN (* Enter *)    
+                    IF searchOpened & (searchText # "") THEN
+                        notFound := ~T.findNext(text, BKW.value)
+                    END
            	ELSE
                	EB.key(ReplaceEdit, key);
                	EditBox_Get(ReplaceEdit, replaceText)