blob: 2a573584ed845b25b7653ca0e2a3119ba2a9c607 (
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
34
35
36
|
implementation module osclipboard
// Clipboard operations.
import StdInt
import clipboardCrossCall_12
:: OSClipboardItemType
:== Int
OSClipboardText
:== CF_TEXT
osInitialiseClipboard :: !*OSToolbox -> *OSToolbox
osInitialiseClipboard tb
= winInitialiseClipboard tb
osHasClipboardText :: !*OSToolbox -> (!Bool,!*OSToolbox)
osHasClipboardText tb
= winHasClipboardText tb
osSetClipboardText :: !{#Char} !*OSToolbox -> *OSToolbox
osSetClipboardText text tb
= winSetClipboardText text tb
osGetClipboardText :: !*OSToolbox -> (!{#Char},!*OSToolbox)
osGetClipboardText tb
= winGetClipboardText tb
osGetClipboardContent :: !*OSToolbox -> (![OSClipboardItemType],!*OSToolbox)
osGetClipboardContent tb
# (hasText,tb) = winHasClipboardText tb
= (if hasText [OSClipboardText] [],tb)
osGetClipboardVersion :: !Int !*OSToolbox -> (!Int,!*OSToolbox)
osGetClipboardVersion nr tb
= winGetClipboardCount tb
|
