home *** CD-ROM | disk | FTP | other *** search
/ Bila Vrana / BILA_VRANA.iso / 028A / AUROR.ZIP / CFGDESK.AML < prev    next >
Text File  |  1996-07-17  |  2KB  |  57 lines
  1. //--------------------------------------------------------------------
  2. // The Aurora Editor v3.0, Copyright (C) 1993-1996 nuText Systems
  3. //
  4. // CFGDESK.AML
  5. // Configuration for Desktop Options
  6. //--------------------------------------------------------------------
  7.  
  8. include bootpath "define.aml"
  9.  
  10. variable bootopt, options
  11.  
  12. // create dialog box
  13. dialog "Desktop Options" 58 15 "cp"
  14.  
  15. // boot options
  16. groupbox 'When starting the editor with no filespec:' 3 2
  17.   (menu ''
  18.      item " ( ) &Display the Last Desktop"
  19.      item " ( ) Display the &File Manager"
  20.      item " ( ) Edit a &New File"
  21.      item " ( ) Display an &Open Prompt"
  22.      item " ( ) Display a Directory &Tree"
  23.    end) '' _BootOpt "dfnot"
  24.  
  25. // other options
  26. groupbox 'Other Options:' 3 9
  27.   (menu ''
  28.      item " [ ] &Remember Window Positions and Settings"
  29.      item " [ ] Remember Dialog &Box and Popup Menu Positions    "
  30.      item " [ ] &Save Window Positions and History on Exit"
  31.      item " [ ] Save Key &Macros on Exit"
  32.      item " [ ] Display Open &Prompt on Exit"
  33.    end) '' (if? _SavePosition == 'y' 'a') + (if? _SaveDialog  == 'y' 'b') +
  34.            (if? _SaveHistory  == 'y' 'c') + (if? _SaveMac     == 'y' 'd') +
  35.            (if? _ExitOpen     == 'y' 'e')
  36.            'abcde'
  37.  
  38. // ok/cancel buttons
  39. button "O&k"    48  3 8
  40. button "Cancel" 48  5 8
  41.  
  42. // display dialog box
  43. if (getdialog ref bootopt ref options) == 'Ok' then
  44.  
  45.   prf.BootOpt      = bootopt
  46.   prf.SavePosition = if? (pos 'a' options) 'y' 'n'
  47.   prf.SaveDialog   = if? (pos 'b' options) 'y' 'n'
  48.   prf.SaveHistory  = if? (pos 'c' options) 'y' 'n'
  49.   prf.SaveMac      = if? (pos 'd' options) 'y' 'n'
  50.   prf.ExitOpen     = if? (pos 'e' options) 'y' 'n'
  51.  
  52.   // turn savedialog off if saveposition is off
  53.   if _SavePosition <> 'y' then
  54.     prf.SaveDialog = 'n'
  55.   end
  56. end
  57.