1 files changed, 51 insertions, 0 deletions

diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl
index 24e22cb..ffa801e 100644
--- a/src/Gtk/Internal.icl
+++ b/src/Gtk/Internal.icl
@@ -55,6 +55,21 @@ gtk_container_add container widget env = code {
 	ccall gtk_container_add "pp:V:A"
 }
 
+gtk_css_provider_new :: !.a -> (!Pointer, !.a)
+gtk_css_provider_new env = code {
+	ccall gtk_css_provider_new ":p:A"
+}
+
+// TODO: this relies on a deprecated return value; we should connect to the
+// parsing-error signal instead.
+gtk_css_provider_load_from_path :: !Pointer !String !Pointer !.a -> (!Bool, !.a)
+gtk_css_provider_load_from_path provider path error env = load provider (packString path) error env
+where
+	load :: !Pointer !String !Pointer !.a -> (!Bool, !.a)
+	load _ _ _ _ = code {
+		ccall gtk_css_provider_load_from_path "psp:I:A"
+	}
+
 gtk_frame_new :: !(Maybe String) !.a -> (!Pointer, !.a)
 gtk_frame_new Nothing env = new 0 env
 where
@@ -123,6 +138,32 @@ gtk_paned_set_wide_handle paned setting env = code {
 	ccall gtk_paned_set_wide_handle "pI:V:A"
 }
 
+gtk_style_context_add_class :: !Pointer !String !.a -> .a
+gtk_style_context_add_class context cls env = add context (packString cls) env
+where
+	add :: !Pointer !String !.a -> .a
+	add _ _ _ = code {
+		ccall gtk_style_context_add_class "ps:V:A"
+	}
+
+gtk_style_context_add_provider :: !Pointer !Pointer !Int !.a -> .a
+gtk_style_context_add_provider context provider priority env = code {
+	ccall gtk_style_context_add_provider "ppI:V:A"
+}
+
+gtk_style_context_add_provider_for_screen :: !Pointer !Pointer !Int !.a -> .a
+gtk_style_context_add_provider_for_screen context provider priority env = code {
+	ccall gtk_style_context_add_provider_for_screen "ppI:V:A"
+}
+
+gtk_style_context_remove_class :: !Pointer !String !.a -> .a
+gtk_style_context_remove_class context cls env = remove context (packString cls) env
+where
+	remove :: !Pointer !String !.a -> .a
+	remove _ _ _ = code {
+		ccall gtk_style_context_remove_class "ps:V:A"
+	}
+
 gtk_text_buffer_insert_at_cursor :: !Pointer !String !Int !.a -> .a
 gtk_text_buffer_insert_at_cursor buffer string len env = code {
 	ccall gtk_text_buffer_insert_at_cursor "psI:V:A"
@@ -143,6 +184,16 @@ gtk_text_view_set_editable text_view setting env = code {
 	ccall gtk_text_view_set_editable "pI:V:A"
 }
 
+gtk_widget_get_screen :: !Pointer !.a -> (!Pointer, !.a)
+gtk_widget_get_screen widget env = code {
+	ccall gtk_widget_get_screen "p:p:A"
+}
+
+gtk_widget_get_style_context :: !Pointer !.a -> (!Pointer, !.a)
+gtk_widget_get_style_context widget env = code {
+	ccall gtk_widget_get_style_context "p:p: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"