From 2ea3e304cfcba5a8e31a97c5e652ccd7fbe1c4d7 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 2 Apr 2016 09:31:30 -0700
Subject: [PATCH] ui.backend.gtk: simplify <window-handle>.
---
basis/ui/backend/gtk/gtk.factor | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/basis/ui/backend/gtk/gtk.factor b/basis/ui/backend/gtk/gtk.factor
index 23d53b9211..c5e8667dbb 100644
--- a/basis/ui/backend/gtk/gtk.factor
+++ b/basis/ui/backend/gtk/gtk.factor
@@ -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 ;