home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / AUROR21A.ZIP / CFGDESK.AML < prev    next >
Text File  |  1995-09-01  |  2KB  |  59 lines
  1. /* ------------------------------------------------------------------ */
  2. /* Macro:        CFGDESK.AML                                          */
  3. /* Written by:   nuText Systems                                       */
  4. /*                                                                    */
  5. /* Description:  This macro displays a configuration dialog box for   */
  6. /*               desktop options.                                     */
  7. /* ------------------------------------------------------------------ */
  8.  
  9.   include bootpath "define.aml"
  10.  
  11.   var bootopt
  12.   var options
  13.  
  14.   // create dialog box
  15.   dialog "Desktop Options" 61 14 "cp"
  16.  
  17.   // boot options
  18.   groupbox 'When starting the editor with no filespec:' 3 2
  19.     (menu ''
  20.        item " ( ) &Display the Last Desktop"
  21.        item " ( ) Display the &File Manager"
  22.        item " ( ) Edit a &New File"
  23.        item " ( ) Display an &Open Prompt"
  24.      end) '' _BootOpt "dfno"
  25.  
  26.   // other options
  27.   groupbox 'Other Options:' 3 8
  28.     (menu ''
  29.        item " [ ] &Remember Window Positions and Settings"
  30.        item " [ ] Remember Dialog &Box and Named Popup Menu Positions "
  31.        item " [ ] &Save Window Positions and History on Exit"
  32.        item " [ ] Save Key &Macros on Exit"
  33.        item " [ ] Display Open &Prompt on Exit"
  34.      end) '' (if? _SavePosition == 'y' 'a') + (if? _SaveDialog  == 'y' 'b') +
  35.              (if? _SaveHistory  == 'y' 'c') + (if? _SaveMac     == 'y' 'd') +
  36.              (if? _ExitOpen     == 'y' 'e')
  37.              'abcde'
  38.  
  39.   // ok/cancel buttons
  40.   button "O&k"    51  3 8
  41.   button "Cancel" 51  5 8
  42.  
  43.   // display dialog box
  44.   if (getdialog ref bootopt ref options) == 'Ok' then
  45.  
  46.     setobj BootOpt      bootopt     'prf'
  47.     setobj SavePosition (if? (pos 'a' options) 'y' 'n')  'prf'
  48.     setobj SaveDialog   (if? (pos 'b' options) 'y' 'n')  'prf'
  49.     setobj SaveHistory  (if? (pos 'c' options) 'y' 'n')  'prf'
  50.     setobj SaveMac      (if? (pos 'd' options) 'y' 'n')  'prf'
  51.     setobj ExitOpen     (if? (pos 'e' options) 'y' 'n')  'prf'
  52.  
  53.     // turn savedialog off if saveposition is off
  54.     if _SavePosition <> 'y' then
  55.       setobj SaveDialog 'n' 'prf'
  56.     end
  57.   end
  58.  
  59.