From 9618e5bb7a189af1ee9bc5bda0588face013b2f1 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 27 Jan 2020 08:17:47 +0100
Subject: Add support for populate-popup signal

---
 src/Gtk/Widgets.icl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Gtk/Widgets.icl')

diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl
index 34d0065..6b0e77c 100644
--- a/src/Gtk/Widgets.icl
+++ b/src/Gtk/Widgets.icl
@@ -311,6 +311,7 @@ swapItems a b (GtkListStore s) =
 :: GtkMenu =: GtkMenu Pointer
 
 instance gtkWidget GtkMenu where gtkWidget (GtkMenu m) = GtkWidget m
+instance gtkCast GtkMenu where gtkCast p = GtkMenu p
 
 newMenu :: GtkM GtkMenu
 newMenu =
-- 
cgit v1.2.3