home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / E / TFF-A32R.LZX / AmigaE3.2a / Src / Tools / EasyGUI / examples / search.e < prev    next >
Encoding:
Text File  |  1996-06-06  |  887 b   |  31 lines
  1. -> search requester in EasyGUI
  2.  
  3. OPT OSVERSION=37
  4. MODULE 'tools/EasyGUI'
  5.  
  6. PROC main() HANDLE
  7.   WriteF('result=\d\n',easygui('Enter Search/Replace text:',
  8.     [ROWS,
  9.       [BEVEL,
  10.         [ROWS,                        -> ROWS
  11.           [EQROWS,
  12.             [STR,{find},'Locate','bla',10,20],
  13.             [STR,{repl},'Replace','burp',10,20]],
  14.           [COLS,                        -> COLS
  15.             [CHECK,{case},'Ignore case',TRUE,FALSE],
  16.             [CHECK,{word},'Whole words only',FALSE,FALSE],
  17.             [CHECK,{forw},'Search forward',TRUE,FALSE]]]],
  18.       [EQCOLS,
  19.         [BUTTON,1,'Search'],
  20.         [BUTTON,2,'Replace'],
  21.         [BUTTON,0,'Cancel']]]))
  22. EXCEPT
  23.   WriteF('"\s"\n',[exception,0])
  24. ENDPROC
  25.  
  26. PROC find(x,y) IS WriteF('Find="\s"!\n',y)
  27. PROC repl(x,y) IS WriteF('Repl="\s"!\n',y)
  28. PROC case(x,y) IS WriteF('Case=\d!\n',y)
  29. PROC word(x,y) IS WriteF('Word=\d!\n',y)
  30. PROC forw(x,y) IS WriteF('Forw=\d!\n',y)
  31.