Category : Recently Uploaded Files
Archive   : AURORA21.ZIP
Filename : CFGDESK.AML

 
Output of file : CFGDESK.AML contained in archive : AURORA21.ZIP
/* ------------------------------------------------------------------ */
/* Macro: CFGDESK.AML */
/* Written by: nuText Systems */
/* */
/* Description: This macro displays a configuration dialog box for */
/* desktop options. */
/* ------------------------------------------------------------------ */

include bootpath "define.aml"

var bootopt
var options

// create dialog box
dialog "Desktop Options" 61 14 "cp"

// boot options
groupbox 'When starting the editor with no filespec:' 3 2
(menu ''
item " ( ) &Display the Last Desktop"
item " ( ) Display the &File Manager"
item " ( ) Edit a &New File"
item " ( ) Display an &Open Prompt"
end) '' _BootOpt "dfno"

// other options
groupbox 'Other Options:' 3 8
(menu ''
item " [ ] &Remember Window Positions and Settings"
item " [ ] Remember Dialog &Box and Named Popup Menu Positions "
item " [ ] &Save Window Positions and History on Exit"
item " [ ] Save Key &Macros on Exit"
item " [ ] Display Open &Prompt on Exit"
end) '' (if? _SavePosition == 'y' 'a') + (if? _SaveDialog == 'y' 'b') +
(if? _SaveHistory == 'y' 'c') + (if? _SaveMac == 'y' 'd') +
(if? _ExitOpen == 'y' 'e')
'abcde'

// ok/cancel buttons
button "O&k" 51 3 8
button "Cancel" 51 5 8

// display dialog box
if (getdialog ref bootopt ref options) == 'Ok' then

setobj BootOpt bootopt 'prf'
setobj SavePosition (if? (pos 'a' options) 'y' 'n') 'prf'
setobj SaveDialog (if? (pos 'b' options) 'y' 'n') 'prf'
setobj SaveHistory (if? (pos 'c' options) 'y' 'n') 'prf'
setobj SaveMac (if? (pos 'd' options) 'y' 'n') 'prf'
setobj ExitOpen (if? (pos 'e' options) 'y' 'n') 'prf'

// turn savedialog off if saveposition is off
if _SavePosition <> 'y' then
setobj SaveDialog 'n' 'prf'
end
end



  3 Responses to “Category : Recently Uploaded Files
Archive   : AURORA21.ZIP
Filename : CFGDESK.AML

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/