home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / AUROR21A.ZIP / CFGSORT.AML < prev    next >
Encoding:
Text File  |  1995-09-01  |  1.2 KB  |  41 lines
  1. /* ------------------------------------------------------------------ */
  2. /* Macro:        CFGSORT.AML                                          */
  3. /* Written by:   nuText Systems                                       */
  4. /*                                                                    */
  5. /* Description:  This macro displays a configuration dialog box for   */
  6. /*               sorting blocks.                                      */
  7. /* ------------------------------------------------------------------ */
  8.  
  9.   include bootpath "define.aml"
  10.  
  11.   var sortorder
  12.   var sortcase
  13.  
  14.   // create dialog box
  15.   dialog "Sort Options" 38  9 "cp"
  16.  
  17.   // sort order group box
  18.   groupbox 'Sort Order:' 3 2
  19.     (menu ''
  20.        item " ( ) &Ascending"
  21.        item " ( ) &Descending       "
  22.      end) '' _SortOpt 'ad'
  23.  
  24.   // case options group box
  25.   groupbox 'Sort Case:' 3 6
  26.     (menu ''
  27.        item " ( ) &Case Sensitive"
  28.        item " ( ) Case &Insensitive "
  29.      end) '' _SortOpt 'ci'
  30.  
  31.   // ok/cancel buttons
  32.   button "O&k"    28  3 8
  33.   button "Cancel" 28  5 8
  34.  
  35.   // display dialogbox
  36.   if (getdialog ref sortorder ref sortcase) == "Ok" then
  37.     setobj SortOpt  sortorder + sortcase  'prf'
  38.     return TRUE
  39.   end
  40.  
  41.