home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / AUROR21A.ZIP / CFGFIND.AML < prev    next >
Text File  |  1995-09-01  |  1KB  |  45 lines
  1. /* ------------------------------------------------------------------ */
  2. /* Macro:        CFGFIND.AML                                          */
  3. /* Written by:   nuText Systems                                       */
  4. /*                                                                    */
  5. /* Description:  This macro displays a configuration dialog box for   */
  6. /*               search and replace options.                          */
  7. /* ------------------------------------------------------------------ */
  8.  
  9.   include bootpath "define.aml"
  10.  
  11.   var searchopt
  12.   var replopt
  13.  
  14.   // create dialog box
  15.   dialog "Search Options" 41 13 "cp"
  16.  
  17.   // search options
  18.   groupbox 'Default Search Options:' 3 2
  19.     (menu ''
  20.        item " [ ] &Block Only"
  21.        item " [ ] &Global Search"
  22.        item " [ ] &Ignore Case"
  23.        item " [ ] Search in &Reverse"
  24.        item " [ ] &Skip Closed Folds"
  25.        item " [ ] &Whole Words Only"
  26.        item " [ ] Regular E&xpressions "
  27.      end)  '' _SearchOpt "bgirswx"
  28.  
  29.   // replace options
  30.   groupbox 'Default Replace Options:' 3 11
  31.     (menu ''
  32.        item " [ ] Replace &All"
  33.      end)  '' _ReplaceOpt "a"
  34.  
  35.   // ok/cancel buttons
  36.   button "O&k"     31  3 8
  37.   button "Cancel"  31  5 8
  38.  
  39.   // display dialog box
  40.   if (getdialog ref searchopt ref replopt) == 'Ok' then
  41.     setobj SearchOpt   searchopt  'prf'
  42.     setobj ReplaceOpt  replopt    'prf'
  43.   end
  44.  
  45.