blob: 49fe1b0a693cc0635a41d501f91684b90b6bd06c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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.
|
