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

/* ------------------------------------------------------------------ */
/* Macro: CFGEDIT1.AML */
/* Written by: nuText Systems */
/* */
/* Description: This macro displays a configuration dialog box for */
/* edit options 1. */
/* ------------------------------------------------------------------ */

include bootpath "define.aml"

var defset
var undosiz
var clipname
var linestyle

// create dialog box
dialog "Edit Options 1" 63 15 "cp"

// default edit settings group box
groupbox 'Default Edit Settings:' 3 2
(menu ''
item " [ ] &Autoindent"
item " [ ] &Backup"
item " [ ] &Draw Mode"
item " [ ] &Insert Mode"
item " [ ] &Live Word Wrap"
item " [ ] &Match Character"
item " [ ] &Smart Tabs"
item " [ ] &Translate"
item " [ ] &Undo Enabled"
item " [ ] &Variable Tabs"
item " [ ] Standard &Word Wrap"
item " [ ] Synta&x Highlighting "
end) '' _DefaultSet "abdilmstuvwx"

// edit fields
field "Undo Si&ze:" 31 2 18 _UndoSize
field "Default &Clipboard:" 31 5 18 _ClipName

// default linestyle
groupbox 'Default Line Style:' 31 9
(menu ''
item " ( ) &Single ÚÄÄ¿ "
item " ( ) Double &Horizontal ÕÍ͸"
item " ( ) Double &Vertical ÖÄÄ·"
item " ( ) &Double ÉÍÍ»"
item " ( ) &Eraser"
end) '' _LineStyle "01234"

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

// display dialog box
if (getdialog ref defset ref undosiz ref clipname
ref linestyle) == 'Ok' then
setobj DefaultSet defset 'prf'
setobj UndoSize undosiz 'prf' // requires re-entry
setobj ClipName clipname 'prf'
setobj LineStyle linestyle 'prf'
end