home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / texed133.zip / English.zip / WordWrap.cmd < prev   
OS/2 REXX Batch file  |  1995-09-19  |  2KB  |  36 lines
  1. /***************************************************************************/
  2. /*                                                                         */
  3. /*  WordWrap.cmd                                                           */
  4. /*  ════════════                                                           */
  5. /*                                                                         */
  6. /*  This sample macro tongles the wordwrap in the current editor window    */
  7. /*                                                                         */
  8. /***************************************************************************/
  9.  
  10.  
  11.  
  12.  
  13. /***************************************************************************/
  14. /* Get the current setting for wordwrap                                    */
  15.  
  16. WW = VRGet( "MLE_1", "WordWrap" )
  17.  
  18. /***************************************************************************/
  19. /* Change the variable WW                                                  */
  20.  
  21. if WW = 1 then WW = 0
  22. else WW = 1
  23.  
  24. /***************************************************************************/
  25. /* Set the new WordWrap variable WW                                        */
  26.  
  27. ok = VRSet( "MLE_1", "WordWrap", WW )
  28.  
  29. /***************************************************************************/
  30. /* Send a message                                                          */
  31.  
  32. if ok = 1 then
  33.    id = VRMessage( VRWindow(), "WordWrap has been changed", "WordWrap Macro", "Information", , ,  )
  34. else
  35.    id = VRMessage( VRWindow(), "WordWrap could not be changed", "WordWrap Macro", "Error", , ,  )
  36.