diff options
Diffstat (limited to 'src/Gtk/Internal.icl')
| -rw-r--r-- | src/Gtk/Internal.icl | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl index 4be7f70..c6809d1 100644 --- a/src/Gtk/Internal.icl +++ b/src/Gtk/Internal.icl @@ -61,6 +61,16 @@ where ccall gtk_css_provider_load_from_path "psp:I:A" } +gtk_dialog_get_content_area :: !Pointer -> Pointer +gtk_dialog_get_content_area dialog = code { + ccall gtk_dialog_get_content_area "p:p" +} + +gtk_dialog_new :: !.a -> (!Pointer, !.a) +gtk_dialog_new env = code { + ccall gtk_dialog_new ":p:A" +} + gtk_dialog_run :: !Pointer !.a -> (!Int, !.a) gtk_dialog_run dialog env = code { ccall gtk_dialog_run "p:I:A" @@ -71,6 +81,11 @@ gtk_dialog_set_default_response dialog response env = code { ccall gtk_dialog_set_default_response "pI:V:A" } +gtk_dialog_set_modal :: !Pointer !Bool !.a -> .a +gtk_dialog_set_modal dialog setting env = code { + ccall gtk_dialog_set_modal "pI:V:A" +} + gtk_file_chooser_add_filter :: !Pointer !Pointer !.a -> .a gtk_file_chooser_add_filter chooser filter env = code { ccall gtk_file_chooser_add_filter "pp:V:A" @@ -236,6 +251,21 @@ gtk_scrolled_window_new hadjust vadjust env = code { ccall gtk_scrolled_window_new "pp:p:A" } +gtk_spinner_new :: !.a -> (!Pointer, !.a) +gtk_spinner_new env = code { + ccall gtk_spinner_new ":p:A" +} + +gtk_spinner_start :: !Pointer !.a -> .a +gtk_spinner_start spinner env = code { + ccall gtk_spinner_start "p:V:A" +} + +gtk_spinner_stop :: !Pointer !.a -> .a +gtk_spinner_stop spinner env = code { + ccall gtk_spinner_stop "p: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 @@ -344,3 +374,8 @@ where set _ _ _ = code { ccall gtk_window_set_title "ps:V:A" } + +gtk_window_set_transient_for :: !Pointer !Pointer !.a -> .a +gtk_window_set_transient_for window parent env = code { + ccall gtk_window_set_transient_for "pp:V:A" +} |