Add GtkSearchEntry

1 files changed, 15 insertions, 3 deletions

diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl
index cf11914..e457ee8 100644
--- a/src/Gtk/Widgets.icl
+++ b/src/Gtk/Widgets.icl
@@ -146,18 +146,22 @@ where
 				pure Nothing
 
 instance gtkWidget GtkEntry where gtkWidget (GtkEntry e) = GtkWidget e
+instance gtkEntry GtkEntry where gtkEntry e = e
 
 newEntry :: GtkM GtkEntry
 newEntry =
 	toStateR gtk_entry_new >>= \e ->
 	show (GtkEntry e)
 
-getText :: !GtkEntry -> GtkM String
-getText (GtkEntry e) = toStateR (gtk_entry_get_text e)
+getText :: !e -> GtkM String | gtkEntry e
+getText entry =
+	let (GtkEntry e) = gtkEntry entry in
+	toStateR (gtk_entry_get_text e)
 
 instance tune GtkEntry GtkText
 where
-	tune (Text text) entry=:(GtkEntry e) =
+	tune (Text text) entry =
+		let (GtkEntry e) = gtkEntry entry in
 		toState (gtk_entry_set_text e text) >>|
 		pure entry
 
@@ -354,6 +358,14 @@ where
 		toState (gtk_scrolled_window_set_policy sw (toInt hp) (toInt vp)) >>|
 		pure window
 
+instance gtkWidget GtkSearchEntry where gtkWidget (GtkSearchEntry se) = GtkWidget se
+instance gtkEntry GtkSearchEntry where gtkEntry (GtkSearchEntry se) = GtkEntry se
+
+newSearchEntry :: GtkM GtkSearchEntry
+newSearchEntry =
+	toStateR gtk_search_entry_new >>= \se ->
+	show (GtkSearchEntry se)
+
 instance gtkWidget GtkSeparator where gtkWidget (GtkSeparator s) = GtkWidget s
 
 newSeparator :: !GtkOrientation -> GtkM GtkSeparator