home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / AUROR21A.ZIP / CFGPROM.AML < prev    next >
Text File  |  1995-09-01  |  1KB  |  34 lines
  1. /* ------------------------------------------------------------------ */
  2. /* Macro:        CFGPROM.AML                                          */
  3. /* Written by:   nuText Systems                                       */
  4. /*                                                                    */
  5. /* Description:  This macro displays a configuration dialog box for   */
  6. /*               the default prompt style.                            */
  7. /* ------------------------------------------------------------------ */
  8.  
  9.   include bootpath "define.aml"
  10.  
  11.   var promptstyle
  12.  
  13.   // create dialog box
  14.   dialog "Prompt Style" 37  7 "cp"
  15.  
  16.   // save options group box
  17.   groupbox 'Default Prompt Style:' 3 2
  18.     (menu ''
  19.        item " ( ) &Command Line"
  20.        item " ( ) &One-Line Box "
  21.        item " ( ) &Two-Line Box"
  22.        item " ( ) &Dialog Box"
  23.      end) '' _PromptStyle 'c12d'
  24.  
  25.   // ok/cancel buttons
  26.   button "O&k"    27  3 8
  27.   button "Cancel" 27  5 8
  28.  
  29.   // display dialogbox
  30.   if (getdialog ref promptstyle) == "Ok" then
  31.     setobj PromptStyle  promptstyle   'prf'
  32.   end
  33.  
  34.