]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/x11/clipboard/clipboard.factor
Remove usages of <void*> and *void*
[factor.git] / basis / x11 / clipboard / clipboard.factor
index 290c3e6aa338be2bdecc4e5b2344d2ab5a55f668..a711da5580306c54aecae134bfe9939f9b9bfcc5 100644 (file)
@@ -28,11 +28,11 @@ TUPLE: x-clipboard atom contents ;
     CurrentTime XConvertSelection drop ;
 
 : snarf-property ( prop-return -- string )
-    dup *void* [ *void* utf8 alien>string ] [ drop f ] if ;
+    dup void* deref [ void* deref utf8 alien>string ] [ drop f ] if ;
 
 : window-property ( win prop delete? -- string )
     [ [ dpy get ] 2dip 0 -1 ] dip AnyPropertyType
-    0 <Atom> 0 int <ref> 0 <ulong> 0 <ulong> f <void*>
+    0 <Atom> 0 int <ref> 0 ulong <ref> 0 ulong <ref> f void* <ref>
     [ XGetWindowProperty drop ] keep snarf-property ;
 
 : selection-from-event ( event window -- string )