home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 5 Edit
/
05-Edit.zip
/
texed133.zip
/
Deutsch.zip
/
WordWrap.cmd
< prev
Wrap
OS/2 REXX Batch file
|
1995-07-10
|
2KB
|
38 lines
/***************************************************************************/
/* */
/* WordWrap.cmd */
/* ════════════ */
/* */
/* Beispielmakro, daß das Potential der Rexx-Schnittstelle erkennen */
/* läßt. Es schaltet den Zeilenumbruch im aktuellen Fenster, abhängig */
/* von der vorherigen Einstellung um. */
/* */
/***************************************************************************/
/***************************************************************************/
/* Auslesen der aktuellen Einstellung von WordWrap in die Variable WW */
WW = VRGet( "MLE_1", "WordWrap" )
/***************************************************************************/
/* Umstellen von WW auf den jeweils anderen Wert */
if WW = 1 then WW = 0
else WW = 1
/***************************************************************************/
/* Setzen von WordWrap auf den zuvor bestimmten Wert */
ok = VRSet( "MLE_1", "WordWrap", WW )
/***************************************************************************/
/* Ausgeben einer Meldung über den Erfolg der Aktion */
if ok = 1 then
id = VRMessage( VRWindow(), "WordWrap wurde erfolgreich umgestellt", "WordWrap Makro", "Information", , , )
else
id = VRMessage( VRWindow(), "WordWrap konnte nicht umgestellt werden", "WordWrap Makro", "Error", , , )