steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Anton Gorenko 2010-06-13 16:18:51 +06:00
parent 205aa25865
commit 95d9002e73
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/glib/ffi/ffi.factor
View File

@ -72,6 +72,7 @@ IMPLEMENT-STRUCTS: GPollFD GSource GSourceFuncs ;
GIR: vocab:glib/GLib-2.0.gir GIR: vocab:glib/GLib-2.0.gir
DESTRUCTOR: g_source_unref DESTRUCTOR: g_source_unref
DESTRUCTOR: g_free
CALLBACK: gboolean GSourceFuncsPrepareFunc ( GSource* source, gint* timeout_ ) ; CALLBACK: gboolean GSourceFuncsPrepareFunc ( GSource* source, gint* timeout_ ) ;
CALLBACK: gboolean GSourceFuncsCheckFunc ( GSource* source ) ; CALLBACK: gboolean GSourceFuncsCheckFunc ( GSource* source ) ;

5
basis/ui/backend/gtk/gtk.factor
View File

@ -466,7 +466,10 @@ M:: gtk-ui-backend system-alert ( caption text -- )
[ gtk_widget_destroy ] tri ; [ gtk_widget_destroy ] tri ;
M: gtk-clipboard clipboard-contents 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 M: gtk-clipboard set-clipboard-contents
swap [ handle>> ] [ utf8 string>alien ] bi* swap [ handle>> ] [ utf8 string>alien ] bi*