home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / misc / textra.lzh / textra / scripts / TInfo.textra < prev    next >
Text File  |  1991-08-28  |  1KB  |  66 lines
  1.     /*******************************************************************
  2.      *   TEXTRA AREXX script -- Mike Haas, 1991, All Rights Reserved.  *
  3.      * Freely distributable ONLY as a component of the TEXTRA package. *
  4.      * This banner may not be removed or altered (improvements to the  *
  5.      *    actual program welcome).  Please document and send to me.    *
  6.      *        !!! PLACE THIS FILE IN YOUR REXX: DIRECTORY !!!          *
  7.      *******************************************************************/
  8.  
  9. /* test preferences interface...display current settings */
  10.  
  11. /* Place in rexx: directory, then OPEN A NEW WINDOW (rt-amiga-[) ('cause
  12.  * this script writes into the current window), then
  13.  *
  14.  * into a TEXTRA/AREXX string gadget, type:
  15.  *
  16.  *      tinfo
  17.  *
  18.  */
  19.  
  20. OPTIONS results
  21.  
  22. newline
  23. textn "====== TEXTRA info ======"
  24.  
  25. prefs autoindent read
  26. val = result
  27. text  "AutoIndent         = "
  28. textn val
  29.  
  30. prefs autobackspace read
  31. val = result
  32. text  "AutoBackSpace      = "
  33. textn val
  34.  
  35. prefs PrintPageHeaders read
  36. val = result
  37. text  "Print Page Headers = "
  38. textn val
  39.  
  40. prefs PrintLineNumbers read
  41. val = result
  42. text  "Print Line Numbers = "
  43. textn val
  44.  
  45. prefs ConvertCRLF read
  46. val = result
  47. text  "Convert CRLF to CR = "
  48. textn val
  49.  
  50. prefs TabWidth read
  51. val = result
  52. text  "Current Tab Width  = "
  53. textn val
  54.  
  55. get file name
  56. fn = result
  57. get file path
  58. pn = result
  59. text  "Current window     = "
  60. text pn
  61. textn fn
  62.  
  63. textn "==== End TEXTRA info ===="
  64.  
  65. OPTIONS
  66.