Mnemonics "O"

From CometWiki

(Open Clipboard)

Mnemonic: (OpenClipboard)
Discussion:  This mnemonic was added (along with CloseClipboard) to solve the
          problem where the clipboard may be unavailable because it is in
          use by another program (the clipboard can be opened by only one 
          program at a time). If the clipboard was already in use the other
          clipboard functions would fail. Using this mnemonic you can ensure
          that the clipboard is available and remains open while you complete
          your desired operation.

Note: (OpenClipboard) is currently supported only in Comet32 and only when using
      the "X00", system device for clipboard access as demonstrated below.

Example 1:  LENGTH 254 & LOCAL RESULT$       ! Define a variable
Length 10.0 & Local ClipErr
.
.
.
Open (1) "X00"                   ! Open system driver

TryClipboardOpen:
  Print (1) (OpenClipboard)        ! Copy data from clipboard
  Input (1) Result$                ! to this variable

  ClipErr = IHexDec(Result$)
  If (ClipErr EQ 5) Goto TryClipboardOpen   ! This error indicates that the clipboard is in use
  If (ClipErr NE 0) Goto ErrExit
.
. Do other clipboard operations
.
  Print (1) (CloseClipboard)     ! We're done - close the clipboard
Close (1)                        ! Close system driver
Goto Exit

ErrExit:
  Print "Error opening clipboard: ";ClipErr

Exit:
  Stop