diff options
Diffstat (limited to 'osclipboard.dcl')
| -rw-r--r-- | osclipboard.dcl | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/osclipboard.dcl b/osclipboard.dcl new file mode 100644 index 0000000..49fe1b0 --- /dev/null +++ b/osclipboard.dcl @@ -0,0 +1,33 @@ +definition module osclipboard
+
+// Clean Object I/O library, version 1.2
+
+// Clipboard operations.
+
+import ostoolbox
+from clipboardCrossCall_12 import CF_TEXT
+
+
+:: OSClipboardItemType
+ :== Int
+OSClipboardText
+ :== CF_TEXT
+
+osInitialiseClipboard :: !*OSToolbox -> *OSToolbox
+// osInitialiseClipboard should be evaluated before any of the functions below.
+
+osHasClipboardText :: !*OSToolbox -> (!Bool,!*OSToolbox)
+// osHasClipboardText checks whether the clipboard currently contains a text item.
+
+osSetClipboardText :: !{#Char} !*OSToolbox -> *OSToolbox
+// osSetClipboardText empties the clipboard and sets the text to the clipboard.
+// The return Int is the new version number.
+
+osGetClipboardText :: !*OSToolbox -> (!{#Char},!*OSToolbox)
+// osGetClipboardText retrieves the current clipboard text item, which is empty if not present.
+
+osGetClipboardContent :: !*OSToolbox -> (![OSClipboardItemType],!*OSToolbox)
+// osGetClipboardContent retrieves the current item types that are stored in the clipboard.
+
+osGetClipboardVersion :: !Int !*OSToolbox -> (!Int,!*OSToolbox)
+// osGetClipboardVersion given the previous version number returns the new, current version number.
|