diff options
Diffstat (limited to 'src/Gtk/Internal.icl')
| -rw-r--r-- | src/Gtk/Internal.icl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl index b88a703..bd68e1e 100644 --- a/src/Gtk/Internal.icl +++ b/src/Gtk/Internal.icl @@ -35,6 +35,21 @@ where ccall clean_g_signal_pop ":p:A" } +gtk_box_new :: !Bool !Int !.a -> (!Pointer, !.a) +gtk_box_new vertical spacing env = code { + ccall gtk_box_new "II:p:A" +} + +gtk_box_pack_start :: !Pointer !Pointer !Bool !Bool !Int !.a -> .a +gtk_box_pack_start box child expand fill spacing env = code { + ccall gtk_box_pack_start "ppIII:V:A" +} + +gtk_box_pack_end :: !Pointer !Pointer !Bool !Bool !Int !.a -> .a +gtk_box_pack_end box child expand fill spacing env = code { + ccall gtk_box_pack_end "ppIII:V:A" +} + gtk_container_add :: !Pointer !Pointer !.a -> .a gtk_container_add container widget env = code { ccall gtk_container_add "pp:V:A" |