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

ui.backend.gtk: simplify <window-handle>.

locals-and-roots
John Benediktsson 2016-04-02 09:31:30 -07:00
parent 2cc8b5e7de
commit 2ea3e304cf
1 changed files with 2 additions and 4 deletions
basis/ui/backend/gtk

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

@ -14,12 +14,10 @@ IN: ui.backend.gtk
SINGLETON: gtk-ui-backend
TUPLE: window-handle window fullscreen? im-context ;
TUPLE: window-handle window im-context fullscreen? ;
: <window-handle> ( window im-context -- window-handle )
window-handle new
swap >>im-context
swap >>window ;
f window-handle boa ;
: connect-signal-with-data ( object signal-name callback data -- )
[ utf8 string>alien ] 2dip g_signal_connect drop ;