{ The following macros are not supported } { The program "FIND AND REPLACE" may not be resold or included in other } { packages. } { The program "FIND AND REPLACE" may be used only by those receiving the } { original files. } { Copying and subsequent distribution to a third party is forbidden. } { Darren Litherland takes no responsibility for errors resulting from } { the use or misuse of the software. } { All use of this software is the responsiblity of the recipient. } { CATEGORY: ME10 TEXT } { COMPANY: Engineer Darren Litherland } { AUTHOR: Darren Litherland } { CONTACT OPTION: me10@nethut.net } { VIDEO MODE: Native ME10. The visual impression is best without PELOOK } { MONITOR RESOLUTION: n/a } { MACRO TITLE: FAR } { DESC: Finds (and replaces) texts in a drawing (on screen) } { MACRO VERSION: 1.1 } { DATE: 2000.06.03 } { APPLICATION: ME10 8.7/9.0/10.0 } { OPSYS: HP-UX 9.x/10.x Windows95/98/NT } { KEYWORDS: Find_and_replace Find Replace Far CHANGE_TEXT EDIT_TEXT } {*************************************************************************} LET WHOLE_WORD " " LET MATCH_CASE " " LET MEDBLCLKTIME .4 {Double-click response time} LET FINN_TAB_FLAG 0 LET REPL_TAB_FLAG 0 LET OLD_TIME 0 LET FINDREP_HELP_FLAG 0 DEFINE LGHTYEL RGB_COLOR 1 1 .55555 END_DEFINE DEFINE TABGREY RGB_COLOR .7777 .7777 .7777 END_DEFINE DEFINE TABFREY RGB_COLOR .6666 .6666 .6666 END_DEFINE DEFINE TABDREY RGB_COLOR .4444 .4444 .4444 END_DEFINE DEFINE TABLREY RGB_COLOR .8888 .8888 .8888 END_DEFINE DEFINE TABBLUE RGB_COLOR 0 0 .5 END_DEFINE DEFINE FAR TABLE_STATUS "Textfind_dtab" MAP END_DEFINE DEFINE FARH FIND_AND_REPLACE_HELP END_DEFINE DEFINE READ_TEXT PARAMETER READP LOCAL N LOCAL T DELETE_LTAB_ROW "Text_ltab" ALL TABLE_COLUMN 'Found_dtab' COLUMN 1 1 FORMAT 50 BLACK TABGREY LEFT 'TABLE_STATUS "Finn_dtab" UNMAP {ENTER} "@v1"' END INQ_ELEM READP IF ((INQ 403)=TEXT) LET N 1 LOOP LET T (INQ 903) EXIT_IF (T="END-OF-LIST") IF (N=1) LET FFINN T LET RREPL T END_IF WRITE_LTAB "Text_ltab" N 1 T WRITE_LTAB "Text_ltab" N 2 "" LET N (N+1) END_LOOP MOVE_FOUND_TAB END TABLE_STATUS "Found_dtab" MAP UPDATE_SCREEN ELSE LET FFINN "?" LET RREPL "?" END_IF END_DEFINE DEFINE FIND_AND_REPLACE PARAMETER TYP {TYP 5=Find, 6=Replace, 7=Replace All} LOCAL Y LOCAL N LOCAL REPL LOCAL N LOCAL TREF LOCAL THGT LOCAL TANG LOCAL NN LOCAL TP LOCAL AA LOCAL NNN LOCAL T LOCAL C LOCAL TT LOCAL NROWS LOCAL TREF LOCAL NROWS LOCAL NR TABLE_STATUS "Repl_dtab" UNMAP TABLE_STATUS "Finn_dtab" UNMAP TABLE_STATUS "Help_dtab" UNMAP LET FINN_TAB_FLAG 0 LET REPL_TAB_FLAG 0 LET FINN (READ_LTAB "Text_ltab" TITLE 1) LET REPL (READ_LTAB "Text_ltab" TITLE 2) LET WHOLE_WORD (READ_LTAB "Text_ltab" TITLE 3) LET MATCH_CASE (READ_LTAB "Text_ltab" TITLE 4) SELECT_FROM_LTAB "Finn_ltab" COLUMN 1 = FINN END LET NROWS (LTAB_ROWS "sys_select") IF ((NROWS=0) AND (FINN<>"")) LET NROWS (LTAB_ROWS "Finn_ltab") WRITE_LTAB "Finn_ltab" (NROWS+1) 1 FINN WRITE_LTAB "Finn_ltab" (NROWS+1) 2 (NROWS+1) SORT_LTAB "Finn_ltab" REVERSE_SORT 2 CONFIRM END_IF SELECT_FROM_LTAB "Repl_ltab" COLUMN 1 = REPL END LET NROWS (LTAB_ROWS "sys_select") IF ((NROWS=0) AND (REPL<>"")) LET NROWS (LTAB_ROWS "Repl_ltab") WRITE_LTAB "Repl_ltab" (NROWS+1) 1 REPL WRITE_LTAB "Repl_ltab" (NROWS+1) 2 (NROWS+1) SORT_LTAB "Repl_ltab" REVERSE_SORT 2 CONFIRM END_IF INQ_SELECTED_ELEM GLOBAL TEXTS ALL LET Y "Yes" LET N "No" LET NR (INQ 14) LET NN 1 LOOP EXIT_IF (FINN="") EXIT_IF (NR=0) LET NNN 1 LET FINNTEST 0 DELETE_LTAB_ROW "Text_ltab" ALL LOOP LET T (INQ 903) EXIT_IF (T="END-OF-LIST") WRITE_LTAB "Text_ltab" NNN 2 "No" WRITE_LTAB "Text_ltab" NNN 3 0 WRITE_LTAB "Text_ltab" NNN 4 T IF ((POS FINN "?") OR (POS FINN "*")) IF (WHOLE_WORD="X") CREATE_LTAB "Replace_ltab" CREATE_LTAB "Replacecltab" LET NX 1 LET NNX 1 LET LASTT " " LET T5 "" LET L3 (LEN T) LOOP LET TT (SUBSTR T NX 1) IF (TT<>" ") LET T5 (T5+TT) LET LASTT "T" ELSE IF (LASTT="T") WRITE_LTAB "Replace_ltab" NNX 1 T5 WRITE_LTAB "Replacecltab" NNX 1 (UPC T5) LET NNX (NNX+1) WRITE_LTAB "Replace_ltab" NNX 1 " " WRITE_LTAB "Replacecltab" NNX 1 " " LET T5 "" LET NNX (NNX+1) ELSE WRITE_LTAB "Replace_ltab" NNX 1 " " WRITE_LTAB "Replacecltab" NNX 1 " " LET NNX (NNX+1) END_IF LET LASTT " " END_IF EXIT_IF (NX=L3) LET NX (NX+1) END_LOOP IF (LASTT="T") WRITE_LTAB "Replace_ltab" NNX 1 T5 WRITE_LTAB "Replacecltab" NNX 1 (UPC T5) END_IF IF (MATCH_CASE=" ") SELECT_FROM_LTAB "Replacecltab" COLUMN 1 = (UPC FINN) END ELSE SELECT_FROM_LTAB "Replace_ltab" COLUMN 1 = FINN END END_IF LET NNX (LTAB_ROWS "sys_select") IF (NNX>0) COLOR_LTAB "Text_ltab" NNN 4 BLACK RED LET FINNTEST 1 END_IF ELSE IF (MATCH_CASE=" ") IF (MATCH (UPC T) ("*"+(UPC FINN)+"*")) COLOR_LTAB "Text_ltab" NNN 4 BLACK RED LET FINNTEST 1 END_IF ELSE IF (MATCH T ("*"+FINN+"*")) COLOR_LTAB "Text_ltab" NNN 4 BLACK RED LET FINNTEST 1 END_IF END_IF END_IF ELSE IF ( ((WHOLE_WORD=" ") AND (POS T FINN)) OR ((WHOLE_WORD="X") AND (POS (" "+T+" ") (" "+FINN+" "))) OR ((WHOLE_WORD=" ") AND (MATCH_CASE=" ") AND (POS (UPC T) (UPC FINN))) OR ((WHOLE_WORD="X") AND (MATCH_CASE=" ") AND (POS (UPC (" "+T+" ")) (UPC (" "+FINN+" "))))) LET FINNTEST 1 IF (TYP>5) REPLACE_TEXT FINN REPL T LET T REPLACED END_IF WRITE_LTAB "Text_ltab" NNN 2 "Yes" WRITE_LTAB "Text_ltab" NNN 3 NNN WRITE_LTAB "Text_ltab" NNN 5 T COLOR_LTAB "Text_ltab" NNN 1 BLACK RED IF (TYP=5) COLOR_LTAB "Text_ltab" NNN 4 BLACK RED ELSE COLOR_LTAB "Text_ltab" NNN 1 BLACK RED END_IF END_IF END_IF WRITE_LTAB "Text_ltab" NNN 1 T LET NNN (NNN+1) END_LOOP IF ((FINNTEST=1) AND (TYP>4)) LET TREF (INQ 101) LET TADJ (INQ 3) LET THGT (INQ 6) LET TANG (INQ 8) IF (TADJ=1) LET AA 45 ELSE_IF (TADJ=2) LET AA 90 ELSE_IF (TADJ=3) LET AA 135 ELSE_IF (TADJ=4) LET AA 0 ELSE_IF (TADJ=5) LET AA 0 ELSE_IF (TADJ=6) LET AA 180 ELSE_IF (TADJ=7) LET AA 215 ELSE_IF (TADJ=8) LET AA 270 ELSE_IF (TADJ=9) LET AA 315 END_IF IF (TADJ=5) LET TP TREF ELSE LET AA (AA+TANG) LET TP (TREF+(PNT_RA (THGT*.2) AA)) END_IF TRAP_ERROR SHOW SELECT GLOBAL TEXTS TP CONFIRM RED IF (TYP<>7) MOVE_FOUND_TAB TABLE_STATUS "Found_dtab" MAP IF (TYP=5) TABLE_COLUMN 'Found_dtab' COLUMN 1 4 FORMAT 50 BLACK TABGREY LEFT '' END ELSE TABLE_COLUMN 'Found_dtab' COLUMN 1 1 FORMAT 50 BLACK TABGREY LEFT 'TOGGLE_REPL_YESNO @v3' END END_IF END_IF UPDATE_SCREEN LET C (CHECK_ERROR) IF (C=1) TRAP_ERROR SHOW SELECT GLOBAL TEXTS TREF CONFIRM RED LET TP TREF LET C (CHECK_ERROR) END_IF IF (C=0) UPDATE_SCREEN IF (TYP=6) LOOP DEFINE_MOUSE_KEY 3 ('Y' + CHR 4) {Shift+Right mouse key = "Yes"} DEFINE_MOUSE_KEY 1 ('N' + CHR 4) {Shift+Left mouse key = "No"} IF (NEWINT90=1) READ STRING "Do you want to change this text (Y/N)" YESNO ELSE READ STRING "Do you want to change this text (Sh+Left=No, Sh+Right=Yes)" YESNO END_IF EXIT_IF ((YESNO="Yes") OR (YESNO="No")) END_LOOP DEFINE_MOUSE_KEY 1 '' DEFINE_MOUSE_KEY 3 '' ELSE_IF (TYP=7) LET YESNO "Yes" ELSE DISPLAY "Press any key to continue" LET YESNO "No" END_IF IF (YESNO="Yes") LET NROWS (NNN-1) LET NNN 1 CHANGE_TEXT LOOP LET TT (READ_LTAB "Text_ltab" NNN 1) IF (TT="") LET TT " " END_IF TT EXIT_IF (NNN=NROWS) LET NNN (NNN+1) END_LOOP GLOBAL TP END_IF END_IF SHOW GLOBAL TEXTS ALL ON END_IF EXIT_IF (NN=NR) INQ_NEXT_ELEM LET NN (NN+1) END_LOOP TABLE_STATUS "Found_dtab" UNMAP DELETE_LTAB_ROW "Text_ltab" ALL END END_DEFINE DEFINE REPLACE_TEXT PARAMETER T1 PARAMETER T2 PARAMETER T3 LOCAL P1 LOCAL T LOCAL T4 LOCAL T5 LOCAL L1 LOCAL L2 LOCAL L3 LOCAL N LOCAL NN LOCAL LASTT LET L1 (LEN T1) LET L2 (LEN T2) LET L3 (LEN T3) IF (WHOLE_WORD="X") CREATE_LTAB "Replace_ltab" CREATE_LTAB "Replacecltab" LET N 1 LET NN 1 LET LASTT " " LET T5 "" LOOP LET T (SUBSTR T3 N 1) IF (T<>" ") LET T5 (T5+T) LET LASTT "T" ELSE IF (LASTT="T") WRITE_LTAB "Replace_ltab" NN 1 T5 WRITE_LTAB "Replacecltab" NN 1 (UPC T5) LET NN (NN+1) WRITE_LTAB "Replace_ltab" NN 1 " " WRITE_LTAB "Replacecltab" NN 1 " " LET T5 "" LET NN (NN+1) ELSE WRITE_LTAB "Replace_ltab" NN 1 " " WRITE_LTAB "Replacecltab" NN 1 " " LET NN (NN+1) END_IF LET LASTT " " END_IF EXIT_IF (N=L3) LET N (N+1) END_LOOP IF (LASTT="T") WRITE_LTAB "Replace_ltab" NN 1 T5 WRITE_LTAB "Replacecltab" NN 1 (UPC T5) END_IF IF (MATCH_CASE=" ") SELECT_FROM_LTAB "Replacecltab" COLUMN 1 = (UPC T1) END ELSE SELECT_FROM_LTAB "Replace_ltab" COLUMN 1 = T1 END END_IF LET N 1 LOOP LET NN (READ_LTAB "sys_select" N 1) EXIT_IF (NN="") WRITE_LTAB "Replace_ltab" NN 1 T2 LET N (N+1) END_LOOP LET T5 "" LET N 1 LOOP LET T (READ_LTAB "Replace_ltab" N 1) EXIT_IF (T="") LET T5 (T5+T) LET N (N+1) END_LOOP ELSE LET T4 T3 LET N 0 LOOP IF (MATCH_CASE=" ") LET P1 (POS (UPC T4) (UPC T1)) ELSE LET P1 (POS T4 T1) END_IF EXIT_IF (P1=0) LET N (N+1) LET T4 ((SUBSTR T4 1 (P1-1))+"º"+(SUBSTR T4 (P1+1) (L3-P1))) END_LOOP IF (N>0) LET NN 1 LET T5 "" LOOP LET T (SUBSTR T4 NN 1) IF (T="º") LET T5 (T5+T2) LET NN (NN+L1-1) ELSE LET T5 (T5+T) END_IF EXIT_IF (NN>=L3) LET NN (NN+1) END_LOOP ELSE LET REPLACED "" END_IF END_IF LET REPLACED T5 END_DEFINE DEFINE MAKE_FOUND_TABLE LOCAL TSL LOCAL NROWS LOCAL C LET TSL (FONT_HEIGHT+1) TRAP_ERROR DELETE_TABLE "Found_dtab" LET C (CHECK_ERROR) LET NROWS (LTAB_ROWS "Text_ltab") TABLE_LAYOUT 'Found_dtab' 'Text_ltab' TABDREY TABGREY WIDTH 24 ROWS 5 IF (NROWS>5) SCROLL_BAR BLUE TABGREY (FONT_WIDTH*2) END_IF FRAME_WIDTH 3 HORIZONTAL TABGREY SOLID COLUMN_LAYOUT TSL ' ' END TABLE_COLUMN 'Found_dtab' COLUMN 1 1 FORMAT 50 BLACK TABGREY LEFT 'TABLE_STATUS "Found_dtab" UNMAP "@v1"' END END_DEFINE DEFINE MAKE_FINN_TABLE LOCAL TSL LOCAL NROWS LOCAL C LET TSL (FONT_HEIGHT+1) TRAP_ERROR DELETE_TABLE "Finn_dtab" LET C (CHECK_ERROR) LET NROWS (LTAB_ROWS "Finn_ltab") IF (NROWS=0) LET NROWS 1 END_IF TABLE_LAYOUT 'Finn_dtab' 'Finn_ltab' WHITE WHITE WIDTH 24 ROWS 1 IF (NROWS>5) SCROLL_BAR BLUE TABGREY (FONT_WIDTH*2) END_IF FRAME_WIDTH 1 HORIZONTAL WHITE SOLID COLUMN_LAYOUT TSL ' ' END TABLE_COLUMN 'Finn_dtab' COLUMN 1 1 FORMAT 50 BLUE WHITE LEFT 'TABLE_STATUS "Finn_dtab" UNMAP "@v1"' END END_DEFINE DEFINE MAKE_REPL_TABLE LOCAL TSL LOCAL NROWS LOCAL C LET TSL (FONT_HEIGHT+1) TRAP_ERROR DELETE_TABLE "Repl_dtab" LET C (CHECK_ERROR) LET NROWS (LTAB_ROWS "Repl_ltab") IF (NROWS=0) LET NROWS 1 END_IF TABLE_LAYOUT 'Repl_dtab' 'Repl_ltab' WHITE WHITE WIDTH 24 ROWS 1 IF (NROWS>5) SCROLL_BAR BLUE TABGREY (FONT_WIDTH*2) END_IF FRAME_WIDTH 1 HORIZONTAL WHITE SOLID COLUMN_LAYOUT TSL ' ' END TABLE_COLUMN 'Repl_dtab' COLUMN 1 1 FORMAT 50 BLUE WHITE LEFT 'TABLE_STATUS "Repl_dtab" UNMAP "@v1"' END END_DEFINE DEFINE MAKE_FINDREP_TABLE LOCAL TSL LOCAL NROWS LOCAL C LET TSL (FONT_HEIGHT+1) LET NROWS (LTAB_ROWS "Text_ltab") TABLE_LAYOUT 'Textfind_dtab' 'Text_ltab' TABFREY TABFREY WIDTH 60 ROWS 0 FRAME_WIDTH 3 HORIZONTAL TABGREY SOLID VERTICAL BLACK SOLID TITLE_LAYOUT (INT (TSL*1.6)) '123456789012345678901234567890123456789012345678901234|67|90' (INT (TSL*.4)) '2 ' (INT (TSL*2.0)) '3 | | | | ' (INT (TSL*1)) '4 ' (INT (TSL*2.0)) '3 | | | | ' (INT (TSL*1)) '6 ' (INT (TSL*1.7)) '7 | | ' (INT (TSL*1)) '8 | | ' (INT (TSL*1.7)) '9 | | ' (INT (TSL*1)) '0 | | ' (INT (TSL*.6)) '1 ' END COLUMN_LAYOUT (INT (TSL*1.5)) ' ' END WRITE_LTAB "Text_ltab" TITLE 5 "Find next" WRITE_LTAB "Text_ltab" TITLE 6 "Replace" WRITE_LTAB "Text_ltab" TITLE 7 "Replace All" WRITE_LTAB "Text_ltab" TITLE 8 "Cancel" WRITE_LTAB "Text_ltab" TITLE 9 "Find and Replace" WRITE_LTAB "Text_ltab" TITLE 10 "?" WRITE_LTAB "Text_ltab" TITLE 11 "X" HIGHLIGHT_LTAB "Text_ltab" TITLE 5 MARK HIGHLIGHT_LTAB "Text_ltab" TITLE 6 MARK HIGHLIGHT_LTAB "Text_ltab" TITLE 7 MARK HIGHLIGHT_LTAB "Text_ltab" TITLE 8 MARK HIGHLIGHT_LTAB "Text_ltab" TITLE 10 MARK HIGHLIGHT_LTAB "Text_ltab" TITLE 11 MARK HIGHLIGHT_TITLES INQ_TABLE "Textfind_dtab" LET TABPP1 (INQ 103) LET TABPP2 (INQ 104) END_DEFINE DEFINE HIGHLIGHT_TITLES TABLE_TITLE 'Textfind_dtab' BLACK TABGREY BOX 1 1 11 6 WHITE TABBLUE "@s9" 'MOVE_ALL_FINDREP_TABLES_HELP' 1 1 BLACK TABGREY "Find what:" "ADD_FINN_HELP" 3 1 BLACK WHITE "@s1" "ADD_FINN_HELP" 3 2 BLACK TABGREY CENTER "@s5" "FARH 5" 3 4 BLACK TABGREY "Replace with:" "ADD_REPL_HELP" 5 1 BLACK WHITE "@s2" "ADD_REPL_HELP" 5 2 BLACK TABGREY CENTER "@s6" "FARH 6" 5 4 BLACK WHITE "@s13" "SET_WHOLE_WORD_HELP" 8 2 BLACK TABGREY " Match whole word only" "SET_WHOLE_WORD_HELP" 8 3 BLACK TABGREY CENTER "@s7" "FARH 7" 7 2 BLACK WHITE "@s14" "SET_MATCH_CASE_HELP" 10 2 BLACK TABGREY " Match case" "SET_MATCH_CASE_HELP" 10 3 BLACK TABGREY CENTER "@s8" "CANCEL_FINDREP_HELP" 9 2 BLACK TABGREY CENTER "@s10" 'LET Findrep_help_flag 1' 1 2 BLACK TABGREY CENTER "@s11" 'CANCEL_FINDREP_HELP' 1 3 END END_DEFINE DEFINE REDUCE_TITLES TABLE_TITLE 'Textfind_dtab' BLACK TABGREY BOX 1 1 11 6 WHITE TABBLUE "@s9" 'MOVE_ALL_FINDREP_TABLES_HELP' 1 1 BLACK TABGREY "Find what:" "ADD_FINN_HELP" 3 1 BLACK WHITE "@s1" "ADD_FINN_HELP" 3 2 TABDREY TABGREY CENTER "@s5" "FARH 5" 3 4 BLACK TABGREY "Replace with:" "ADD_REPL_HELP" 5 1 BLACK WHITE "@s2" "ADD_REPL_HELP" 5 2 TABDREY TABGREY CENTER "@s6" "FARH 6" 5 4 BLACK WHITE "@s13" "SET_WHOLE_WORD_HELP" 8 2 BLACK TABGREY " Match whole word only" "SET_WHOLE_WORD_HELP" 8 3 TABDREY TABGREY CENTER "@s7" "FARH 7" 7 2 BLACK WHITE CENTER "@s14" "SET_MATCH_CASE_HELP" 10 2 BLACK TABGREY " Match case" "SET_MATCH_CASE_HELP" 10 3 BLACK TABGREY CENTER "@s8" "CANCEL_FINDREP_HELP" 9 2 BLACK TABGREY CENTER "@s10" 'LET Findrep_help_flag 1' 1 2 BLACK TABGREY CENTER "@s11" 'CANCEL_FINDREP_HELP' 1 3 END END_DEFINE DEFINE REDUCE_WITH TABLE_TITLE 'Textfind_dtab' BLACK TABGREY BOX 1 1 11 6 WHITE BLUE "@s9" 'MOVE_ALL_FINDREP_TABLES_HELP' 1 1 BLACK TABGREY "Find what:" "ADD_FINN_HELP" 3 1 BLACK WHITE "@s1" "ADD_FINN_HELP" 3 2 BLACK TABGREY CENTER "@s5" "FARH 5" 3 4 TABDREY TABGREY "Replace with:" "ADD_REPL_HELP" 5 1 TABDREY TABLREY "@s2" "ADD_REPL_HELP" 5 2 TABDREY TABGREY CENTER "@s6" "" 5 4 BLACK WHITE "@s13" "SET_WHOLE_WORD_HELP" 8 2 BLACK TABGREY " Match whole word only" "SET_WHOLE_WORD_HELP" 8 3 TABDREY TABGREY CENTER "@s7" "" 7 2 BLACK WHITE CENTER "@s14" "SET_MATCH_CASE_HELP" 10 2 BLACK TABGREY " Match case" "SET_MATCH_CASE_HELP" 10 3 BLACK TABGREY CENTER "@s8" "CANCEL_FINDREP_HELP" 9 2 BLACK TABGREY CENTER "@s10" 'LET Findrep_help_flag 1' 1 2 BLACK TABGREY CENTER "@s11" 'CANCEL_FINDREP_HELP' 1 3 END END_DEFINE DEFINE ADD_FINN LET OLD_OLD_TIME OLD_TIME LET NEW_TIME (TIME) LET OLD_TIME NEW_TIME TABLE_STATUS "Repl_dtab" UNMAP TABLE_STATUS "Help_dtab" UNMAP LET REPL_TAB_FLAG 0 IF ((NEW_TIME-OLD_OLD_TIME)"") HIGHLIGHT_TITLES ELSE REDUCE_TITLES END_IF IF ((POS FINN "*") OR (POS FINN "?")) REDUCE_WITH END_IF END_IF END_DEFINE DEFINE ADD_REPL LET OLD_OLD_TIME OLD_TIME LET NEW_TIME (TIME) LET OLD_TIME NEW_TIME TABLE_STATUS "Finn_dtab" UNMAP TABLE_STATUS "Help_dtab" UNMAP LET FINN_TAB_FLAG 0 IF ((NEW_TIME-OLD_OLD_TIME)0) LET YESNO (READ_LTAB "Text_ltab" NNN 2) IF (YESNO="Yes") LET T (READ_LTAB "Text_ltab" NNN 4) WRITE_LTAB "Text_ltab" NNN 1 T WRITE_LTAB "Text_ltab" NNN 2 "No" COLOR_LTAB "Text_ltab" NNN 1 DEFAULT DEFAULT HIGHLIGHT_LTAB "Text_ltab" NNN 1 MARK ELSE LET T (READ_LTAB "Text_ltab" NNN 5) WRITE_LTAB "Text_ltab" NNN 1 T WRITE_LTAB "Text_ltab" NNN 2 "Yes" HIGHLIGHT_LTAB "Text_ltab" NNN 1 OFF COLOR_LTAB "Text_ltab" NNN 1 BLACK RED END_IF ELSE DISPLAY_NO_WAIT "Not relevant" WAIT .3 END_IF END_DEFINE DEFINE SET_MATCH_CASE LOCAL W LOCAL H LET MATCH_CASE (READ_LTAB "Text_ltab" TITLE 4) IF (MATCH_CASE=" ") WRITE_LTAB "Text_ltab" TITLE 4 "X" WRITE_LTAB "Text_ltab" TITLE 14 LET W ((FONT_WIDTH+6)/2) LET H ((FONT_HEIGHT+6)/2) (CHR 255+CHR (W-3)+CHR (H-4)+CHR (W-1)+CHR (H-6)+CHR (W+4) +CHR (H+1) +CHR 255+CHR (W-3)+CHR (H-3)+CHR (W-1)+CHR (H-5)+CHR (W+4) +CHR (H+2) +CHR 255+CHR (W-3)+CHR (H-2)+CHR (W-1)+CHR (H-4)+CHR (W+4) +CHR (H+3)) ELSE WRITE_LTAB "Text_ltab" TITLE 4 " " WRITE_LTAB "Text_ltab" TITLE 14 "" END_IF END_DEFINE DEFINE SET_WHOLE_WORD LOCAL W LOCAL H LET FINN (READ_LTAB "Text_ltab" TITLE 1) IF (NOT POS FINN " ") LET WHOLE_WORD (READ_LTAB "Text_ltab" TITLE 3) IF (WHOLE_WORD=" ") WRITE_LTAB "Text_ltab" TITLE 3 "X" WRITE_LTAB "Text_ltab" TITLE 13 LET W ((FONT_WIDTH+6)/2) LET H ((FONT_HEIGHT+6)/2) (CHR 255+CHR (W-3)+CHR (H-4)+CHR (W-1)+CHR (H-6)+CHR (W+4) +CHR (H+1) +CHR 255+CHR (W-3)+CHR (H-3)+CHR (W-1)+CHR (H-5)+CHR (W+4) +CHR (H+2) +CHR 255+CHR (W-3)+CHR (H-2)+CHR (W-1)+CHR (H-4)+CHR (W+4) +CHR (H+3)) ELSE WRITE_LTAB "Text_ltab" TITLE 3 " " WRITE_LTAB "Text_ltab" TITLE 13 "" END_IF END_IF END_DEFINE DEFINE CANCEL_FINDREP HIGHLIGHT_LTAB "Text_ltab" TITLE 8 MARK UPDATE_SCREEN SHOW GLOBAL TEXTS ALL ON TABLE_STATUS "Finn_dtab" UNMAP TABLE_STATUS "Repl_dtab" UNMAP TABLE_STATUS "Textfind_dtab" UNMAP DELETE_LTAB_ROW "Text_ltab" ALL TABLE_STATUS "Found_dtab" UNMAP TABLE_STATUS "Help_dtab" UNMAP LET FINN_TAB_FLAG 0 LET REPL_TAB_FLAG 0 END END_DEFINE DEFINE FIND_TABLE_UL INQ_TABLE "Textfind_dtab" LET LL (INQ 101) LET UR (INQ 102) LET UY (Y_OF UR) LET LY (Y_OF LL) LET RX (X_OF UR) LET LX (X_OF LL) LET UL (PNT_XY LX UY) LET LR (PNT_XY RX LY) END_DEFINE DEFINE MOVE_FOUND_TAB LOCAL TSL LOCAL P1 LOCAL P2 LOCAL NROWS LOCAL C MAKE_FINDREP_TABLE LET NROWS (LTAB_ROWS "Text_ltab") MAKE_FOUND_TABLE FIND_TABLE_UL LET TSL (FONT_HEIGHT+1) LET P1 LL IF (NROWS>0) IF (NROWS<5) LET P2 (LR-(PNT_XY 0 (TSL*NROWS+6))) ELSE LET P2 (LR-(PNT_XY 0 (TSL*5+6))) END_IF ELSE LET P2 (LR-(PNT_XY 0 TSL)) END_IF TRAP_ERROR CHANGE_TABLE_SIZE "Found_dtab" P1 P2 LET C (CHECK_ERROR) END_DEFINE DEFINE MOVE_FINN_TAB LOCAL TSL LOCAL P1 LOCAL P2 LOCAL NROWS LOCAL TW LOCAL TH LOCAL C LET NROWS (LTAB_ROWS "Finn_ltab") LET TH ((FONT_WIDTH*14)+2) LET TW (TH+(FONT_WIDTH*28)-2) IF (NROWS>0) MAKE_FINN_TABLE FIND_TABLE_UL LET TSL (FONT_HEIGHT+1) LET P1 (UL+(PNT_XY TH (TSL*-4))) IF (NROWS<5) LET P2 (UL+(PNT_XY TW (TSL*(-4-NROWS)))) ELSE LET P2 (UL+(PNT_XY TW (TSL*-9))) END_IF TRAP_ERROR CHANGE_TABLE_SIZE "Finn_dtab" P1 P2 LET C (CHECK_ERROR) END_IF END_DEFINE DEFINE MOVE_REPL_TAB LOCAL TSL LOCAL P1 LOCAL P2 LOCAL NROWS LOCAL TW LOCAL TH LET NROWS (LTAB_ROWS "Repl_ltab") LET TH ((FONT_WIDTH*14)+2) LET TW (TH+(FONT_WIDTH*28)-2) IF (NROWS>0) MAKE_REPL_TABLE FIND_TABLE_UL LET TSL (FONT_HEIGHT+1) LET P1 (UL+(PNT_XY TH (TSL*-7))) IF (NROWS<5) LET P2 (UL+(PNT_XY TW (TSL*(-7-NROWS)))) ELSE LET P2 (UL+(PNT_XY TW (TSL*-12))) END_IF CHANGE_TABLE_SIZE "Repl_dtab" P1 P2 END_IF END_DEFINE DEFINE EDIT_FINN LOCAL TSL LOCAL P1 LOCAL P2 LOCAL P3 LOCAL P4 LOCAL TW LOCAL TH LOCAL N LOCAL C ENABLE_BREAK MAKE_FINDREP_TABLE HIGHLIGHT_FINDREP_TITLES DELETE_LTAB_ROW "Text_ltab" ALL UPDATE_SCREEN FIND_TABLE_UL LET TSL (FONT_HEIGHT+1) LET TH ((FONT_WIDTH*14)+2) LET TW (TH+(FONT_WIDTH*28)-2) LET P1 (UL+(PNT_XY (TH+2) (TSL*-3))) LET P2 (UL+(PNT_XY (TW-2) (TSL*-3))) IF ((TYPE FINN)=PNT) LET FINN FFINN END_IF LET N 1 LOOP LET P3 (P1+(PNT_XY 0 N)) LET P4 (P2-(PNT_XY 0 N)) TRAP_ERROR EDIT_PORT WHITE 0 WHITE 0 BLACK RED P3 P4 LET C (CHECK_ERROR) EXIT_IF (C=0) LET N (N+1) EXIT_IF (N=30) END_LOOP SAVE_CURRENT_INFOS DELETE_CURRENT_INFO ADD_CURRENT_INFO FINN DEFINE_MOUSE_KEY 1 (CHR 4) {Shift+Left mouse key = Ctrl-D} EDIT_CURRENT_INFO DEFINE_MOUSE_KEY 1 '' RESET_EDIT_PORT INQ_ENV 8 INQ_ENV 9 LET FINN (INQ 303) DELETE_CURRENT_INFO RESTORE_CURRENT_INFOS END_DEFINE DEFINE EDIT_REPL LOCAL TSL LOCAL P1 LOCAL P2 LOCAL P3 LOCAL P4 LOCAL TW LOCAL TH LOCAL N LOCAL C ENABLE_BREAK MAKE_FINDREP_TABLE HIGHLIGHT_FINDREP_TITLES DELETE_LTAB_ROW "Text_ltab" ALL UPDATE_SCREEN FIND_TABLE_UL LET TSL (FONT_HEIGHT+1) LET TH ((FONT_WIDTH*14)+2) LET TW (TH+(FONT_WIDTH*28)-2) LET P1 (UL+(PNT_XY (TH+2) (TSL*-6))) LET P2 (UL+(PNT_XY (TW-2) (TSL*-6))) IF ((TYPE REPL)=PNT) LET REPL RREPL END_IF LET N 1 LOOP LET P3 (P1+(PNT_XY 0 N)) LET P4 (P2-(PNT_XY 0 N)) TRAP_ERROR EDIT_PORT WHITE 0 WHITE 0 BLACK RED P3 P4 LET C (CHECK_ERROR) EXIT_IF (C=0) LET N (N+1) EXIT_IF (N=30) END_LOOP SAVE_CURRENT_INFOS DELETE_CURRENT_INFO ADD_CURRENT_INFO REPL DEFINE_MOUSE_KEY 1 (CHR 4) {Shift+Left mouse key = Ctrl-D} EDIT_CURRENT_INFO DEFINE_MOUSE_KEY 1 '' RESET_EDIT_PORT INQ_ENV 8 INQ_ENV 9 LET REPL (INQ 303) DELETE_CURRENT_INFO RESTORE_CURRENT_INFOS END_DEFINE DEFINE RESET_EDIT_PORT EDIT_PORT 1 4 BLACK WHITE WHITE 0,0 9999,9999 END_DEFINE DEFINE RESTORE_CURRENT_INFOS LOCAL N LOCAL NROWS LOCAL INF LET NROWS (LTAB_ROWS "Info_ltab") IF (NROWS>0) LET N 1 LOOP LET INF (READ_LTAB "Info_ltab" N 1) ADD_CURRENT_INFO INF END EXIT_IF (N=NROWS) LET N (N+1) END_LOOP END_IF END END_DEFINE DEFINE SAVE_CURRENT_INFOS LOCAL N LOCAL NROWS LOCAL INF CREATE_LTAB "Info_ltab" INQ_ENV 8 LET NROWS (INQ 4) IF (NROWS>0) LET N 1 LOOP INQ_ENV 9 LET INF (INQ 303) WRITE_LTAB "Info_ltab" N 1 INF EXIT_IF (N=NROWS) LET N (N+1) END_LOOP END_IF END_DEFINE DEFINE MOVE_ALL_FINDREP_TABLES TABLE_STATUS "Finn_dtab" UNMAP TABLE_STATUS "Repl_dtab" UNMAP TABLE_STATUS "Found_dtab" UNMAP TABLE_STATUS "Help_dtab" UNMAP LET FINN_TAB_FLAG 0 LET REPL_TAB_FLAG 0 TABLE_STATUS "Textfind_dtab" MOVE END_DEFINE DEFINE START_FIND_TABLES LOCAL N WRITE_LTAB "Finn_ltab" 1 1 "WorkManager" WRITE_LTAB "Finn_ltab" 2 1 "ME10" WRITE_LTAB "Finn_ltab" 3 1 "SolidDesigner" WRITE_LTAB "Finn_ltab" 4 1 "CoCreate" WRITE_LTAB "Repl_ltab" 1 1 "WorkManager" WRITE_LTAB "Repl_ltab" 2 1 "ME10" WRITE_LTAB "Repl_ltab" 3 1 "SolidDesigner" WRITE_LTAB "Repl_ltab" 4 1 "CoCreate" WRITE_LTAB "Text_ltab" TITLE 3 " " WRITE_LTAB "Text_ltab" TITLE 4 " " LET N 1 LOOP WRITE_LTAB "Repl_ltab" N 2 N WRITE_LTAB "Finn_ltab" N 2 N EXIT_IF (N=4) LET N (N+1) END_LOOP SORT_LTAB "Finn_ltab" REVERSE_SORT 2 CONFIRM SORT_LTAB "Repl_ltab" REVERSE_SORT 2 CONFIRM END_DEFINE CREATE_LTAB "Text_ltab" CREATE_LTAB "Finn_ltab" CREATE_LTAB "Repl_ltab" CREATE_LTAB "Found_ltab" MAKE_FINDREP_TABLE MAKE_FINN_TABLE MAKE_REPL_TABLE MAKE_FOUND_TABLE START_FIND_TABLES START_FIND_REPLACE MOVE_FOUND_TAB {*********** Help system *************************************************} DEFINE FINDREP_HELP PARAMETER HELP_TOPIK LOCAL P1 LOCAL P2 LOCAL P3 LOCAL TSL LOCAL Y1 LOCAL Y2 LOCAL T1 LOCAL T2 LOCAL T3 LOCAL T4 LOCAL L LOCAL GRLL LOCAL GRUR LOCAL N LET FINDREP_HELP_FLAG 0 LET T1 "" LET T2 "" LET T3 "" LET T4 "" LET TSL (FONT_HEIGHT+1) INQ_ENV 1 LET P1 (INQ 103) LET P3 P1 CREATE_LTAB "Help_ltab" TABLE_COLUMN 'Help_dtab' COLUMN 1 1 FORMAT 50 BLUE LGHTYEL LEFT 'TABLE_STATUS "Help_dtab" UNMAP' END IGNORE_BREAK IF (HELP_TOPIK="FIND_AND_REPLACE") IF (TYP=5) LET T1 "Searches for the next instance of the text" LET T2 "you specified in the Find what box." LET L ((LEN T1)+2) LET P1 (P1-(PNT_XY (FONT_WIDTH*L) (TSL*2))) LET P2 P3 ELSE_IF (TYP=6) LET T1 "Searches for the next text in the Find what box and" LET T2 "replaces it with the text in the Replace With box." LET L ((LEN T1)+2) LET P1 (P1-(PNT_XY (FONT_WIDTH*L) (TSL*2))) LET P2 P3 ELSE_IF (TYP=7) LET T1 "Searches for every instance of the text that matches" LET T2 "the text in the Find what box and replaces it with" LET T3 "the text in the Replace With box." LET L ((LEN T1)+2) LET P1 (P1-(PNT_XY (FONT_WIDTH*L) (TSL*3))) LET P2 P3 END_IF ELSE_IF (HELP_TOPIK="ADD_FINN") LET T1 "Provides a space for you to enter the text" LET T2 "you want to find." LET T3 '(Wildcards can be used but only for "Find".' LET T4 'Spaces exclude the use of "Whole word".)' LET L ((LEN T3)+2) LET P2 (P1+(PNT_XY (FONT_WIDTH*L) (TSL*-4))) ELSE_IF (HELP_TOPIK="ADD_REPL") LET T1 "Searches for the text in the Find What box" LET T2 "and replaces it with this text." LET L ((LEN T1)+2) LET P2 (P1+(PNT_XY (FONT_WIDTH*L) (TSL*-2))) ELSE_IF (HELP_TOPIK="CANCEL_FINDREP") LET T1 "Closes this dialog box and saves" LET T2 "any changes you have made." LET L ((LEN T1)+2) LET P1 (P1-(PNT_XY (FONT_WIDTH*L) (TSL*2))) LET P2 P3 ELSE_IF (HELP_TOPIK="SET_MATCH_CASE") LET T1 "Finds only text that has the same pattern of upper and lower" LET T2 "case as the text you specified in the Find what box." LET L ((LEN T1)+2) LET P2 (P1+(PNT_XY (FONT_WIDTH*L) (TSL*2))) ELSE_IF (HELP_TOPIK="SET_WHOLE_WORD") LET T1 "Finds only whole words instead of searching" LET T2 "for your text inside longer words." LET L ((LEN T1)+2) LET P2 (P1+(PNT_XY (FONT_WIDTH*L) (TSL*-2))) ELSE_IF (HELP_TOPIK="MOVE_ALL_FINDREP_TABLES") LET T1 'X X' LET T2 ' ' LET T3 ' ' LET T4 ' Find and Replace for CoCreate ME10 ' WRITE_LTAB "Help_ltab" 5 1 ' Version 1.0 June 1999 ' WRITE_LTAB "Help_ltab" 6 1 ' ' WRITE_LTAB "Help_ltab" 7 1 ' Developed by Darren Litherland ' WRITE_LTAB "Help_ltab" 8 1 ' (Find and Replace Homepage) ' WRITE_LTAB "Help_ltab" 9 1 ' ' {12345678901234567890123456789012345678901234567890} WRITE_LTAB "Help_ltab" 10 1 ' Click here to move this ' WRITE_LTAB "Help_ltab" 11 1 ' help table ' WRITE_LTAB "Help_ltab" 12 1 ' ' WRITE_LTAB "Help_ltab" 13 1 ' [1/4] [Next] ' WRITE_LTAB "Help_ltab" 14 1 ' ' WRITE_LTAB "Help_ltab" 15 1 ' Features of FIND AND REPLACE are: ' WRITE_LTAB "Help_ltab" 16 1 ' ' WRITE_LTAB "Help_ltab" 17 1 ' POP-UP HELP: You are using it now! ' WRITE_LTAB "Help_ltab" 18 1 ' DOUBLE-CLICK: Hit "Find what" twice -quickly ' WRITE_LTAB "Help_ltab" 19 1 ' READ-IN-TABLE: Enter data WITHIN a table! ' WRITE_LTAB "Help_ltab" 20 1 ' DYNAMIC-TABLES: Tables are linked together ' WRITE_LTAB "Help_ltab" 21 1 ' ' WRITE_LTAB "Help_ltab" 22 1 ' "Find and Replace" functions in very much the ' WRITE_LTAB "Help_ltab" 23 1 ' same way as "Replace" in Microsoft WordPad. ' WRITE_LTAB "Help_ltab" 24 1 ' ' WRITE_LTAB "Help_ltab" 25 1 ' [Prev] ' WRITE_LTAB "Help_ltab" 26 1 ' [2/4] [Next] ' WRITE_LTAB "Help_ltab" 27 1 ' ' WRITE_LTAB "Help_ltab" 28 1 ' Text can be added to "Find what" and "Replace- ' WRITE_LTAB "Help_ltab" 29 1 ' with" by clicking once and adding the normal way.' WRITE_LTAB "Help_ltab" 30 1 ' Text can also by added by "double-clicking" in ' WRITE_LTAB "Help_ltab" 31 1 ' the box, adding the text and closing with Ctrl-D.' WRITE_LTAB "Help_ltab" 32 1 ' ' WRITE_LTAB "Help_ltab" 33 1 ' Previously used texts can be selected in the ' WRITE_LTAB "Help_ltab" 34 1 ' drop-down menu. ' WRITE_LTAB "Help_ltab" 35 1 ' ' WRITE_LTAB "Help_ltab" 36 1 ' When replacing texts, individual lines can be de-' WRITE_LTAB "Help_ltab" 37 1 ' selected by clicking on those lines. ' WRITE_LTAB "Help_ltab" 38 1 ' [Prev] ' WRITE_LTAB "Help_ltab" 39 1 ' [3/4] [Next] ' WRITE_LTAB "Help_ltab" 40 1 ' ' WRITE_LTAB "Help_ltab" 41 1 ' When asked whether to replace text or not you WRITE_LTAB "Help_ltab" 42 1 ' can either enter Y or N. If your system supports ' WRITE_LTAB "Help_ltab" 43 1 ' it you can use the mouse keys: ' WRITE_LTAB "Help_ltab" 44 1 ' ' WRITE_LTAB "Help_ltab" 45 1 ' Shift+Left = No Shift+Right = Yes ' WRITE_LTAB "Help_ltab" 46 1 ' ' WRITE_LTAB "Help_ltab" 47 1 ' Remember - there is no "UNDO" available! ' WRITE_LTAB "Help_ltab" 48 1 ' Store your drawing before doing big text changing' WRITE_LTAB "Help_ltab" 49 1 ' jobs. ' WRITE_LTAB "Help_ltab" 50 1 ' ' WRITE_LTAB "Help_ltab" 51 1 ' [Prev] ' WRITE_LTAB "Help_ltab" 52 1 ' [4/4] [Home] ' LET N 1 LOOP WRITE_LTAB "Help_ltab" N 2 'TABLE_STATUS "Help_dtab" MOVE' EXIT_IF (N=50) LET N (N+1) END_LOOP WRITE_LTAB "Help_ltab" 1 2 'TABLE_STATUS "Help_dtab" UNMAP' WRITE_LTAB "Help_ltab" 4 2 'BROWSE_URL "http://www.nethut.net/me10/macros/replace"' WRITE_LTAB "Help_ltab" 5 2 'BROWSE_URL "http://www.nethut.net/me10/macros/replace"' WRITE_LTAB "Help_ltab" 6 2 'BROWSE_URL "http://www.nethut.net/me10/macros/replace"' WRITE_LTAB "Help_ltab" 7 2 'BROWSE_URL "http://www.nethut.net/me10/macros/replace"' WRITE_LTAB "Help_ltab" 8 2 'BROWSE_URL "http://www.nethut.net/me10/macros/replace"' WRITE_LTAB "Help_ltab" 9 2 'BROWSE_URL "http://www.nethut.net/me10/macros/replace"' WRITE_LTAB "Help_ltab" 13 2 'SCROLL_LTAB "Help_ltab" 14' WRITE_LTAB "Help_ltab" 25 2 'SCROLL_LTAB "Help_ltab" 1 ' WRITE_LTAB "Help_ltab" 26 2 'SCROLL_LTAB "Help_ltab" 27' WRITE_LTAB "Help_ltab" 38 2 'SCROLL_LTAB "Help_ltab" 14' WRITE_LTAB "Help_ltab" 39 2 'SCROLL_LTAB "Help_ltab" 40' WRITE_LTAB "Help_ltab" 51 2 'SCROLL_LTAB "Help_ltab" 27' WRITE_LTAB "Help_ltab" 52 2 'SCROLL_LTAB "Help_ltab" 1 ' ENABLE_BREAK LET L 51 LET P2 (P1+(PNT_XY (FONT_WIDTH*L) (TSL*-13))) TABLE_COLUMN 'Help_dtab' COLUMN 1 1 FORMAT 50 BLUE LGHTYEL LEFT '@v2' END COLOR_LTAB "Help_ltab" 17 1 BLACK LGHTYEL COLOR_LTAB "Help_ltab" 18 1 BLACK LGHTYEL COLOR_LTAB "Help_ltab" 19 1 BLACK LGHTYEL COLOR_LTAB "Help_ltab" 20 1 BLACK LGHTYEL HIGHLIGHT_LTAB "Help_ltab" 1 1 ON HIGHLIGHT_LTAB "Help_ltab" 13 1 ON HIGHLIGHT_LTAB "Help_ltab" 26 1 ON HIGHLIGHT_LTAB "Help_ltab" 39 1 ON HIGHLIGHT_LTAB "Help_ltab" 52 1 ON END_IF WRITE_LTAB "Help_ltab" 1 1 T1 WRITE_LTAB "Help_ltab" 2 1 T2 WRITE_LTAB "Help_ltab" 3 1 T3 WRITE_LTAB "Help_ltab" 4 1 T4 INQ_ENV 10 LET GRLL (INQ 101) LET GRUR (INQ 102) LET DX ((X_OF P1)-(X_OF GRLL)) IF (DX<0) LET P1 (P1-(PNT_XY DX 0)) LET P2 (P2-(PNT_XY DX 0)) END_IF LET DX ((X_OF P2)-(X_OF GRUR)) IF (DX>0) LET P1 (P1-(PNT_XY DX 0)) LET P2 (P2-(PNT_XY DX 0)) END_IF TABLE_STATUS "Help_dtab" UNMAP LET N 0 LOOP LET P1 (P1-(PNT_XY 0 1)) LET P2 (P2-(PNT_XY 0 1)) CHANGE_TABLE_SIZE "Help_dtab" P1 P2 INQ_TABLE "Help_dtab" LET Y1 (Y_OF (INQ 103)) LET Y2 (Y_OF (INQ 104)) EXIT_IF ((FRACT ((Y2-Y1)/TSL))=0) EXIT_IF (N=10) LET N (N+1) END_LOOP TABLE_STATUS "Help_dtab" MAP ENABLE_BREAK INQ_ENV 0 IF (HELP_TOPIK<>"MOVE_ALL_FINDREP_TABLES") READ "You are presently in Help mode. Pick a point anywhere to continue or BREAK/ESC to halt." DUMMI TABLE_STATUS "Help_dtab" UNMAP END_IF ENABLE_BREAK END_DEFINE DEFINE MOVE_ALL_FINDREP_TABLES_HELP IF (FINDREP_HELP_FLAG=1) FINDREP_HELP "MOVE_ALL_FINDREP_TABLES" ELSE MOVE_ALL_FINDREP_TABLES END_IF END_DEFINE DEFINE FIND_AND_REPLACE_HELP PARAMETER TYP IF (FINDREP_HELP_FLAG=1) FINDREP_HELP "FIND_AND_REPLACE" ELSE FIND_AND_REPLACE TYP END_IF END_DEFINE DEFINE CANCEL_FINDREP_HELP IF (FINDREP_HELP_FLAG=1) FINDREP_HELP "CANCEL_FINDREP" ELSE CANCEL_FINDREP END_IF END_DEFINE DEFINE ADD_FINN_HELP IF (FINDREP_HELP_FLAG=1) FINDREP_HELP "ADD_FINN" ELSE ADD_FINN END_IF END_DEFINE DEFINE ADD_REPL_HELP IF (FINDREP_HELP_FLAG=1) FINDREP_HELP "ADD_REPL" ELSE ADD_REPL END_IF END_DEFINE DEFINE SET_MATCH_CASE_HELP IF (FINDREP_HELP_FLAG=1) FINDREP_HELP "SET_MATCH_CASE" ELSE SET_MATCH_CASE END_IF END_DEFINE DEFINE SET_WHOLE_WORD_HELP IF (FINDREP_HELP_FLAG=1) FINDREP_HELP "SET_WHOLE_WORD" ELSE SET_WHOLE_WORD END_IF END_DEFINE DEFINE MAKE_HELP_TABLE LOCAL TSL LOCAL NROWS LOCAL C LET TSL (FONT_HEIGHT+1) TRAP_ERROR DELETE_TABLE "Help_dtab" LET C (CHECK_ERROR) LET NROWS (LTAB_ROWS "Help_ltab") TABLE_LAYOUT 'Help_dtab' 'Help_ltab' TABDREY LGHTYEL WIDTH 30 ROWS 2 HORIZONTAL LGHTYEL SOLID COLUMN_LAYOUT TSL ' ' END TABLE_COLUMN 'Help_dtab' COLUMN 1 1 FORMAT 50 BLUE LGHTYEL LEFT 'TABLE_STATUS "Help_dtab" UNMAP' END END_DEFINE CREATE_LTAB "Help_ltab" MAKE_HELP_TABLE