diff options
| author | Camil Staps | 2015-07-01 17:36:37 +0200 |
|---|---|---|
| committer | Camil Staps | 2015-07-01 17:36:37 +0200 |
| commit | 7553b7f9d4dddc2235c137d41de8ce22547bebe3 (patch) | |
| tree | 34f8fb4b36640317d728a60586424f67f9befbe7 /osclipboard.icl | |
| parent | gitignore (diff) | |
Initial commit
Diffstat (limited to 'osclipboard.icl')
| -rw-r--r-- | osclipboard.icl | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/osclipboard.icl b/osclipboard.icl new file mode 100644 index 0000000..2a57358 --- /dev/null +++ b/osclipboard.icl @@ -0,0 +1,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
|