Use newtypes in Gtk.Widgets to support new overlapping instance detection algorithm in the compiler; add GtkEntry and instance tune w (GtkExpand,GtkExpand) | gtkWidget w

1 files changed, 33 insertions, 0 deletions

diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl
index 976e6c3..380e73f 100644
--- a/src/Gtk/Internal.icl
+++ b/src/Gtk/Internal.icl
@@ -144,6 +144,29 @@ gtk_dialog_set_modal dialog setting env = code {
 	ccall gtk_dialog_set_modal "pI:V:A"
 }
 
+gtk_entry_get_text :: !Pointer !.a -> (!String, !.a)
+gtk_entry_get_text entry env
+	# (ptr,env) = get entry env
+	= (derefString ptr, env)
+where
+	get :: !Pointer !.a -> (!Pointer, !.a)
+	get _ _ = code {
+		ccall gtk_entry_get_text "p:p:A"
+	}
+
+gtk_entry_new :: !.a -> (!Pointer, !.a)
+gtk_entry_new env = code {
+	ccall gtk_entry_new ":p:A"
+}
+
+gtk_entry_set_text :: !Pointer !String !.a -> .a
+gtk_entry_set_text entry text env = set entry (packString text) env
+where
+	set :: !Pointer !String !.a -> .a
+	set _ _ _ = code {
+		ccall gtk_entry_set_text "ps:V:A"
+	}
+
 gtk_events_pending :: !.a -> (!Bool, !.a)
 gtk_events_pending _ = code {
 	ccall gtk_events_pending ":I:A"
@@ -665,6 +688,11 @@ gtk_widget_set_halign widget align env = code {
 	ccall gtk_widget_set_halign "pI:V:A"
 }
 
+gtk_widget_set_hexpand :: !Pointer !Bool !.a -> .a
+gtk_widget_set_hexpand widget align env = code {
+	ccall gtk_widget_set_hexpand "pI:V:A"
+}
+
 gtk_widget_set_margin_bottom :: !Pointer !Int !.a -> .a
 gtk_widget_set_margin_bottom widget padding env = code {
 	ccall gtk_widget_set_margin_bottom "pI:V:A"
@@ -700,6 +728,11 @@ gtk_widget_set_valign widget align env = code {
 	ccall gtk_widget_set_valign "pI:V:A"
 }
 
+gtk_widget_set_vexpand :: !Pointer !Bool !.a -> .a
+gtk_widget_set_vexpand widget align env = code {
+	ccall gtk_widget_set_vexpand "pI:V:A"
+}
+
 gtk_widget_show :: !Pointer !.a -> .a
 gtk_widget_show widget env = code {
 	ccall gtk_widget_show "p:V:A"