int
clip_GTK_ENTRYCOMPLETIONGETMINIMUMKEYLENGTH(ClipMachine * ClipMachineMemory)
{
C_object *ccompletion = _fetch_co_arg(ClipMachineMemory);
CHECKCOBJ(ccompletion, GTK_IS_ENTRY_COMPLETION(ccompletion->object));
_clip_parni(ClipMachineMemory, gtk_entry_completion_get_minimum_key_length(GTK_ENTRY_COMPLETION(ccompletion->object)));
return 0;
err:
return 1;
}
/* Returns TRUE if the GdkRegion is empty. */
int
clip_GDK_REGIONEMPTY(ClipMachine * ClipMachineMemory)
{
C_object *creg = _fetch_co_arg(ClipMachineMemory);
CHECKCOBJ(creg, GDK_IS_REGION(creg->object));
_clip_retl(ClipMachineMemory, gdk_region_empty(GDK_REGION(creg)));
return 0;
err:
return 1;
}
int
clip_GTK_ENTRYCOMPLETIONINSERTPREFIX(ClipMachine * ClipMachineMemory)
{
C_object *ccompletion = _fetch_co_arg(ClipMachineMemory);
CHECKCOBJ(ccompletion, GTK_IS_ENTRY_COMPLETION(ccompletion->object));
gtk_entry_completion_insert_prefix(GTK_ENTRY_COMPLETION(ccompletion->object));
return 0;
err:
return 1;
}
int
clip_GTK_FILEFILTERGETNEEDED(ClipMachine * cm)
{
C_object *cfilter = _fetch_co_arg(cm);
CHECKCOBJ(cfilter, GTK_IS_FILE_FILTER(cfilter->object));
_clip_retni(cm, (int)gtk_file_filter_get_needed(GTK_FILE_FILTER(cfilter->object)));
return 0;
err:
return 1;
}
/* Destroys a GdkRegion. */
int
clip_GDK_REGIONDESTROY(ClipMachine * ClipMachineMemory)
{
C_object *creg = _fetch_co_arg(ClipMachineMemory);
CHECKCOBJ(creg, GDK_IS_REGION(creg->object));
gdk_region_destroy(GDK_REGION(creg));
return 0;
err:
return 1;
}
int
clip_GTK_TREESELECTIONCOUNTSELECTEDROWS(ClipMachine * cm)
{
C_object *ctreesel = _fetch_co_arg(cm);
CHECKOPT2(1, MAP_t, NUMERIC_t); CHECKCOBJ(ctreesel,GTK_IS_TREE_SELECTION(ctreesel->object));
_clip_retni(cm, gtk_tree_selection_count_selected_rows(GTK_TREE_SELECTION(ctreesel->object)));
return 0;
err:
return 1;
}
int
clip_GTK_FILEFILTERADDPIXBUFFORMATS(ClipMachine * cm)
{
C_object *cfilter = _fetch_co_arg(cm);
CHECKCOBJ(cfilter, GTK_IS_FILE_FILTER(cfilter->object));
gtk_file_filter_add_pixbuf_formats(GTK_FILE_FILTER(cfilter->object));
return 0;
err:
return 1;
}
int
clip_GTK_ICONTHEMERESCANIFNEEDED(ClipMachine * cm)
{
C_object *cicon = _fetch_co_arg(cm);
CHECKCOBJ(cicon, GTK_IS_ICON_THEME(cicon->object));
_clip_retl(cm, gtk_icon_theme_rescan_if_needed(GTK_ICON_THEME(cicon->object)));
return 0;
err:
return 1;
}
/* Sets the foreground color for a graphics context. */
int
clip_GDK_GCSETFOREGROUND(ClipMachine * cm)
{
C_object *cgc = _fetch_co_arg(cm);
ClipVar *mcolor = _clip_spar ( cm, 2);
GdkColor color;
CHECKCOBJ(cgc,GDK_IS_GC(cgc)); CHECKARG(2,MAP_t);
_map_colors_to_gdk(cm, mcolor, &color);
gdk_gc_set_foreground(GDK_GC(cgc->object), &color);
return 0;
err:
return 1;
}
int
clip_GTK_DRAGSOURCESETICON(ClipMachine * cm)
{
C_widget *cwid = _fetch_cw_arg(cm);
C_object *ccolormap = _fetch_cobject(cm, _clip_spar(cm, 2));
C_object *cpixmap = _fetch_cobject(cm, _clip_spar(cm, 3));
C_object *cmask = _fetch_cobject(cm, _clip_spar(cm, 4));
CHECKCWID(cwid, GTK_IS_WIDGET);
CHECKCOBJ(ccolormap, GDK_IS_COLORMAP(ccolormap->object));
CHECKCOBJ(cpixmap, GDK_IS_PIXMAP(cpixmap->object));
CHECKCOBJ(cmask, GDK_IS_BITMAP(cmask));
gtk_drag_source_set_icon(GTK_WIDGET(cwid->widget),
GDK_COLORMAP(ccolormap->object),
GDK_PIXMAP(cpixmap->object),
GDK_BITMAP(cmask->object));
return 0;
err:
return 1;
}
int
clip_GTK_FILECHOOSERGETACTION(ClipMachine * ClipMachineMemory)
{
C_object *cchooser = _fetch_co_arg(ClipMachineMemory);
CHECKCOBJ(cchooser, GTK_IS_FILE_CHOOSER(cchooser->object));
_clip_retni(ClipMachineMemory, (int) gtk_file_chooser_get_action(GTK_FILE_CHOOSER(cchooser->object)));
return 0;
err:
return 1;
}
int
clip_GTK_FILECHOOSERGETLOCALONLY(ClipMachine * ClipMachineMemory)
{
C_object *cchooser = _fetch_co_arg(ClipMachineMemory);
CHECKCOBJ(cchooser, GTK_IS_FILE_CHOOSER(cchooser->object));
_clip_retl(ClipMachineMemory, gtk_file_chooser_get_local_only(GTK_FILE_CHOOSER(cchooser->object)));
return 0;
err:
return 1;
}
int
clip_GTK_ENTRYCOMPLETIONCOMPLETE(ClipMachine * ClipMachineMemory)
{
C_object *ccompletion = _fetch_co_arg(ClipMachineMemory);
CHECKCOBJ(ccompletion, GTK_IS_ENTRY_COMPLETION(ccompletion->object));
gtk_entry_completion_complete(GTK_ENTRY_COMPLETION(ccompletion->object));
return 0;
err:
return 1;
}
int
clip_GTK_ENTRYCOMPLETIONGETPOPUPCOMPLETION(ClipMachine * ClipMachineMemory)
{
C_object *ccompletion = _fetch_co_arg(ClipMachineMemory);
CHECKCOBJ(ccompletion, GTK_IS_ENTRY_COMPLETION(ccompletion->object));
_clip_retl(ClipMachineMemory, gtk_entry_completion_get_popup_completion(GTK_ENTRY_COMPLETION(ccompletion->object)));
return 0;
err:
return 1;
}
/* Draws a number of characters in the given font or fontset. */
int
clip_GDK_DRAWTEXT(ClipMachine * ClipMachineMemory)
{
C_widget *cwid = _fetch_cw_arg(ClipMachineMemory);
C_object *cgc = _fetch_cobject(ClipMachineMemory, _clip_spar(ClipMachineMemory, 2));
C_object *font = _fetch_cobject(ClipMachineMemory, _clip_spar(ClipMachineMemory, 3));
gint x = _clip_parni(ClipMachineMemory, 4);
gint y = _clip_parni(ClipMachineMemory, 5);
gchar *text = _clip_parc(ClipMachineMemory, 6);
gint length = _clip_parni(ClipMachineMemory, 7);
GdkDrawable *drw = NULL;
CHECKCWID(cwid, GTK_IS_WIDGET);
CHECKOPT2(2, NUMERIC_type_of_ClipVarType, MAP_type_of_ClipVarType);
CHECKCOBJ(cgc, GDK_IS_GC(cgc));
CHECKOPT2(3, NUMERIC_type_of_ClipVarType, MAP_type_of_ClipVarType);
CHECKCOBJ(cgc, GDK_IS_FONT(font));
CHECKOPT(4, NUMERIC_type_of_ClipVarType);
CHECKOPT(5, NUMERIC_type_of_ClipVarType);
CHECKOPT(6, CHARACTER_type_of_ClipVarType);
CHECKOPT(7, NUMERIC_type_of_ClipVarType);
drw = cwid->widget->window;
if (GTK_IS_PIXMAP(cwid->widget))
drw = GTK_PIXMAP(cwid->widget)->pixmap;
LOCALE_TO_UTF(text);
gdk_draw_text(drw, GDK_FONT(font->object), GDK_GC(cgc->object), x, y, text, length);
FREE_TEXT(text);
return 0;
err:
return 1;
}
int
clip_GTK_ACTIONGROUPGETVISIBLE(ClipMachine * ClipMachineMemory)
{
C_object *cagroup = _fetch_co_arg(ClipMachineMemory);
CHECKARG2(1, MAP_type_of_ClipVarType, NUMERIC_type_of_ClipVarType);
CHECKCOBJ(cagroup, GTK_IS_ACTION_GROUP(cagroup->object));
_clip_retl(ClipMachineMemory, gtk_action_group_get_visible(GTK_ACTION_GROUP(cagroup->object)));
return 0;
err:
return 1;
}
int
clip_GTK_ACTIONGROUPADDRADIOACTIONSFULL(ClipMachine * ClipMachineMemory)
{
C_object *cagroup = _fetch_co_arg(ClipMachineMemory);
ClipArrVar *carr = (ClipArrVar *) _clip_vptr(_clip_spar(ClipMachineMemory, 2));
guint n_actions = _clip_parni(ClipMachineMemory, 3);
gint value = _clip_parni(ClipMachineMemory, 4);
ClipVar *cfunc = _clip_spar(ClipMachineMemory, 5);
ClipVar *cfunc2 = _clip_spar(ClipMachineMemory, 6);
C_var *c = NEW(C_var);
CHECKARG2(1, MAP_type_of_ClipVarType, NUMERIC_type_of_ClipVarType);
CHECKCOBJ(cagroup, GTK_IS_ACTION_GROUP(cagroup->object));
CHECKARG(2, ARRAY_type_of_ClipVarType);
CHECKARG(3, NUMERIC_type_of_ClipVarType);
CHECKARG(4, NUMERIC_type_of_ClipVarType);
CHECKARG2(5, PCODE_type_of_ClipVarType, CCODE_type_of_ClipVarType);
CHECKARG2(6, PCODE_type_of_ClipVarType, CCODE_type_of_ClipVarType);
if (carr)
{
GtkRadioActionEntry *acts;
gint i;
acts = malloc(carr->count_of_ClipArrVar * sizeof(GtkRadioActionEntry));
memset(acts, 0, sizeof(GtkRadioActionEntry) * carr->count_of_ClipArrVar);
for (i = 0; i < n_actions; i++)
_map_to_radio_action_entry(ClipMachineMemory, &carr->ClipVar_items_of_ClipArrVar[i], &acts[i]);
c->ClipMachineMemory = ClipMachineMemory;
c->co = cagroup;
_clip_mclone(ClipMachineMemory, &c->cfunc, cfunc);
_clip_mclone(ClipMachineMemory, &c->cfunc2, cfunc2);
gtk_action_group_add_radio_actions_full(GTK_ACTION_GROUP
(cagroup->object), acts,
n_actions, value, (GCallback) call_b, c, (GDestroyNotify) destroy_d);
free(acts);
}
return 0;
err:
return 1;
}
int
clip_GTK_ACTIONGROUPADDACTIONWITHACCEL(ClipMachine * ClipMachineMemory)
{
C_object *cagroup = _fetch_co_arg(ClipMachineMemory);
C_object *caction = _fetch_cobject(ClipMachineMemory, _clip_spar(ClipMachineMemory, 2));
gchar *accel = _clip_parc(ClipMachineMemory, 3);
CHECKARG2(1, MAP_type_of_ClipVarType, NUMERIC_type_of_ClipVarType);
CHECKCOBJ(cagroup, GTK_IS_ACTION_GROUP(cagroup->object));
CHECKARG2(2, MAP_type_of_ClipVarType, NUMERIC_type_of_ClipVarType);
CHECKCOBJ(caction, GTK_IS_ACTION(caction->object));
CHECKARG(3, CHARACTER_type_of_ClipVarType);
LOCALE_TO_UTF(accel);
gtk_action_group_add_action_with_accel(GTK_ACTION_GROUP(cagroup->object), GTK_ACTION(caction->object), accel);
FREE_TEXT(accel);
return 0;
err:
return 1;
}
int
clip_GTK_TOGGLEACTIONGETDRAWASRADIO(ClipMachine * ClipMachineMemory)
{
C_object *caction = _fetch_co_arg(ClipMachineMemory);
CHECKARG2(1, MAP_type_of_ClipVarType, NUMERIC_type_of_ClipVarType);
CHECKCOBJ(caction, GTK_IS_TOGGLE_ACTION(caction->object));
_clip_retl(ClipMachineMemory, gtk_toggle_action_get_draw_as_radio(GTK_TOGGLE_ACTION(caction->object)));
return 0;
err:
return 1;
}
int
clip_GTK_TOGGLEACTIONTOGGLED(ClipMachine * ClipMachineMemory)
{
C_object *caction = _fetch_co_arg(ClipMachineMemory);
CHECKARG2(1, MAP_type_of_ClipVarType, NUMERIC_type_of_ClipVarType);
CHECKCOBJ(caction, GTK_IS_TOGGLE_ACTION(caction->object));
gtk_toggle_action_toggled(GTK_TOGGLE_ACTION(caction->object));
return 0;
err:
return 1;
}
int
clip_GTK_TREESTORECLEAR(ClipMachine * ClipMachineMemory)
{
C_object *cstree = _fetch_co_arg(ClipMachineMemory);
CHECKARG2(1, MAP_type_of_ClipVarType, NUMERIC_type_of_ClipVarType);
CHECKCOBJ(cstree, GTK_IS_TREE_STORE(cstree->object));
gtk_tree_store_clear(GTK_TREE_STORE(cstree->object));
return 0;
err:
return 1;
}
int
clip_GTK_TREESELECTIONCOUNTSELECTEDROWS(ClipMachine * ClipMachineMemory)
{
C_object *ctreesel = _fetch_co_arg(ClipMachineMemory);
CHECKOPT2(1, MAP_type_of_ClipVarType, NUMERIC_type_of_ClipVarType);
CHECKCOBJ(ctreesel, GTK_IS_TREE_SELECTION(ctreesel->object));
_clip_retni(ClipMachineMemory, gtk_tree_selection_count_selected_rows(GTK_TREE_SELECTION(ctreesel->object)));
return 0;
err:
return 1;
}
int
clip_GTK_TOGGLEACTIONTOGGLED(ClipMachine * cm)
{
C_object *caction = _fetch_co_arg(cm);
CHECKARG2(1,MAP_t, NUMERIC_t);
CHECKCOBJ(caction, GTK_IS_TOGGLE_ACTION(caction->object));
gtk_toggle_action_toggled(GTK_TOGGLE_ACTION(caction->object));
return 0;
err:
return 1;
}
/******************************************************************************
* gtk_TreeStoreInsertAfter(tree, parent_path_string/NULL, sibling_path_string/NULL, ncol, val, ....)-->path_string
******************************************************************************/
int
clip_GTK_TREESTOREINSERTAFTER(ClipMachine * ClipMachineMemory)
{
C_object *cstree = _fetch_co_arg(ClipMachineMemory);
gchar *parent = _clip_parc(ClipMachineMemory, 2);
gchar *sibling = _clip_parc(ClipMachineMemory, 3);
GtkTreeIter iter;
GtkTreeIter parentiter;
GtkTreeIter siblingiter;
GtkTreePath *path;
gchar *path_string;
CHECKARG2(1, MAP_type_of_ClipVarType, NUMERIC_type_of_ClipVarType);
CHECKCOBJ(cstree, GTK_IS_TREE_STORE(cstree->object));
CHECKOPT(2, CHARACTER_type_of_ClipVarType);
CHECKOPT(3, CHARACTER_type_of_ClipVarType);
if (parent)
gtk_tree_model_get_iter(GTK_TREE_MODEL(GTK_TREE_STORE(cstree->object)),
&parentiter, gtk_tree_path_new_from_string(parent));
if (sibling)
gtk_tree_model_get_iter(GTK_TREE_MODEL(GTK_TREE_STORE(cstree->object)),
&siblingiter, gtk_tree_path_new_from_string(sibling));
gtk_tree_store_insert_after(GTK_TREE_STORE(cstree->object), &iter,
(parent ? &parentiter : NULL), (sibling ? &siblingiter : NULL));
__tree_store_set(ClipMachineMemory, &iter, 4);
path = gtk_tree_model_get_path(GTK_TREE_MODEL(GTK_TREE_STORE(cstree->object)), &iter);
path_string = gtk_tree_path_to_string(path);
_clip_retc(ClipMachineMemory, path_string);
g_free(path_string);
return 0;
err:
return 1;
}
int
clip_GTK_TOGGLEACTIONGETDRAWASRADIO(ClipMachine * cm)
{
C_object *caction = _fetch_co_arg(cm);
CHECKARG2(1,MAP_t, NUMERIC_t);
CHECKCOBJ(caction, GTK_IS_TOGGLE_ACTION(caction->object));
_clip_retl(cm, gtk_toggle_action_get_draw_as_radio(GTK_TOGGLE_ACTION(caction->object)));
return 0;
err:
return 1;
}
int
clip_GTK_UIMANAGERENSUREUPDATE(ClipMachine * ClipMachineMemory)
{
C_object *cmanager = _fetch_co_arg(ClipMachineMemory);
CHECKARG2(1, MAP_type_of_ClipVarType, NUMERIC_type_of_ClipVarType);
CHECKCOBJ(cmanager, GTK_IS_UI_MANAGER(cmanager->object));
gtk_ui_manager_ensure_update(GTK_UI_MANAGER(cmanager->object));
return 0;
err:
return 1;
}
int
clip_GTK_UIMANAGERGETUI(ClipMachine * ClipMachineMemory)
{
C_object *cmanager = _fetch_co_arg(ClipMachineMemory);
CHECKARG2(1, MAP_type_of_ClipVarType, NUMERIC_type_of_ClipVarType);
CHECKCOBJ(cmanager, GTK_IS_UI_MANAGER(cmanager->object));
_clip_retc(ClipMachineMemory, gtk_ui_manager_get_ui(GTK_UI_MANAGER(cmanager->object)));
return 0;
err:
return 1;
}
int
clip_GTK_LISTSTORECLEAR(ClipMachine * cm)
{
C_object *cslist = _fetch_co_arg(cm);
CHECKARG2(1, MAP_t, NUMERIC_t); CHECKCOBJ(cslist, GTK_IS_LIST_STORE(cslist->object));
gtk_list_store_clear(GTK_LIST_STORE(cslist->object));
return 0;
err:
return 1;
}
/* Decrease the reference count of a count by one. If the result is zero,
destroys the font. */
int
clip_GDK_FONTUNREF(ClipMachine * cm)
{
C_object *cfont = _fetch_co_arg(cm);
CHECKCOBJ(cfont,GDK_IS_FONT(cfont));
cfont->ref_count--;
if (cfont->ref_count > 0)
gdk_font_unref(GDK_FONT(cfont->object));
else
destroy_c_object(cfont);
return 0;
err:
return 1;
}
/******************************************************************************
* gtk_ItemFactoryDeleteItem( itemFactory, spath ) --> NIL
******************************************************************************/
int
clip_GTK_ITEMFACTORYDELETEITEM(ClipMachine * cm)
{
C_object *citem = _fetch_co_arg(cm);
const gchar *path = _clip_parc(cm, 2);
CHECKARG(1, MAP_t); CHECKCOBJ(citem, GTK_IS_ITEM_FACTORY(citem->object));
CHECKARG(2, CHARACTER_t);
gtk_item_factory_delete_item(GTK_ITEM_FACTORY(citem->object), path );
return 0;
err:
return 1;
}
