[ulis], 2004-01-20. FindWords is an editor utility that let you jump to another occurrence of the selected string. Designed for Textpad it can be used (modified) for other editors. 2004-01-25: Added quotes around the $Sel arg to deal with strings containing spaces. [Peter Lewerin] your introduction seems to imply that it's OK to modify and reuse this code. Maybe it would be a good idea to make an implicit statement to that effect next to the (c) notice (this being a Wiki, '''I''' could add such a statement, but somehow it doesn't seem right :-) ). ---- '''A snapshot''' [http://perso.wanadoo.fr/maurice.ulis/tcl/FindWords.png] ---- '''The script''' ######################### # # FindWords: jump to a string (Textpad utility) # # (C) 2004, ulis; NOL # # ----------------------- # input: source file, selected string # output: exec of a script ######################### if 0 \ { # Abstract This script let you see a listbox with all the occurrences of the selected string, select one of them and have the text cursor positionned in front of the selected one. # Install For Textpad: - Optional: copy the DDEOPN32.EXE utility from the Textpad system directory to the Windows sytem32 or system directory - Put FindWords.tcl & FindWords.cfg in the TextPad system directory (or elsewhere) - With the /Configure/Preferences menu add a new tool with: - Commands = - Parameters = $File "$Sel" - Initial folder = $FileDir - Rename this tool: FindWords - Modify FindWords.cfg exec =