Fix clipboard bugs

diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor
index bda9938f8a97e838f78f50f827a1fc8f03fa060f..55622503b64a0b689da172073c377ea8b34dc6ba 100755 (executable)
--- a/basis/ui/gadgets/editors/editors.factor
+++ b/basis/ui/gadgets/editors/editors.factor
@@ -8,7 +8,8 @@ continuations ui.clipboards ui.commands ui.gadgets ui.gadgets.borders
 ui.gadgets.buttons ui.gadgets.labels ui.gadgets.scrollers
 ui.gadgets.menus ui.gadgets.wrappers ui.render ui.pens.solid
 ui.gadgets.line-support ui.text ui.gestures ui.baseline-alignment
-math.rectangles splitting unicode.categories fonts grouping ;
+math.rectangles splitting unicode.categories grouping ;
+EXCLUDE: fonts => selection ;
 IN: ui.gadgets.editors
 
 TUPLE: editor < line-gadget

diff --git a/basis/x11/clipboard/clipboard.factor b/basis/x11/clipboard/clipboard.factor
index 8375636a72e64dc4d6ba0f2cff3ea89b207e2e3b..87b91624afb922eb4a86065e540ecf23df4249b5 100644 (file)
--- a/basis/x11/clipboard/clipboard.factor
+++ b/basis/x11/clipboard/clipboard.factor
@@ -26,7 +26,7 @@ TUPLE: x-clipboard atom contents ;
     CurrentTime XConvertSelection drop ;
 
 : snarf-property ( prop-return -- string )
-    dup *void* [ *void* ascii alien>string ] [ drop f ] if ;
+    dup *void* [ *void* utf8 alien>string ] [ drop f ] if ;
 
 : window-property ( win prop delete? -- string )
     [ [ dpy get ] 2dip 0 -1 ] dip AnyPropertyType
@@ -37,7 +37,7 @@ TUPLE: x-clipboard atom contents ;
     swap XSelectionEvent-property zero? [
         drop f
     ] [
-        selection-property 1 window-property utf8 decode
+        selection-property 1 window-property
     ] if ;
 
 : own-selection ( prop win -- )