home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 24 / CD_ASCQ_24_0995.iso / dos / tools / aurora21 / cfgfmgr.aml < prev    next >
Text File  |  1995-08-10  |  2KB  |  71 lines
  1. /* ------------------------------------------------------------------ */
  2. /* Macro:        CFGFMGR.AML                                          */
  3. /* Written by:   nuText Systems                                       */
  4. /*                                                                    */
  5. /* Description:  This macro displays a configuration dialog box for   */
  6. /*               file manager options.                                */
  7. /* ------------------------------------------------------------------ */
  8.  
  9.   include bootpath "define.aml"
  10.  
  11.   var fmgropt
  12.   var fmgrsort
  13.   var fmgrquit
  14.  
  15.   // create dialog box
  16.   dialog "File Manager Options" 47 14 "cp"
  17.  
  18.   // display options
  19.   groupbox 'Show:' 3 2
  20.     (menu ''
  21.        item " [ ] &Directories"
  22.        item " [ ] &Hidden and System Files"
  23.        item " [ ] File Sizes in 1&K increments"
  24.        item " [ ] Directories &First on Name Sort       "
  25.      end) '' _FmgrOpt "dhk1"
  26.  
  27.   // sort options
  28.   groupbox 'Sort by:' 3 8
  29.     (menu ''
  30.        item " ( ) &Name"
  31.        item " ( ) &Extension"
  32.        item " ( ) &Size"
  33.        item " ( ) Date/&Time  "
  34.        item " ( ) D&OS Order"
  35.      end) '' _FmgrSort 'nesdo'
  36.  
  37.   // other options
  38.   groupbox 'Options:' 22 8
  39.     (menu ''
  40.        item " [ ] &Quit on File Open "
  41.      end) '' _FmgrQuit 'y'
  42.  
  43.   // ok/cancel buttons
  44.   button "O&k"    24 12 8
  45.   button "Cancel" 35 12 8
  46.  
  47.   // display dialog box
  48.   if (getdialog ref fmgropt ref fmgrsort ref fmgrquit) == 'Ok' then
  49.     setobj FmgrOpt   fmgropt   'prf'
  50.     setobj FmgrSort  fmgrsort  'prf'
  51.     setobj FmgrQuit  fmgrquit  'prf'
  52.  
  53.     // apply changes to all existing fmgr windows
  54.     w = getcurrwin
  55.     while w do
  56.       if wintype? "fmgr" w then
  57.         oldwin = gotowindow w
  58.         oldbuf = gotobuf (getwinbuf)
  59.         oldevent = geteventobj
  60.         eventobject "fmgr"
  61.         fsort _FmgrSort
  62.         send "reopen"
  63.         eventobject oldevent
  64.         gotobuf oldbuf
  65.         gotowindow oldwin
  66.       end
  67.       w = getprevwin w
  68.     end
  69.   end
  70.  
  71.