diff options
Diffstat (limited to 'src/Gtk/Internal.icl')
| -rw-r--r-- | src/Gtk/Internal.icl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl index bd68e1e..56e9f4e 100644 --- a/src/Gtk/Internal.icl +++ b/src/Gtk/Internal.icl @@ -55,6 +55,20 @@ gtk_container_add container widget env = code { ccall gtk_container_add "pp:V:A" } +gtk_frame_new :: !(Maybe String) !.a -> (!Pointer, !.a) +gtk_frame_new Nothing env = new 0 env +where + new :: !Int !.a -> (!Pointer, !.a) + new _ _ = code { + ccall gtk_frame_new "p:p:A" + } +gtk_frame_new (Just label) env = new label env +where + new :: !String !.a -> (!Pointer, !.a) + new _ _ = code { + ccall gtk_frame_new "s:p:A" + } + gtk_init :: !.a -> .a gtk_init env = init 0 0 env where |