From 79915057437b92095ed44667c269c8650a77a298 Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Wed, 30 Oct 2019 13:21:06 +0100 Subject: Add GdkEvent and KeyPressHandler --- src/Gtk/Widgets.icl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Gtk/Widgets.icl') diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl index ff162cd..db69b81 100644 --- a/src/Gtk/Widgets.icl +++ b/src/Gtk/Widgets.icl @@ -12,6 +12,7 @@ from Text import class Text(split), instance Text String import qualified Text import Gtk +import Gdk.Internal import Gtk.Internal newAccelGroup :: !w -> GtkM GtkAccelGroup | gtkWindow w @@ -568,7 +569,7 @@ instance gtkWidget GtkWindow where gtkWidget (GtkWindow w) = GtkWidget w instance gtkContainer GtkWindow where gtkContainer (GtkWindow w) = GtkContainer w instance gtkWindow GtkWindow where gtkWindow w = w -newPopup :: -> GtkM GtkWindow +newPopup :: GtkM GtkWindow newPopup = new_window_or_popup True newWindow :: GtkM GtkWindow -- cgit v1.2.3