          Using CCA to Access the OS/2 Clipboard from WordStar 7

While WordStar 7 can use the Win3x and Win4x clipboard (Windows Enhanced 
Mode), it cannot access the OS/2 Clipboard.  The following macros and Rexx 
scripts get around that limitation.

To use them one needs three programs which can be downloaded from Hobbes or 
LEO.  Two are freeware (both included); Dr. A. Olowofoyeku's, of Keele University, England, RUN-OS/2 (v1.10 on Hobbes, v.1,60 on LEO) and Roddy Collin's SwitchTo.  The second is shareware; Don Hawkinson's Command line Clipboard Access 1.12.  On LEO the OS/2 System Tools are found at:

	http://archiv.leo.org/pub/comp/os/os2/leo/systools/

Run-OS/2 lets one start OS/2 programs from a DOS command line.  CCA allows one to copy a file and from the OS/2 Clipboard.  SwitchTo returns one to return to the WordStar VDM session after running FromClip.

The Rexx scripts and the macros need to be modified for location of these 
files.  I keep them in a folder called UtilOS2.

Place the Rexx scripts and macros in the WordStar 7 macro folder and assign 
keystrokes to them.  Modify the WordStar folder information to reflect your 
installation.  If one is using Run-OS/2 version 1.6, the nature of the ToClip and FromClip sessions can be defined (for example: foreground, background, windowed, full screen.)

                         ----------------
                           To ClipBoard
                         ----------------

To copy text to the OS/2 clipboard, mark the text using ^KB and ^KK.  Then run 
ToClip.WSM:

============

Sub Main
    AutoRestore(ON)
    SetHelpLevel(4)
    Insert(ON)
    CmdTags(OFF)
    HideDots(ON)
    ColMode(OFF)
    ColReplace(OFF)
    Key("{Ctrl+K}w")
    Key("c:\temp\ws2clip.txt{Tab}")
    Key("A")
    Key("{Enter}")
    Key("{Ctrl+K}f")
    Key("c:\utilos2\run c:\ws\macros\ToClip.cmd{Enter}")
    Key("  ")
End Sub

============

Using the blocked text, the macro creates a text file in the Temp folder, then runs the ToClip.CMD Rexx script.

============

/* Philip Griffin-Allwood              */
/* Rexx script for use with ToClip.WSM */

   'c:\utilos2\cca_112\toclip.exe < c:\temp\ws2clip.txt'
   'del c:\temp\ws2clip.txt'

/* This line is optional                                                   */
/* It opens the Clip Viewer to confirm that the action has been successful */

   'e:\os2\clipos2.exe'

============

The Rexx script runs the CCA ToClip.EXE or ToClip2.EXE (depending on which 
works best on your system) and load the text created in the temporary folder 
onto/into the OS/2 Clipboard.  The temporary file created by ToClip.WSM is 
deleted.

The Rexx script concludes by opening the ClipBoard Viewer.  I do this to make sure the action has taken place.  I have found some OS/2 programs will lock the ClipBoard and stop the action.  Closing the offending program will clear the problem.

                         ----------------
                          From ClipBoard
                         ----------------

To read information from the OS/2 ClipBoard into a WordStar 7 document, run 
the FromClip.WSM.

============

Sub Main
    AutoRestore(ON)
    SetHelpLevel(4)
    Insert(ON)
    CmdTags(OFF)
    HideDots(ON)
    ColMode(OFF)
    ColReplace(OFF)
    Key("{Ctrl+K}f")
    Key("c:\utilos2\run c:\ws\macros\FromClip.cmd{Enter}")
    Key(" ")
    PauseForInput ("{ENTER}", ' Wait for FromClip.CMD. ')
    Key("{Ctrl+K}r")
    Key("c:\temp\clip2ws.txt{Enter}")
    Key("{Ctrl+K}{Ctrl+J}")
    Key("c:\temp\clip2ws.txt{Enter}")
       IfException
       ACK: Key("{Enter}")
       End IfException
End Sub

============

The macro runs the FromClip.CMD Rexx script and pauses.

============

/* Philip Griffin-Allwood                */
/* Rexx script for use with FromClip.WSM */

   'c:\utilos2\cca_112\fclip2.exe > c:\temp\clip2ws.txt'
   'c:\utilos2\switchto.exe WS.EXE'

============

The Rexx script runs CCA's FromClip.EXE to copy text on the ClipBoard to a 
file in the Temp folder.  When the script finishes by using SwitchTo.EXE to 
return to the WordStar VDM.  Note SwitchTo requires a case sensitive program 
name.

Once back in the WordStar VDM, press <Enter> to have the macro insert the file created by the Rexx script into the WordStar 7 document.  The temporary file is deleted by the WordStar macro.

Philip G. A. Griffin-Allwood
pgaga@auracom.com
