home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / AUROR21A.ZIP / CFGMARG.AML < prev    next >
Text File  |  1995-09-01  |  1KB  |  38 lines
  1. /* ------------------------------------------------------------------ */
  2. /* Macro:        CFGMARG.AML                                          */
  3. /* Written by:   nuText Systems                                       */
  4. /*                                                                    */
  5. /* Description:  This macro provides support for configuring          */
  6. /*               margin and tab settings.                             */
  7. /* ------------------------------------------------------------------ */
  8.  
  9.   include bootpath "define.aml"
  10.  
  11.   var lmargin
  12.   var rmargin
  13.   var tabwidth
  14.   var vartabs
  15.  
  16.   // create dialog box
  17.   dialog "Margins and Tabs" 36  9 "cp"
  18.  
  19.   // edit fields
  20.   field "&Left Margin:   >"   3  2  5 _LMargin
  21.   field "&Right Margin:  >"   3  3  5 _RMargin
  22.  
  23.   field "&Tab Width:     >"   3  5  5 _TabWidth
  24.   field "&Variable Tabs:  "   3  7 31 _VarTabs
  25.  
  26.   // ok/cancel buttons
  27.   button "O&k"    26 2 8
  28.   button "Cancel" 26 4 8
  29.  
  30.   // display dialogbox
  31.   if (getdialog ref lmargin  ref rmargin
  32.                 ref tabwidth ref vartabs) == 'Ok' then
  33.     setobj LMargin  lmargin  'prf'
  34.     setobj RMargin  rmargin  'prf'
  35.     setobj TabWidth tabwidth 'prf'
  36.     setobj VarTabs  vartabs  'prf'
  37.   end
  38.