home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / texed133.zip / Deutsch.zip / WordWrap.cmd < prev   
OS/2 REXX Batch file  |  1995-07-10  |  2KB  |  38 lines
  1. /***************************************************************************/
  2. /*                                                                         */
  3. /*  WordWrap.cmd                                                           */
  4. /*  ════════════                                                           */
  5. /*                                                                         */
  6. /*  Beispielmakro, daß das Potential der Rexx-Schnittstelle erkennen       */
  7. /*  läßt. Es schaltet den Zeilenumbruch im aktuellen Fenster, abhängig     */
  8. /*  von der vorherigen Einstellung um.                                     */
  9. /*                                                                         */
  10. /***************************************************************************/
  11.  
  12.  
  13.  
  14.  
  15. /***************************************************************************/
  16. /* Auslesen der aktuellen Einstellung von WordWrap in die Variable WW      */
  17.  
  18. WW = VRGet( "MLE_1", "WordWrap" )
  19.  
  20. /***************************************************************************/
  21. /* Umstellen von WW auf den jeweils anderen Wert                           */
  22.  
  23. if WW = 1 then WW = 0
  24. else WW = 1
  25.  
  26. /***************************************************************************/
  27. /* Setzen von WordWrap auf den zuvor bestimmten Wert                       */
  28.  
  29. ok = VRSet( "MLE_1", "WordWrap", WW )
  30.  
  31. /***************************************************************************/
  32. /* Ausgeben einer Meldung über den Erfolg der Aktion                       */
  33.  
  34. if ok = 1 then 
  35.    id = VRMessage( VRWindow(), "WordWrap wurde erfolgreich umgestellt", "WordWrap Makro", "Information", , ,  )
  36. else
  37.    id = VRMessage( VRWindow(), "WordWrap konnte nicht umgestellt werden", "WordWrap Makro", "Error", , ,  )
  38.