diff options
Diffstat (limited to 'src/Gtk/Internal.icl')
| -rw-r--r-- | src/Gtk/Internal.icl | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl index 9bc0c7b..8f3a8ad 100644 --- a/src/Gtk/Internal.icl +++ b/src/Gtk/Internal.icl @@ -118,6 +118,44 @@ gtk_main_quit env = code { ccall gtk_main_quit ":V:A" } +gtk_menu_bar_new :: !.a -> (!Pointer, !.a) +gtk_menu_bar_new env = code { + ccall gtk_menu_bar_new ":p:A" +} + +gtk_menu_item_new :: !.a -> (!Pointer, !.a) +gtk_menu_item_new env = code { + ccall gtk_menu_item_new ":p:A" +} + +gtk_menu_item_set_label :: !Pointer !String !.a -> .a +gtk_menu_item_set_label item label env = set item (packString label) env +where + set :: !Pointer !String !.a -> .a + set _ _ _ = code { + ccall gtk_menu_item_set_label "ps:V:A" + } + +gtk_menu_item_set_use_underline :: !Pointer !Bool !.a -> .a +gtk_menu_item_set_use_underline item setting env = code { + ccall gtk_menu_item_set_use_underline "pI:V:A" +} + +gtk_menu_item_set_submenu :: !Pointer !Pointer !.a -> .a +gtk_menu_item_set_submenu item menu env = code { + ccall gtk_menu_item_set_submenu "pp:V:A" +} + +gtk_menu_new :: !.a -> (!Pointer, !.a) +gtk_menu_new env = code { + ccall gtk_menu_new ":p:A" +} + +gtk_menu_shell_append :: !Pointer !Pointer !.a -> .a +gtk_menu_shell_append shell item env = code { + ccall gtk_menu_shell_append "pp:V:A" +} + gtk_paned_new :: !Bool !.a -> (!Pointer, !.a) gtk_paned_new vertical env = code { ccall gtk_paned_new "I:p:A" |