home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 24
/
CD_ASCQ_24_0995.iso
/
dos
/
tools
/
aurora21
/
cfgsort.aml
< prev
next >
Wrap
Text File
|
1995-08-10
|
1KB
|
41 lines
/* ------------------------------------------------------------------ */
/* Macro: CFGSORT.AML */
/* Written by: nuText Systems */
/* */
/* Description: This macro displays a configuration dialog box for */
/* sorting blocks. */
/* ------------------------------------------------------------------ */
include bootpath "define.aml"
var sortorder
var sortcase
// create dialog box
dialog "Sort Options" 38 9 "cp"
// sort order group box
groupbox 'Sort Order:' 3 2
(menu ''
item " ( ) &Ascending"
item " ( ) &Descending "
end) '' _SortOpt 'ad'
// case options group box
groupbox 'Sort Case:' 3 6
(menu ''
item " ( ) &Case Sensitive"
item " ( ) Case &Insensitive "
end) '' _SortOpt 'ci'
// ok/cancel buttons
button "O&k" 28 3 8
button "Cancel" 28 5 8
// display dialogbox
if (getdialog ref sortorder ref sortcase) == "Ok" then
setobj SortOpt sortorder + sortcase 'prf'
return TRUE
end