/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
*/
gint
x_event_button_pressed(GschemPageView *page_view, GdkEventButton *event, GschemToplevel *w_current)
{
PAGE *page = gschem_page_view_get_page (page_view);
int w_x, w_y;
int unsnapped_wx, unsnapped_wy;
g_return_val_if_fail ((w_current != NULL), 0);
if (page == NULL) {
return TRUE; /* terminate event */
}
if (!gtk_widget_has_focus (GTK_WIDGET (page_view))) {
gtk_widget_grab_focus (GTK_WIDGET (page_view));
}
scm_dynwind_begin ((scm_t_dynwind_flags) 0);
g_dynwind_window (w_current);
#if DEBUG
printf("pressed button %d! \n", event->button);
printf("event state: %d \n", event->state);
printf("w_current state: %d \n", w_current->event_state);
printf("Selection is:\n");
o_selection_print_all(&(page->selection_list));
printf("\n");
#endif
gschem_page_view_SCREENtoWORLD (page_view, (int) event->x, (int) event->y,
&unsnapped_wx, &unsnapped_wy);
w_x = snap_grid (w_current, unsnapped_wx);
w_y = snap_grid (w_current, unsnapped_wy);
if (event->type == GDK_2BUTTON_PRESS &&
w_current->event_state == SELECT) {
/* Don't re-select an object (lp-912978) */
/* o_find_object(w_current, w_x, w_y, TRUE); */
/* GDK_BUTTON_EVENT is emitted before GDK_2BUTTON_EVENT, which
* leads to setting of the inside_action flag. If o_edit()
* brings up a modal window (e.g., the edit attribute dialog),
* it intercepts the release button event and thus doesn't
* allow resetting of the inside_action flag so we do it
* manually here before processing the double-click event. */
i_action_stop (w_current);
o_edit(w_current, geda_list_get_glist( page->selection_list ));
scm_dynwind_end ();
return(0);
}
w_current->SHIFTKEY = (event->state & GDK_SHIFT_MASK ) ? 1 : 0;
w_current->CONTROLKEY = (event->state & GDK_CONTROL_MASK) ? 1 : 0;
w_current->ALTKEY = (event->state & GDK_MOD1_MASK) ? 1 : 0;
/* Huge switch statement to evaluate state transitions. Jump to
* end_button_pressed label to escape the state evaluation rather than
* returning from the function directly. */
if (event->button == 1) {
if (w_current->inside_action) {
/* End action */
if (page->place_list != NULL) {
switch(w_current->event_state) {
case (COMPMODE) : o_place_end(w_current, w_x, w_y, w_current->continue_component_place,
"%add-objects-hook"); break;
case (TEXTMODE) : o_place_end(w_current, w_x, w_y, FALSE,
"%add-objects-hook"); break;
case (PASTEMODE) : o_place_end(w_current, w_x, w_y, FALSE,
"%paste-objects-hook"); break;
default: break;
}
} else {
switch(w_current->event_state) {
case (ARCMODE) : o_arc_end1(w_current, w_x, w_y); break;
case (BOXMODE) : o_box_end(w_current, w_x, w_y); break;
case (BUSMODE) : o_bus_end(w_current, w_x, w_y); break;
case (CIRCLEMODE) : o_circle_end(w_current, w_x, w_y); break;
case (LINEMODE) : o_line_end(w_current, w_x, w_y); break;
case (NETMODE) : o_net_end(w_current, w_x, w_y); break;
case (PATHMODE) : o_path_continue (w_current, w_x, w_y); break;
case (PICTUREMODE): o_picture_end(w_current, w_x, w_y); break;
case (PINMODE) : o_pin_end (w_current, w_x, w_y); break;
default: break;
}
}
} else {
/* Start action */
switch(w_current->event_state) {
case (ARCMODE) : o_arc_start(w_current, w_x, w_y); break;
case (BOXMODE) : o_box_start(w_current, w_x, w_y); break;
case (BUSMODE) : o_bus_start(w_current, w_x, w_y); break;
case (CIRCLEMODE) : o_circle_start(w_current, w_x, w_y); break;
case (LINEMODE) : o_line_start(w_current, w_x, w_y); break;
case (NETMODE) : o_net_start(w_current, w_x, w_y); break;
case (PATHMODE) : o_path_start (w_current, w_x, w_y); break;
case (PICTUREMODE): o_picture_start(w_current, w_x, w_y); break;
case (PINMODE) : o_pin_start (w_current, w_x, w_y); break;
case (ZOOMBOX) : a_zoom_box_start(w_current, unsnapped_wx, unsnapped_wy); break;
case (SELECT) : o_select_start(w_current, w_x, w_y); break;
case (COPYMODE) :
case (MCOPYMODE) : o_copy_start(w_current, w_x, w_y); break;
case (MOVEMODE) : o_move_start(w_current, w_x, w_y); break;
default: break;
}
}
switch(w_current->event_state) {
case(ROTATEMODE): o_rotate_world_update(w_current, w_x, w_y, 90,
geda_list_get_glist(page->selection_list)); break;
case(MIRRORMODE): o_mirror_world_update(w_current, w_x, w_y,
geda_list_get_glist(page->selection_list)); break;
case(PAN):
gschem_page_view_pan (page_view, w_x, w_y);
i_set_state(w_current, SELECT);
break;
}
} else if (event->button == 2) {
/* try this out and see how it behaves */
if (w_current->inside_action) {
if (!(w_current->event_state == COMPMODE||
w_current->event_state == TEXTMODE||
w_current->event_state == MOVEMODE||
w_current->event_state == COPYMODE ||
w_current->event_state == MCOPYMODE ||
w_current->event_state == PASTEMODE )) {
i_callback_cancel(w_current, 0, NULL);
}
goto end_button_pressed;
}
switch(w_current->middle_button) {
case(ACTION):
/* don't want to search if shift */
/* key is pressed */
if (!w_current->SHIFTKEY) {
o_find_object(w_current, unsnapped_wx, unsnapped_wy, TRUE);
}
/* make sure the list is not empty */
if (!o_select_selected(w_current)) {
/* this means the above find did not
* find anything */
i_action_stop (w_current);
i_set_state(w_current, SELECT);
goto end_button_pressed;
}
/* determine here if copy or move */
if (w_current->ALTKEY) {
i_set_state(w_current, COPYMODE);
o_copy_start(w_current, w_x, w_y);
} else {
o_move_start(w_current, w_x, w_y);
}
break;
case(REPEAT):
if (w_current->last_callback != NULL) {
(*w_current->last_callback)(w_current, 0, NULL);
}
break;
#ifdef HAVE_LIBSTROKE
case(STROKE):
DOING_STROKE=TRUE;
break;
#endif /* HAVE_LIBSTROKE */
case(MID_MOUSEPAN_ENABLED):
gschem_page_view_pan_start (page_view, (int) event->x, (int) event->y);
break;
}
} else if (event->button == 3) {
if (!w_current->inside_action) {
if (w_current->third_button == POPUP_ENABLED) {
/* (third-button "popup") */
i_update_menus(w_current); /* update menus before popup */
do_popup(w_current, event);
} else {
/* (third-button "mousepan") */
gschem_page_view_pan_start (page_view, (int) event->x, (int) event->y);
}
} else {
if ((w_current->third_button == MOUSEPAN_ENABLED) &&
(!w_current->third_button_cancel)) {
gschem_page_view_pan_start (page_view, (int) event->x, (int) event->y);
} else { /* this is the default cancel */
/* reset all draw and place actions */
switch (w_current->event_state) {
case (ARCMODE) : o_arc_invalidate_rubber (w_current); break;
case (BOXMODE) : o_box_invalidate_rubber (w_current); break;
case (BUSMODE) : o_bus_invalidate_rubber (w_current); break;
case (CIRCLEMODE) : o_circle_invalidate_rubber (w_current); break;
case (LINEMODE) : o_line_invalidate_rubber (w_current); break;
case (NETMODE) : o_net_reset (w_current); break;
case (PATHMODE) : o_path_invalidate_rubber (w_current); break;
case (PICTUREMODE): o_picture_invalidate_rubber (w_current); break;
case (PINMODE) : o_pin_invalidate_rubber (w_current); break;
default:
i_callback_cancel(w_current, 0, NULL);
break;
}
}
}
}
end_button_pressed:
scm_dynwind_end ();
return(0);
}
/*! \brief finish a net drawing action
* \par Function Description
* This function finishes the drawing of a net. If we have a visible
* magnetic marker, we use that instead of the current cursor
* position.
*
* The rubber nets are removed, the nets and cues are drawn and the
* net is added to the TOPLEVEL structure.
*
* The function returns TRUE if it has drawn a net, FALSE otherwise.
*/
void o_net_end(GschemToplevel *w_current, int w_x, int w_y)
{
int primary_zero_length, secondary_zero_length;
int found_primary_connection = FALSE;
int save_wx, save_wy;
GList *prev_conn_objects;
OBJECT *new_net = NULL;
/* Save a list of added objects to run the %add-objects-hook later */
GList *added_objects = NULL;
g_assert( w_current->inside_action != 0 );
GschemPageView *page_view = gschem_toplevel_get_current_page_view (w_current);
g_return_if_fail (page_view != NULL);
PAGE *page = gschem_page_view_get_page (page_view);
g_return_if_fail (page != NULL);
o_net_invalidate_rubber (w_current);
if (w_current->magnetic_wx != -1 && w_current->magnetic_wy != -1)
o_net_finishmagnetic(w_current);
w_current->rubber_visible = 0;
/* See if either of the nets are zero length. We'll only add */
/* the non-zero ones */
primary_zero_length = (w_current->first_wx == w_current->second_wx) &&
(w_current->first_wy == w_current->second_wy);
secondary_zero_length = (w_current->second_wx == w_current->third_wx) &&
(w_current->second_wy == w_current->third_wy);
/* If both nets are zero length... */
/* this ends the net drawing behavior */
if ( primary_zero_length && secondary_zero_length ) {
o_net_reset(w_current);
return;
}
save_wx = w_current->third_wx;
save_wy = w_current->third_wy;
if (w_current->third_wx != snap_grid (w_current, w_current->third_wx)
|| w_current->third_wy != snap_grid (w_current, w_current->third_wy))
s_log_message(_("Warning: Ending net at off grid coordinate\n"));
if (!primary_zero_length ) {
/* create primary net */
new_net = o_net_new(page->toplevel, OBJ_NET, NET_COLOR,
w_current->first_wx, w_current->first_wy,
w_current->second_wx, w_current->second_wy);
s_page_append (page->toplevel, page, new_net);
added_objects = g_list_prepend (added_objects, new_net);
/* conn stuff */
/* LEAK CHECK 1 */
prev_conn_objects = s_conn_return_others (NULL, new_net);
o_net_add_busrippers (w_current, new_net, prev_conn_objects);
g_list_free (prev_conn_objects);
#if DEBUG
printf("primary:\n");
s_conn_print(new_net->conn_list);
#endif
/* Go off and search for valid connection on this newly created net */
found_primary_connection = s_conn_net_search(new_net, 1,
new_net->conn_list);
if (found_primary_connection)
{
/* if a net connection is found, reset start point of next net */
save_wx = w_current->second_wx;
save_wy = w_current->second_wy;
}
}
/* If the second net is not zero length, add it as well */
/* Also, a valid net connection from the primary net was not found */
if (!secondary_zero_length && !found_primary_connection) {
/* Add secondary net */
new_net = o_net_new(page->toplevel, OBJ_NET, NET_COLOR,
w_current->second_wx, w_current->second_wy,
w_current->third_wx, w_current->third_wy);
s_page_append (page->toplevel, page, new_net);
added_objects = g_list_prepend (added_objects, new_net);
/* conn stuff */
/* LEAK CHECK 2 */
prev_conn_objects = s_conn_return_others (NULL, new_net);
o_net_add_busrippers (w_current, new_net, prev_conn_objects);
g_list_free (prev_conn_objects);
#if DEBUG
s_conn_print(new_net->conn_list);
#endif
}
/* Call add-objects-hook */
if (added_objects != NULL) {
g_run_hook_object_list (w_current, "%add-objects-hook", added_objects);
g_list_free (added_objects);
}
w_current->first_wx = save_wx;
w_current->first_wy = save_wy;
gschem_toplevel_page_content_changed (w_current, page);
o_undo_savestate_old(w_current, UNDO_ALL);
/* Continue net drawing */
o_net_start(w_current, w_current->first_wx, w_current->first_wy);
}
