home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / utilities / editors / textra / scripts / tinfo.textra < prev    next >
Text File  |  1992-07-20  |  2KB  |  71 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. openfile '"'"ram disk:Textra Information"'"'
  23. if result == 0 then  do
  24.     notify "Can't open window"; exit
  25. end
  26.  
  27. newline
  28. textn "====== TEXTRA info ======"
  29.  
  30. prefs autoindent read
  31. val = result
  32. text  "AutoIndent         = "
  33. textn val
  34.  
  35. prefs autobackspace read
  36. val = result
  37. text  "AutoBackSpace      = "
  38. textn val
  39.  
  40. prefs PrintPageHeaders read
  41. val = result
  42. text  "Print Page Headers = "
  43. textn val
  44.  
  45. prefs PrintLineNumbers read
  46. val = result
  47. text  "Print Line Numbers = "
  48. textn val
  49.  
  50. prefs ConvertCRLF read
  51. val = result
  52. text  "Convert CRLF to CR = "
  53. textn val
  54.  
  55. prefs TabWidth read
  56. val = result
  57. text  "Current Tab Width  = "
  58. textn val
  59.  
  60. get file name
  61. fn = result
  62. get file path
  63. pn = result
  64. text  "Current window     = "
  65. text pn
  66. textn fn
  67.  
  68. textn "==== End TEXTRA info ===="
  69.  
  70. OPTIONS
  71.