home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / AUROR21A.ZIP / CFGFORM.AML < prev    next >
Encoding:
Text File  |  1995-09-01  |  1.3 KB  |  41 lines
  1. /* ------------------------------------------------------------------ */
  2. /* Macro:        CFGFORM.AML                                          */
  3. /* Written by:   nuText Systems                                       */
  4. /*                                                                    */
  5. /* Description:  This macro displays a configuration dialog box for   */
  6. /*               reformatting text.                                   */
  7. /* ------------------------------------------------------------------ */
  8.  
  9.   include bootpath "define.aml"
  10.  
  11.   var formatopt
  12.   var paraopt
  13.  
  14.   // create dialog box
  15.   dialog "Text Reformatting Options" 53 10 "cp"
  16.  
  17.   // default options
  18.   groupbox 'Default Options:' 3 2
  19.     (menu ''
  20.        item " [ ] &Justify both Left and Right     "
  21.        item " [ ] &Keep &Spaces"
  22.        item " [ ] Keep First-Line &Indent/Outdent"
  23.      end) '' _FormatOpt "jkrc"
  24.  
  25.   // paragraph options
  26.   groupbox 'When no Mark:' 3 7
  27.     (menu ''
  28.        item " [ ] Advance &Cursor "
  29.        item " [ ] Format to &End-of-Paragraph Only "
  30.      end) '' _FormatOpt "ce"
  31.  
  32.   // ok/cancel buttons
  33.   button "O&k"    43  3 8
  34.   button "Cancel" 43  5 8
  35.  
  36.   // display dialog box
  37.   if (getdialog ref formatopt ref paraopt) == "Ok" then
  38.     setobj FormatOpt  formatopt + paraopt 'prf'
  39.   end
  40.  
  41.