diff options
Diffstat (limited to 'src/Gtk/Internal.icl')
| -rw-r--r-- | src/Gtk/Internal.icl | 112 |
1 files changed, 107 insertions, 5 deletions
diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl index 36ef0c7..f77299e 100644 --- a/src/Gtk/Internal.icl +++ b/src/Gtk/Internal.icl @@ -36,6 +36,21 @@ g_timeout_add_seconds interval id env = code { ccall clean_g_timeout_add_seconds "II:V:A" } +gtk_action_bar_new :: !.a -> (!Pointer, !.a) +gtk_action_bar_new env = code { + ccall gtk_action_bar_new ":p:A" +} + +gtk_action_bar_pack_start :: !Pointer !Pointer !.a -> .a +gtk_action_bar_pack_start bar child env = code { + ccall gtk_action_bar_pack_start "pp:V:A" +} + +gtk_action_bar_pack_end :: !Pointer !Pointer !.a -> .a +gtk_action_bar_pack_end bar child env = code { + ccall gtk_action_bar_pack_end "pp:V:A" +} + gtk_box_new :: !Bool !Int !.a -> (!Pointer, !.a) gtk_box_new vertical spacing env = code { ccall gtk_box_new "II:p:A" @@ -51,6 +66,19 @@ gtk_box_pack_end box child expand fill spacing env = code { ccall gtk_box_pack_end "ppIII:V:A" } +gtk_box_set_spacing :: !Pointer !Int !.a -> .a +gtk_box_set_spacing box spacing env = code { + ccall gtk_box_set_spacing "pI:V:A" +} + +gtk_button_new_from_icon_name :: !String !Int !.a -> (!Pointer, !.a) +gtk_button_new_from_icon_name name size env = new (packString name) size env +where + new :: !String !Int !.a -> (!Pointer, !.a) + new _ _ _ = code { + ccall gtk_button_new_from_icon_name "sI:p:A" + } + gtk_cell_renderer_text_new :: !.a -> (!Pointer, !.a) gtk_cell_renderer_text_new env = code { ccall gtk_cell_renderer_text_new ":p:A" @@ -226,6 +254,11 @@ where ccall gtk_list_store_append "pp:V:A" } +gtk_list_store_clear :: !Pointer !.a -> .a +gtk_list_store_clear store env = code { + ccall gtk_list_store_clear "Gp:V:A" +} + gtk_list_store_newv :: !{#Int} !.a -> (!Pointer, !.a) gtk_list_store_newv types env = newv (size types) (get_array_pointer types) env where @@ -240,7 +273,7 @@ gtk_list_store_set_bool store iter col val env = where set :: !Pointer !Pointer !Int !Bool !Int !.a -> .a set _ _ _ _ _ _ = code { - ccall gtk_list_store_set "ppIII:V:A" + ccall gtk_list_store_set "GppIII:V:A" } gtk_list_store_set_char :: !Pointer !.{#Int} !Int !Char !.a -> .a @@ -249,7 +282,7 @@ gtk_list_store_set_char store iter col val env = where set :: !Pointer !Pointer !Int !Char !Int !.a -> .a set _ _ _ _ _ _ = code { - ccall gtk_list_store_set "ppIII:V:A" + ccall gtk_list_store_set "GppIII:V:A" } gtk_list_store_set_int :: !Pointer !.{#Int} !Int !Int !.a -> .a @@ -258,7 +291,7 @@ gtk_list_store_set_int store iter col val env = where set :: !Pointer !Pointer !Int !Int !Int !.a -> .a set _ _ _ _ _ _ = code { - ccall gtk_list_store_set "ppIII:V:A" + ccall gtk_list_store_set "GppIII:V:A" } gtk_list_store_set_real :: !Pointer !.{#Int} !Int !Real !.a -> .a @@ -267,7 +300,7 @@ gtk_list_store_set_real store iter col val env = where set :: !Pointer !Pointer !Int !Real !Int !.a -> .a set _ _ _ _ _ _ = code { - ccall gtk_list_store_set "ppIRI:V:A" + ccall gtk_list_store_set "GppIRI:V:A" } gtk_list_store_set_string :: !Pointer !.{#Int} !Int !String !.a -> .a @@ -276,7 +309,15 @@ gtk_list_store_set_string store iter col val env = where set :: !Pointer !Pointer !Int !String !Int !.a -> .a set _ _ _ _ _ _ = code { - ccall gtk_list_store_set "ppIsI:V:A" + ccall gtk_list_store_set "GppIsI:V:A" + } + +gtk_list_store_swap :: !Pointer !{#Int} !{#Int} !.a -> .a +gtk_list_store_swap store a b env = swap store (get_array_pointer a) (get_array_pointer b) env +where + swap :: !Pointer !Pointer !Pointer !.a -> .a + swap _ _ _ _ = code { + ccall gtk_list_store_swap "Gppp:V:A" } gtk_main_iteration :: !.a -> (!Bool, !.a) @@ -336,6 +377,11 @@ where ccall gtk_message_dialog_new "pIIIs:p:A" } +gtk_orientable_set_orientation :: !Pointer !Bool !.a -> .a +gtk_orientable_set_orientation orientable orientation env = code { + ccall gtk_orientable_set_orientation "pI:V:A" +} + gtk_paned_new :: !Bool !.a -> (!Pointer, !.a) gtk_paned_new vertical env = code { ccall gtk_paned_new "I:p:A" @@ -480,6 +526,47 @@ gtk_text_view_set_wrap_mode text_view mode env = code { ccall gtk_text_view_set_wrap_mode "pI:V:A" } +gtk_tree_model_get_iter_from_string :: !Pointer !String -> (!Bool, !{#Int}) +gtk_tree_model_get_iter_from_string model path + # iter = createArray 4 0 // size of GtkTreeIter + # ok = get model (get_array_pointer iter) (packString path) + = (ok, iter) +where + get :: !Pointer !Pointer !String -> Bool + get _ _ _ = code { + ccall gtk_tree_model_get_iter_from_string "pps:I" + } + +gtk_tree_model_get_string_from_iter :: !Pointer !{#Int} -> String +gtk_tree_model_get_string_from_iter model iter + # path = get model (get_array_pointer iter) + # (path_string,path) = readP derefString path + = g_free path path_string +where + get :: !Pointer !Pointer -> Pointer + get _ _ = code { + ccall gtk_tree_model_get_string_from_iter "pp:p" + } + +gtk_tree_selection_get_selected :: !Pointer !.a -> (!(!Bool, !{#Int}), !.a) +gtk_tree_selection_get_selected sel env + # iter = createArray 4 0 // size of GtkTreeIter + # (r,env) = get sel 0 (get_array_pointer iter) env + = ((r, iter), env) +where + get :: !Pointer !Pointer !Pointer !.a -> (!Bool, !.a) + get _ _ _ _ = code { + ccall gtk_tree_selection_get_selected "ppp:I:A" + } + +gtk_tree_selection_select_iter :: !Pointer !{#Int} !.a -> .a +gtk_tree_selection_select_iter sel iter env = select sel (get_array_pointer iter) env +where + select :: !Pointer !Pointer !.a -> .a + select _ _ _ = code { + ccall gtk_tree_selection_select_iter "Gpp:V:A" + } + gtk_tree_view_column_add_attribute :: !Pointer !Pointer !String !Int !.a -> .a gtk_tree_view_column_add_attribute tree_column renderer attr column env = add tree_column renderer (packString attr) column env @@ -512,6 +599,16 @@ gtk_tree_view_append_column tree column env = code { ccall gtk_tree_view_append_column "pp:V:A" } +gtk_tree_view_get_model :: !Pointer -> Pointer +gtk_tree_view_get_model tree = code { + ccall gtk_tree_view_get_model "p:p" +} + +gtk_tree_view_get_selection :: !Pointer -> Pointer +gtk_tree_view_get_selection tree = code { + ccall gtk_tree_view_get_selection "p:p" +} + gtk_tree_view_new_with_model :: !Pointer !.a -> (!Pointer, !.a) gtk_tree_view_new_with_model model env = code { ccall gtk_tree_view_new_with_model "p:p:A" @@ -557,6 +654,11 @@ gtk_widget_set_margin_top widget padding env = code { ccall gtk_widget_set_margin_top "pI:V:A" } +gtk_widget_set_sensitive :: !Pointer !Bool !.a -> .a +gtk_widget_set_sensitive widget setting env = code { + ccall gtk_widget_set_sensitive "pI:V:A" +} + gtk_widget_set_size_request :: !Pointer !Int !Int !.a -> .a gtk_widget_set_size_request widget hsize vsize env = code { ccall gtk_widget_set_size_request "pII:V:A" |