diff options
Diffstat (limited to 'src/Gtk/Internal.icl')
| -rw-r--r-- | src/Gtk/Internal.icl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl index dc2e17a..baa3be7 100644 --- a/src/Gtk/Internal.icl +++ b/src/Gtk/Internal.icl @@ -36,6 +36,19 @@ g_timeout_add_seconds interval id env = code { ccall clean_g_timeout_add_seconds "II:V:A" } +gdk_keyval_from_name :: !String -> Int +gdk_keyval_from_name name = get (packString name) +where + get :: !String -> Int + get _ = code { + ccall gdk_keyval_from_name "s:I" + } + +gtk_accel_group_new :: !.a -> (!Pointer, !.a) +gtk_accel_group_new env = code { + ccall gtk_accel_group_new ":p:A" +} + gtk_action_bar_new :: !.a -> (!Pointer, !.a) gtk_action_bar_new env = code { ccall gtk_action_bar_new ":p:A" @@ -676,6 +689,15 @@ gtk_tree_view_new_with_model model env = code { ccall gtk_tree_view_new_with_model "p:p:A" } +gtk_widget_add_accelerator :: !Pointer !String !Pointer !Int !Int !Int !.a -> .a +gtk_widget_add_accelerator widget signal accel_group key mask flags env = + add widget (packString signal) accel_group key mask flags env +where + add :: !Pointer !String !Pointer !Int !Int !Int !.a -> .a + add _ _ _ _ _ _ _ = code { + ccall gtk_widget_add_accelerator "pspIII:V:A" + } + gtk_widget_destroy :: !Pointer !.a -> .a gtk_widget_destroy widget env = code { ccall gtk_widget_destroy "p:V:A" @@ -751,6 +773,11 @@ gtk_widget_show widget env = code { ccall gtk_widget_show "p:V:A" } +gtk_window_add_accel_group :: !Pointer !Pointer !.a -> .a +gtk_window_add_accel_group window group env = code { + ccall gtk_window_add_accel_group "pp:V:A" +} + gtk_window_new :: !Bool !.a -> (!Pointer, !.a) gtk_window_new is_popup env = code { ccall gtk_window_new "I:p:A" |