ui.backend.gtk: add destructor in clipboard-contents

diff --git a/basis/glib/ffi/ffi.factor b/basis/glib/ffi/ffi.factor
index 51fa3af04c5dc85f97acae78b257e3bcae2be580..99183a88dc7ada495357e3a68eadc4ad5766be70 100644 (file)
--- a/basis/glib/ffi/ffi.factor
+++ b/basis/glib/ffi/ffi.factor
@@ -72,6 +72,7 @@ IMPLEMENT-STRUCTS: GPollFD GSource GSourceFuncs ;
 GIR: vocab:glib/GLib-2.0.gir
 
 DESTRUCTOR: g_source_unref
+DESTRUCTOR: g_free
 
 CALLBACK: gboolean GSourceFuncsPrepareFunc ( GSource* source, gint* timeout_ ) ;
 CALLBACK: gboolean GSourceFuncsCheckFunc ( GSource* source ) ;

diff --git a/basis/ui/backend/gtk/gtk.factor b/basis/ui/backend/gtk/gtk.factor
index 3a2835c1b1289c170f37c7d031e4f5403e7fb431..045a75d075ab341e18e1e30661e83db83db74c73 100644 (file)
--- a/basis/ui/backend/gtk/gtk.factor
+++ b/basis/ui/backend/gtk/gtk.factor
@@ -466,7 +466,10 @@ M:: gtk-ui-backend system-alert ( caption text -- )
     [ gtk_widget_destroy ] tri ;
 
 M: gtk-clipboard clipboard-contents
-    handle>> gtk_clipboard_wait_for_text utf8 alien>string ;
+    [
+        handle>> gtk_clipboard_wait_for_text
+        [ &g_free utf8 alien>string ] [ f ] if*
+    ] with-destructors ;
 
 M: gtk-clipboard set-clipboard-contents
     swap [ handle>> ] [ utf8 string>alien ] bi*