/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*/
void a_pan(GSCHEM_TOPLEVEL *w_current, int w_x, int w_y)
{
/* make mouse to the new world-center;
attention: there are information looses because of type cast in mil_x */
a_pan_general(w_current, w_x, w_y, 1, 0);
/*! \bug FIXME? This call will trigger a motion event (x_event_motion()),
* even if the user doesn't move the mouse
* Not ready for prime time, maybe there is another way to trigger the
* motion event without changing the cursor position (Werner)
*/
/* x_basic_warp_cursor(w_current->drawing_area, x, y); */
}
/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
*/
void a_pan_mouse(GSCHEM_TOPLEVEL *w_current, int diff_x, int diff_y)
{
TOPLEVEL *toplevel = w_current->toplevel;
double world_cx, world_cy;
double page_cx, page_cy;
#if DEBUG
printf("a_pan_mouse(): diff_x=%d, diff_y=%d\n", diff_x, diff_y);
#endif
page_cx = (toplevel->page_current->left + toplevel->page_current->right) / 2.0;
page_cy = (toplevel->page_current->top + toplevel->page_current->bottom) / 2.0;
world_cx = page_cx - WORLDabs (w_current, diff_x);
world_cy = page_cy + WORLDabs (w_current, diff_y);
#if DEBUG
printf(" world_cx=%f, world_cy=%f\n",
world_cx, world_cy);
#endif
a_pan_general(w_current, world_cx, world_cy, 1, 0);
}
/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
* \todo Only descends into the first source schematic
*
*/
int o_edit_find_text (GSCHEM_TOPLEVEL *w_current, const GList *o_list,
char *stext, int descend, int skip)
{
TOPLEVEL *toplevel = w_current->toplevel;
char *attrib = NULL;
int count = 0;
PAGE *parent = NULL;
char *current_filename = NULL;
int page_control = 0;
int pcount = 0;
int rv;
int x1, y1, x2, y2;
int text_screen_height;
const GList *iter;
OBJECT *o_current;
skiplast = skip;
iter = o_list;
while (iter != NULL) {
o_current = (OBJECT *)iter->data;
if (descend) {
if (o_current->type == OBJ_COMPLEX) {
parent = toplevel->page_current;
attrib = o_attrib_search_attached_attribs_by_name (o_current,
"source", count);
/* if above is null, then look inside symbol */
if (attrib == NULL) {
attrib = o_attrib_search_inherited_attribs_by_name (o_current,
"source", count);
/* looking_inside = TRUE; */
}
if (attrib) {
pcount = 0;
current_filename = u_basic_breakup_string(attrib, ',', pcount);
if (current_filename != NULL) {
PAGE *child_page =
s_hierarchy_down_schematic_single(toplevel,
current_filename,
parent,
page_control,
HIERARCHY_NORMAL_LOAD);
if (child_page != NULL) {
page_control = child_page->page_control;
rv = o_edit_find_text (w_current,
s_page_objects (child_page),
stext, descend, skiplast);
if (!rv) {
s_page_goto( toplevel, child_page );
return 0;
}
}
}
}
}
}
if (o_current->type == OBJ_TEXT) {
const gchar *str = o_text_get_string (toplevel, o_current);
/* replaced strcmp with strstr to simplify the search */
if (strstr (str,stext)) {
if (!skiplast) {
a_zoom(w_current, ZOOM_FULL, DONTCARE, A_PAN_DONT_REDRAW);
world_get_single_object_bounds (toplevel, o_current, &x1, &y1, &x2, &y2);
text_screen_height = SCREENabs (w_current, y2 - y1);
/* this code will zoom/pan till the text screen height is about */
/* 50 pixels high, perhaps a future enhancement will be to make */
/* this number configurable */
while (text_screen_height < 50) {
a_zoom(w_current, ZOOM_IN, DONTCARE, A_PAN_DONT_REDRAW);
text_screen_height = SCREENabs (w_current, y2 - y1);
}
a_pan_general(w_current,
o_current->text->x, o_current->text->y,
1, 0);
/* Make sure the titlebar and scrollbars are up-to-date */
x_window_set_current_page(w_current,
w_current->toplevel->page_current );
last_o = o_current;
break;
}
if (last_o == o_current) {
skiplast = 0;
}
} /* if (strstr(o_current->text->string,stext)) */
} /* if (o_current->type == OBJ_TEXT) */
iter = g_list_next (iter);
if (iter == NULL) {
return 1;
}
}
return (iter == NULL);
}
