Re: Workaround for <Ctrl+F> and <Ctrl+N>

Brian;

Thanks for your post and your work on these issues.  It helps all of us
realize what customization is available to  the Code editor.  I like the
functionality that you have added, and will follow your example, and
enhance my editor.  I hope others will post the customizations that they
find useful.

Thanks again for sharing.

----------------------------------------------------------

Jim Essinger
Senior Programmer/Analyst
Student Loan Fund of Idaho
208-452-4058
esinger@fmtc.com

------------------------------------------------------------

At 06:43 AM 11/27/2001, you wrote:

>In an earlier post, I expressed a desire to have the <Ctrl+F> FINDCHANGE
>function be able to detect a selected text string and to automatically find
>the next occurrence of that selected text string or if no selected text was
>found to display the dialog box for entry of a text string. Thanks to Barry
>Hoffman for pointing out the LP_FINDSEL command to me, I was able to come up
>with the following workaround to achieve the results I wanted.
>
>First I created a macro called FIND.LX that consists mainly of the following
>lines.
>
>
>'extract blockstart'     /* find start position of block highlight  */
>'extract blockend'       /* find end position of block highlight   */
>'extract blockdoc'       /* block in document   */
>'extract docnum'         /* current document   */
>
>/* determine if any text selected and if not display the find/change dialog
>*/
>if (blockstart = 0 | blockend = 0 | blockend < blockstart | blockdoc <>
>docnum) then do
>    'LP_FINDCHANGE'
>
>/* Otherwise, find the next occurrence of the selected text */
>else do
>     'LP_FINDSEL'
>
>exit 0
>
>
>Then, I modified my profile.lx file to tie this macro to <Ctrl+F> as
>follows.
>
>  'set action.c-f MACRO FIND'
>
>
>These modifications achieved the results I wanted but I found that I
>actually preferred to have this same functionality on the <CTRL+N> shortcut
>key so I created another macro called FINDNEXT.LX.
>
>
>'extract blockstart'     /* find start position of block highlight  */
>'extract blockend'       /* find end position of block highlight   */
>'extract blockdoc'       /* block in document   */
>'extract docnum'         /* current document   */
>
>/* determine if any text selected and if not, find the next occurrence of
>the previously */
>/* selected text
>*/
>if (block start = 0 | blockend = 0 | blockend < blockstart | blockdoc <>
>docnum) then do
>     'LP_FINDNEXT'
>
>/* Otherwise, find the next occurrence to the selected text. */
>else do
>     'LP_FINDSEL'
>
>exit 0
>
>
>Then, I modified my profile.lx file to tie this macro to <Ctrl+N>.
>
>  'set action.c-n MACRO FINDNEXT'
>
>
>By using <Ctrl+T,N> then successive <Ctrl+N>'s I can efficiently select a
>format name or variable name and then jump down through the code to the next
>occurrence of that name without having to take my hands off the keyboard.
>
>
>Regards,
>
>Brian
>
>_______________________________________________
>This is the CODE/400 Discussion & Support (CODE400-L) mailing list
>To post a message email: CODE400-L@midrange.com
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/cgi-bin/listinfo/code400-l
>or email: CODE400-L-request@midrange.com
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/code400-l.