Mnemonics "O"

From CometWiki

(Difference between revisions)
Jump to: navigation, search
m (Page was formatted horribly -- re did page layout)
m (Used the wiki table formatting syntax)
 
Line 1: Line 1:
== (Open Clipboard)==
== (Open Clipboard)==
-
<table cellpadding=5 cellspacing=2>
+
{| cellpadding=5 cellspacing=2
-
<td>'''Mnemonic:'''</td><td>''' (OpenClipboard)'''</td>
+
|'''Mnemonic:'''
-
</tr>
+
|''' (OpenClipboard)'''
-
<tr>
+
|-
-
<td>
+
|
'''Discussion:'''
'''Discussion:'''
-
<td>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.
+
|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.
-
</td>
+
|-
-
<tr>
+
|
-
<td>
+
'''Note:'''
'''Note:'''
-
<td>(OpenClipboard) is currently supported only in Comet32 and only when using the "X00", system device for clipboard access as demonstrated below.
+
|(OpenClipboard) is currently supported only in Comet32 and only when using the "X00", system device for clipboard access as demonstrated below.
-
</tr>
+
|-
-
<tr>
+
|'''Example:'''
-
<td>
+
|
-
'''Example:'''
+
-
<td>
+
  Length  254 & Local RESULT$      ! Define a variable
  Length  254 & Local RESULT$      ! Define a variable
  Length 10.0 & Local ClipErr
  Length 10.0 & Local ClipErr
Line 28: Line 25:
   If (ClipErr EQ 5) Goto TryClipboardOpen  ! This error indicates that the clipboard is in use
   If (ClipErr EQ 5) Goto TryClipboardOpen  ! This error indicates that the clipboard is in use
   If (ClipErr NE 0) Goto ErrExit
   If (ClipErr NE 0) Goto ErrExit
-
 
+
   
-
  !
+
  Do other clipboard operations
-
! Do other clipboard operations
+
   
-
  !
+
  Print (1) (CloseClipboard)     ! We're done - close the clipboard
-
 
+
  Close (1)                       ! Close system driver
-
  Print (1) (CloseClipboard)       ! We're done - close the clipboard
+
  Goto Exit
-
  Close (1)                         ! Close system driver
+
-
  Goto Exit
+
   
   
  ErrExit:
  ErrExit:
Line 41: Line 36:
  Exit:
  Exit:
   Stop
   Stop
-
</table>
+
|}

Latest revision as of 16:47, 28 November 2010

(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:
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
Personal tools