i_callbacks.c

Go to the documentation of this file.

/* gEDA - GPL Electronic Design Automation
 * gschem - gEDA Schematic Capture
 * Copyright (C) 1998-2010 Ales Hvezda
 * Copyright (C) 1998-2011 gEDA Contributors (see ChangeLog for details)
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 */
#include <config.h>

#include <stdio.h>
#ifdef HAVE_STRING_H
#include <string.h>
#endif
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif

#include "gschem.h"

#ifdef HAVE_LIBDMALLOC
#include <dmalloc.h>
#endif

#define DELIMITERS ", "

/* every i_callback functions have the same footprint */
#define DEFINE_I_CALLBACK(name)             \
    void i_callback_ ## name(gpointer data,     \
                     guint callback_action, \
                     GtkWidget *widget)

DEFINE_I_CALLBACK(file_new)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*)data;
  PAGE *page;

  g_return_if_fail (w_current != NULL);

  /* create a new page */
  page = x_window_open_page (w_current, NULL);
  x_window_set_current_page (w_current, page);
  s_log_message (_("New page created [%s]\n"), page->page_filename);
}

void i_callback_toolbar_file_new(GtkWidget* widget, gpointer data)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  g_return_if_fail (w_current != NULL);
  if (!w_current->window) return;
    
  i_callback_file_new(data, 0, NULL);
}

DEFINE_I_CALLBACK(file_new_window)
{
  GSCHEM_TOPLEVEL *w_current;
  PAGE *page;

  w_current = gschem_toplevel_new ();
  gschem_toplevel_alloc_libgeda_toplevel (w_current);

  w_current->toplevel->load_newer_backup_func = x_fileselect_load_backup;
  w_current->toplevel->load_newer_backup_data = w_current;

  o_text_set_rendered_bounds_func (w_current->toplevel,
                                   o_text_get_rendered_bounds, w_current);

  /* Damage notifications should invalidate the object on screen */
  o_add_change_notify (w_current->toplevel,
                       (ChangeNotifyFunc) o_invalidate,
                       (ChangeNotifyFunc) o_invalidate, w_current);

  x_window_setup (w_current);

  page = x_window_open_page (w_current, NULL);
  x_window_set_current_page (w_current, page);
  s_log_message (_("New Window created [%s]\n"), page->page_filename);
}

DEFINE_I_CALLBACK(file_open)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  x_fileselect_open (w_current);
}

void i_callback_toolbar_file_open(GtkWidget* widget, gpointer data)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  g_return_if_fail (w_current != NULL);
  if (!w_current->window) return;

  i_callback_file_open(data, 0, NULL);
}

DEFINE_I_CALLBACK(file_script)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);
  setup_script_selector(w_current);
}

DEFINE_I_CALLBACK(file_save)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  if (strstr(w_current->toplevel->page_current->page_filename,
             w_current->toplevel->untitled_name)) {
    x_fileselect_save (w_current);
  } else {
    x_window_save_page (w_current,
                        w_current->toplevel->page_current,
                        w_current->toplevel->page_current->page_filename);
  }
}

void i_callback_toolbar_file_save(GtkWidget* widget, gpointer data)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  g_return_if_fail (w_current != NULL);
  if (!w_current->window) return;

  i_callback_file_save(data, 0, NULL);
}

DEFINE_I_CALLBACK(file_save_all)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  if (s_page_save_all(w_current->toplevel)) {
     i_set_state_msg(w_current, SELECT, _("Failed to Save All"));
  } else {
     i_set_state_msg(w_current, SELECT, _("Saved All"));
  }

  i_update_toolbar(w_current);
  x_pagesel_update (w_current);
  i_update_menus(w_current);
}

DEFINE_I_CALLBACK(file_save_as)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);
  x_fileselect_save (w_current);
}

DEFINE_I_CALLBACK(file_print)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  char *base=NULL, *filename;
  char *ps_filename=NULL;
  
  g_return_if_fail (w_current != NULL);
  g_return_if_fail (w_current->toplevel->page_current->page_filename != NULL);

  /* shortcut */
  filename = w_current->toplevel->page_current->page_filename;

  /* get the base file name */
  if (g_str_has_suffix(filename, ".sch")) {
    /* the filename ends with ".sch", remove it */
    base = g_strndup(filename, strlen(filename) - strlen(".sch"));
  } else {
    /* the filename does not end with .sch */
    base = g_strdup (filename);
  }

  /* add ".ps" tp the base filename */
  ps_filename = g_strconcat (base, ".ps", NULL);
  g_free(base);

  if (output_filename) {
    x_print_setup(w_current, output_filename);
  } else {
    x_print_setup(w_current, ps_filename);
  }

  g_free(ps_filename);
}

DEFINE_I_CALLBACK(file_write_png)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  x_image_setup(w_current);
}

DEFINE_I_CALLBACK(file_close)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  s_log_message(_("Closing Window\n"));
  x_window_close(w_current);
}

int i_callback_close(gpointer data, guint callback_action, GtkWidget *widget)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_val_if_fail ((w_current != NULL), FALSE);
  i_callback_file_close(w_current, 0, widget);
  return(FALSE);
}

DEFINE_I_CALLBACK(file_quit)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);
  x_window_close_all(w_current);
}

DEFINE_I_CALLBACK(edit_undo)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  /* If we're cancelling from a move action, re-wind the
   * page contents back to their state before we started.
   *
   * It "might" be nice to sub-undo rotates / zoom changes
   * made whilst moving components, but when the undo code
   * hits s_page_delete(), the place list objects are free'd.
   * Since they are also contained in the schematic page, a
   * crash occurs when the page objects are free'd.
   * */
  if (w_current->inside_action &&
      (w_current->event_state == MOVE ||
       w_current->event_state == ENDMOVE)) {
    i_callback_cancel (w_current, 0, NULL);
  } else {
    o_undo_callback(w_current, UNDO_ACTION);
  }
}

void i_callback_toolbar_edit_undo(GtkWidget* widget, gpointer data)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  g_return_if_fail (w_current != NULL);
  if (!w_current->window) return;

  i_callback_edit_undo(data, 0, NULL);
}

DEFINE_I_CALLBACK(edit_redo)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  o_undo_callback(w_current, REDO_ACTION);
}

void i_callback_toolbar_edit_redo(GtkWidget* widget, gpointer data)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  g_return_if_fail (w_current != NULL);
  if (!w_current->window) return;

  i_callback_edit_redo(data, 0, NULL);
}

DEFINE_I_CALLBACK(edit_select)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  o_redraw_cleanstates(w_current);  

  /* this is probably the only place this should be */
  i_set_state(w_current, SELECT);
  i_update_toolbar(w_current);
  w_current->inside_action = 0;
}

void i_callback_toolbar_edit_select(GtkWidget* widget, gpointer data)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  g_return_if_fail (w_current != NULL);
  if (!w_current->window) return;

  if (GTK_TOGGLE_BUTTON (widget)->active) {
    if (!o_invalidate_rubber (w_current)) {
      i_callback_cancel(w_current, 0, NULL);
    }
    i_callback_edit_select(data, 0, NULL);
  }
}

DEFINE_I_CALLBACK (edit_select_all)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL *) data;
  o_redraw_cleanstates (w_current);

  o_select_visible_unlocked (w_current);

  i_set_state (w_current, SELECT);
  w_current->inside_action = 0;
  i_update_toolbar (w_current);
  i_update_menus (w_current);
}

DEFINE_I_CALLBACK (edit_deselect)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL *) data;
  o_redraw_cleanstates (w_current);

  o_select_unselect_all (w_current);

  i_set_state (w_current, SELECT);
  w_current->inside_action = 0;
  i_update_toolbar (w_current);
  i_update_menus (w_current);
}

DEFINE_I_CALLBACK(edit_copy)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  i_update_middle_button(w_current, i_callback_edit_copy, _("Copy"));
  if (o_select_return_first_object(w_current)) {
    o_redraw_cleanstates(w_current);
    i_set_state(w_current, STARTCOPY);
  } else {
    i_set_state_msg(w_current, SELECT, _("Select objs first"));
  }
}

DEFINE_I_CALLBACK(edit_copy_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  gint wx, wy; 

  g_return_if_fail (w_current != NULL);

  if (!x_event_get_pointer_position(w_current, TRUE, &wx, &wy))
    return;

  i_update_middle_button(w_current, i_callback_edit_copy_hotkey, _("Copy"));
  if (o_select_return_first_object(w_current)) {
    o_redraw_cleanstates(w_current);
    w_current->event_state = COPY;
    o_copy_start(w_current, wx, wy);
    w_current->event_state = ENDCOPY;
    w_current->inside_action = 1;
  }
}

DEFINE_I_CALLBACK(edit_mcopy)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  i_update_middle_button(w_current, i_callback_edit_copy, _("Multiple Copy"));
  if (o_select_return_first_object(w_current)) {
    o_redraw_cleanstates(w_current);
    i_set_state(w_current, STARTMCOPY);
  } else {
    i_set_state_msg(w_current, SELECT, _("Select objs first"));
  }
}

DEFINE_I_CALLBACK(edit_mcopy_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  gint wx, wy; 

  g_return_if_fail (w_current != NULL);

  if (!x_event_get_pointer_position(w_current, TRUE, &wx, &wy))
    return;

  i_update_middle_button(w_current, i_callback_edit_mcopy_hotkey, _("Multiple Copy"));
  if (o_select_return_first_object(w_current)) {
    o_redraw_cleanstates(w_current);    
    w_current->event_state = MCOPY; 
    o_copy_start(w_current, wx, wy);
    w_current->event_state = ENDMCOPY;
    w_current->inside_action = 1;
  }
}

DEFINE_I_CALLBACK(edit_move)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  i_update_middle_button(w_current, i_callback_edit_move, _("Move"));
  if (o_select_return_first_object(w_current)) {
    o_redraw_cleanstates(w_current);
    i_set_state(w_current, STARTMOVE);
  } else {
    i_set_state_msg(w_current, SELECT, _("Select objs first"));
  }
}

DEFINE_I_CALLBACK(edit_move_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  gint wx, wy; 

  g_return_if_fail (w_current != NULL);

  if (!x_event_get_pointer_position(w_current, TRUE, &wx, &wy))
    return;

  i_update_middle_button(w_current, i_callback_edit_move_hotkey, _("Move"));
  if (o_select_return_first_object(w_current)) {
    o_redraw_cleanstates(w_current);
    o_move_start(w_current, wx, wy);
    w_current->event_state = ENDMOVE;
    w_current->inside_action = 1;
  }
}

DEFINE_I_CALLBACK(edit_delete)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  i_update_middle_button(w_current, i_callback_edit_delete, _("Delete"));

  if (o_select_return_first_object(w_current)) {
    o_redraw_cleanstates(w_current);    
    o_delete_selected(w_current);
    /* if you delete the objects you must go into select
     * mode after the delete */
    w_current->inside_action = 0;
    i_set_state(w_current, SELECT);
    i_update_toolbar(w_current);
    i_update_menus(w_current);
  }
}

DEFINE_I_CALLBACK(edit_edit)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  i_update_middle_button(w_current, i_callback_edit_edit, _("Edit"));
  o_edit(w_current, geda_list_get_glist( w_current->toplevel->page_current->selection_list ) );
}

DEFINE_I_CALLBACK(edit_pin_type)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  i_update_middle_button (w_current, i_callback_edit_pin_type, _("Edit pin type"));

  x_dialog_edit_pin_type (w_current,
                          geda_list_get_glist (w_current->toplevel->
                                                 page_current->selection_list));
}

DEFINE_I_CALLBACK(edit_text)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  OBJECT *object;

  g_return_if_fail (w_current != NULL);

  i_update_middle_button(w_current, i_callback_edit_text, _("Edit Text"));
  object = o_select_return_first_object(w_current);
  if (object) {
    if (object->type == OBJ_TEXT) {
      o_text_edit(w_current, object);
    }
  }
}

DEFINE_I_CALLBACK(edit_slot)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  OBJECT *object;

  g_return_if_fail (w_current != NULL);

  object = o_select_return_first_object(w_current);

  i_update_middle_button(w_current, i_callback_edit_slot, _("Slot"));
  if (object) {
    o_slot_start(w_current, object);
  }
}

DEFINE_I_CALLBACK(edit_color)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  i_update_middle_button(w_current, i_callback_edit_color, _("Color"));

  color_edit_dialog(w_current);
}

DEFINE_I_CALLBACK(edit_rotate_90)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  /* If inside an appropriate action, send a button 2 released,
   * so rotating will be handled by x_event.c */
  if ( w_current->inside_action &&
       (w_current->event_state == ENDCOMP ||
        w_current->event_state == ENDTEXT ||
        w_current->event_state == ENDMOVE ||
        w_current->event_state == ENDCOPY ||
        w_current->event_state == ENDMCOPY ||
        w_current->event_state == ENDPASTE )) {
      GdkEvent* event;

      event = gdk_event_new(GDK_BUTTON_RELEASE);
      ((GdkEventButton*) event)->button = 2;
      x_event_button_released (NULL, (GdkEventButton *) event, w_current);
      gdk_event_free(event);

      return;
    }

  i_set_state(w_current, ENDROTATEP);
  i_update_middle_button(w_current, i_callback_edit_rotate_90, _("Rotate"));
}

DEFINE_I_CALLBACK(edit_rotate_90_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  GList *object_list;
  gint wx, wy; 

  g_return_if_fail (w_current != NULL);

  if (!x_event_get_pointer_position(w_current, TRUE, &wx, &wy))
    return;

  /* If inside an appropriate action, send a button 2 released,
   * so rotating will be handled by x_event.c */
  if ( w_current->inside_action &&
       (w_current->event_state == ENDCOMP ||
        w_current->event_state == ENDTEXT ||
        w_current->event_state == ENDMOVE ||
        w_current->event_state == ENDCOPY ||
        w_current->event_state == ENDMCOPY ||
        w_current->event_state == ENDPASTE )) {
      GdkEvent* event;

      event = gdk_event_new(GDK_BUTTON_RELEASE);
      ((GdkEventButton*) event)->button = 2;
      x_event_button_released (NULL, (GdkEventButton *) event, w_current);
      gdk_event_free(event);

      return;
    }

  o_redraw_cleanstates(w_current);

  object_list = geda_list_get_glist( w_current->toplevel->page_current->selection_list );

  if (object_list) {
    i_update_middle_button(w_current,
                           i_callback_edit_rotate_90_hotkey, _("Rotate"));
    /* Allow o_rotate_world_update to redraw the objects */
    o_rotate_world_update(w_current, wx, wy, 90, object_list);
  }

  w_current->event_state = SELECT;
  w_current->inside_action = 0;
  i_update_toolbar(w_current);
}

DEFINE_I_CALLBACK(edit_mirror)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  i_set_state(w_current, ENDMIRROR);
  i_update_middle_button(w_current, i_callback_edit_mirror, _("Mirror"));
}

DEFINE_I_CALLBACK(edit_mirror_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  GList *object_list;
  gint wx, wy; 

  g_return_if_fail (w_current != NULL);

  if (!x_event_get_pointer_position(w_current, TRUE, &wx, &wy))
    return;

  o_redraw_cleanstates(w_current);  

  object_list = geda_list_get_glist( w_current->toplevel->page_current->selection_list );

  if (object_list) {
    i_update_middle_button(w_current,
                           i_callback_edit_mirror_hotkey, _("Mirror"));
    o_mirror_world_update(w_current, wx, wy, object_list);
  }

  w_current->event_state = SELECT;
  w_current->inside_action = 0;
  i_update_toolbar(w_current);
}

DEFINE_I_CALLBACK(edit_lock)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  i_update_middle_button(w_current, i_callback_edit_lock, _("Lock"));

  if (o_select_return_first_object(w_current)) {
    o_lock(w_current);
  }
}

DEFINE_I_CALLBACK(edit_unlock)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  i_update_middle_button(w_current, i_callback_edit_unlock, _("Unlock"));
  if (o_select_return_first_object(w_current)) {
    o_unlock(w_current);
  }
}

DEFINE_I_CALLBACK(edit_translate)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  i_update_middle_button(w_current,
                         i_callback_edit_translate, _("Translate"));

  if (w_current->snap == SNAP_OFF) {
    s_log_message(_("WARNING: Do not translate with snap off!\n"));
    s_log_message(_("WARNING: Turning snap on and continuing "
                  "with translate.\n"));
    w_current->snap = SNAP_GRID;
    i_show_state(w_current, NULL); /* update status on screen */
  }

  if (w_current->snap_size != 100) {
    s_log_message(_("WARNING: Snap grid size is "
                  "not equal to 100!\n"));
    s_log_message(_("WARNING: If you are translating a symbol "
                  "to the origin, the snap grid size should be "
                  "set to 100\n"));
  }

  translate_dialog(w_current);
}

DEFINE_I_CALLBACK(edit_invoke_macro)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  gtk_widget_show(w_current->macro_box);
  gtk_widget_grab_focus(w_current->macro_entry);
}

DEFINE_I_CALLBACK(edit_embed)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  OBJECT *o_current;

  g_return_if_fail (w_current != NULL);

  i_update_middle_button(w_current, i_callback_edit_embed, _("Embed"));
  /* anything selected ? */
  if (o_select_selected(w_current)) {
    /* yes, embed each selected component */
    GList *s_current =
      geda_list_get_glist( w_current->toplevel->page_current->selection_list );

    while (s_current != NULL) {
      o_current = (OBJECT *) s_current->data;
      g_assert (o_current != NULL);
      if ( (o_current->type == OBJ_COMPLEX) ||
       (o_current->type == OBJ_PICTURE) ) {
        o_embed (w_current->toplevel, o_current);
      }
      s_current = g_list_next(s_current);
    }
    o_undo_savestate(w_current, UNDO_ALL);
  } else {
    /* nothing selected, go back to select state */
    o_redraw_cleanstates(w_current);    
    w_current->inside_action = 0;
    i_set_state(w_current, SELECT);
  }
  
}

DEFINE_I_CALLBACK(edit_unembed)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  OBJECT *o_current;

  g_return_if_fail (w_current != NULL);

  i_update_middle_button(w_current, i_callback_edit_unembed, _("Unembed"));
  /* anything selected ? */
  if (o_select_selected(w_current)) {
    /* yes, unembed each selected component */
    GList *s_current =
      geda_list_get_glist( w_current->toplevel->page_current->selection_list );

    while (s_current != NULL) {
      o_current = (OBJECT *) s_current->data;
      g_assert (o_current != NULL);
      if ( (o_current->type == OBJ_COMPLEX) ||
           (o_current->type == OBJ_PICTURE) ) {
        o_unembed (w_current->toplevel, o_current);
      }
      s_current = g_list_next(s_current);
    }
    o_undo_savestate(w_current, UNDO_ALL);
  } else {
    /* nothing selected, go back to select state */
    o_redraw_cleanstates(w_current);    
    w_current->inside_action = 0;
    i_set_state(w_current, SELECT);
  }

}

DEFINE_I_CALLBACK(edit_update)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  TOPLEVEL *toplevel = w_current->toplevel;
  GList *selection;
  GList *selected_components = NULL;
  GList *iter;

  g_return_if_fail (w_current != NULL);

  i_update_middle_button(w_current, i_callback_edit_update, _("Update"));
  if (o_select_selected(w_current)) {

    /* Updating components modifies the selection. Therefore, create a
     * new list of only the OBJECTs we want to update from the current
     * selection, then iterate over that new list to perform the
     * update. */
    selection = geda_list_get_glist (toplevel->page_current->selection_list);
    for (iter = selection; iter != NULL; iter = g_list_next (iter)) {
      OBJECT *o_current = (OBJECT *) iter->data;
      if (o_current != NULL && o_current->type == OBJ_COMPLEX) {
        selected_components = g_list_prepend (selected_components, o_current);
      }
    }
    for (iter = selected_components; iter != NULL; iter = g_list_next (iter)) {
      OBJECT *o_current = (OBJECT *) iter->data;
      iter->data = o_update_component (w_current, o_current);
    }
    g_list_free (selected_components);

  } else {
    /* nothing selected, go back to select state */
    o_redraw_cleanstates(w_current);    
    w_current->inside_action = 0;
    i_set_state(w_current, SELECT);
  }

}

DEFINE_I_CALLBACK(edit_show_hidden)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  /* This is a new addition 3/15 to prevent this from executing
   * inside an action */
  if (w_current->inside_action)
    return;

  i_update_middle_button(w_current,
                         i_callback_edit_show_hidden,
                         _("ShowHidden"));

  o_edit_show_hidden (w_current,
                      s_page_objects (w_current->toplevel->page_current));
}

DEFINE_I_CALLBACK(edit_find)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  /* This is a new addition 3/15 to prevent this from executing
   * inside an action */
  if (w_current->inside_action)
    return;

  find_text_dialog(w_current);
}

DEFINE_I_CALLBACK(edit_hide_text)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  /* This is a new addition 3/15 to prevent this from executing
   * inside an action */
  if (w_current->inside_action)
    return;

  hide_text_dialog(w_current);
}

DEFINE_I_CALLBACK(edit_show_text)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  /* This is a new addition 3/15 to prevent this from executing
   * inside an action */
  if (w_current->inside_action)
    return;

  show_text_dialog(w_current);
}

DEFINE_I_CALLBACK(edit_autonumber_text)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  /* This is a new addition 3/15 to prevent this from executing
   * inside an action */
  if (w_current->inside_action)
    return;

  autonumber_text_dialog(w_current);
}

DEFINE_I_CALLBACK(edit_linetype)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  line_type_dialog(w_current);
}

DEFINE_I_CALLBACK(edit_filltype)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  fill_type_dialog(w_current);
}

DEFINE_I_CALLBACK(view_redraw)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);
  o_invalidate_all (w_current);
}

DEFINE_I_CALLBACK(view_zoom_full)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  /* scroll bar stuff */
  a_zoom(w_current, ZOOM_FULL, DONTCARE, 0);

  if (w_current->undo_panzoom) {
    o_undo_savestate(w_current, UNDO_VIEWPORT_ONLY); 
  }
}

DEFINE_I_CALLBACK(view_zoom_extents)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  /* scroll bar stuff */
  a_zoom_extents (w_current,
                  s_page_objects (w_current->toplevel->page_current), 0);
  if (w_current->undo_panzoom) {
    o_undo_savestate(w_current, UNDO_VIEWPORT_ONLY);
  }
}

DEFINE_I_CALLBACK(view_zoom_box)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  o_redraw_cleanstates(w_current);  
  w_current->inside_action = 0;
  i_set_state(w_current, ZOOMBOXSTART);
}

DEFINE_I_CALLBACK(view_zoom_box_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  gint wx, wy; 

  g_return_if_fail (w_current != NULL);

  if (!x_event_get_pointer_position(w_current, FALSE, &wx, &wy))
    return;

  o_redraw_cleanstates(w_current);
  a_zoom_box_start(w_current, wx, wy);

  w_current->inside_action = 1;
  i_set_state(w_current, ZOOMBOXEND);
}

DEFINE_I_CALLBACK(view_zoom_in)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  a_zoom(w_current, ZOOM_IN, MENU, 0);

  if (w_current->undo_panzoom) {
    o_undo_savestate(w_current, UNDO_VIEWPORT_ONLY); 
  }
}

DEFINE_I_CALLBACK(view_zoom_out)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  a_zoom(w_current, ZOOM_OUT, MENU, 0);
 
  if (w_current->undo_panzoom) {
    o_undo_savestate(w_current, UNDO_VIEWPORT_ONLY); 
  }
}

DEFINE_I_CALLBACK(view_zoom_in_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  a_zoom(w_current, ZOOM_IN, HOTKEY, 0);

  if (w_current->undo_panzoom) {
    o_undo_savestate(w_current, UNDO_VIEWPORT_ONLY); 
  }
}

DEFINE_I_CALLBACK(view_zoom_out_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  a_zoom(w_current, ZOOM_OUT, HOTKEY, 0);

  if (w_current->undo_panzoom) {
    o_undo_savestate(w_current, UNDO_VIEWPORT_ONLY); 
  }
}

DEFINE_I_CALLBACK(view_pan)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  o_redraw_cleanstates(w_current);  
  w_current->inside_action = 0;
  i_set_state(w_current, STARTPAN);

  /* I don't know if this would get in the way */
  i_update_middle_button(w_current, i_callback_view_pan, _("Pan"));
}

DEFINE_I_CALLBACK(view_pan_left)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  a_pan_mouse(w_current, w_current->keyboardpan_gain, 0);
}

DEFINE_I_CALLBACK(view_pan_right)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  /* yes, that's a negative sign there */
  a_pan_mouse(w_current, -w_current->keyboardpan_gain, 0);
}

DEFINE_I_CALLBACK(view_pan_up)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  a_pan_mouse(w_current, 0, w_current->keyboardpan_gain);
}

DEFINE_I_CALLBACK(view_pan_down)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  /* yes, that's a negative sign there */
  a_pan_mouse(w_current, 0, -w_current->keyboardpan_gain);
}

DEFINE_I_CALLBACK(view_pan_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  gint wx, wy; 

  g_return_if_fail (w_current != NULL);

  if (!x_event_get_pointer_position(w_current, FALSE, &wx, &wy))
    return;

  i_update_middle_button(w_current, i_callback_view_pan_hotkey, _("Pan"));

  a_pan(w_current, wx, wy);

  if (w_current->undo_panzoom) {
    o_undo_savestate(w_current, UNDO_VIEWPORT_ONLY); 
  }
}

DEFINE_I_CALLBACK (view_dark_colors)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  x_color_free ();
  /* Change the scheme here */
  g_scm_c_eval_string_protected ("(load (build-path geda-rc-path \"gschem-colormap-darkbg\"))");
  x_color_allocate ();

  o_invalidate_all (w_current);
}

DEFINE_I_CALLBACK (view_light_colors)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  x_color_free ();
  /* Change the scheme here */
  g_scm_c_eval_string_protected ("(load (build-path geda-rc-path \"gschem-colormap-lightbg\"))");
  x_color_allocate ();

  o_invalidate_all (w_current);
}

DEFINE_I_CALLBACK (view_bw_colors)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  x_color_free ();
  /* Change the scheme here */
  g_scm_c_eval_string_protected ("(load (build-path geda-rc-path \"gschem-colormap-bw\"))");
  x_color_allocate ();

  o_invalidate_all (w_current);
}

DEFINE_I_CALLBACK(page_manager)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  x_pagesel_open (w_current);
}

DEFINE_I_CALLBACK(page_next)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*)data;
  TOPLEVEL *toplevel = w_current->toplevel;
  PAGE *p_current = toplevel->page_current;
  PAGE *p_new;
  GList *iter;

  g_return_if_fail (w_current != NULL);

  iter = g_list_find( geda_list_get_glist( toplevel->pages ), p_current );
  iter = g_list_next( iter );

  if (iter == NULL) {
    return;
  }

  if (w_current->enforce_hierarchy) {
    p_new = s_hierarchy_find_next_page(toplevel->pages, p_current);
  } else {
    p_new = (PAGE *)iter->data;
  }

  if (p_new == NULL || p_new == p_current) {
    return;
  }

  x_window_set_current_page (w_current, p_new);
}

DEFINE_I_CALLBACK(page_prev)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*)data;
  TOPLEVEL *toplevel = w_current->toplevel;
  PAGE *p_current = toplevel->page_current;
  PAGE *p_new;
  GList *iter;

  g_return_if_fail (w_current != NULL);

  iter = g_list_find( geda_list_get_glist( toplevel->pages ), p_current );
  iter = g_list_previous( iter );

  if ( iter == NULL  )
    return;

  p_new = (PAGE *)iter->data;

  if (w_current->enforce_hierarchy) {
    p_new = s_hierarchy_find_prev_page(toplevel->pages, p_current);
  } else {
    p_new = (PAGE *)iter->data;
  }

  if (p_new == NULL || p_new == p_current) {
    return;
  }

  x_window_set_current_page (w_current, p_new);
}

DEFINE_I_CALLBACK(page_new)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*)data;
  PAGE *page;

  g_return_if_fail (w_current != NULL);

  /* create a new page */
  page = x_window_open_page (w_current, NULL);
  x_window_set_current_page (w_current, page);
  s_log_message (_("New page created [%s]\n"), page->page_filename);
}

DEFINE_I_CALLBACK(page_close)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  if (w_current->toplevel->page_current->CHANGED) {
    x_dialog_close_changed_page (w_current, w_current->toplevel->page_current);
  } else {
    x_window_close_page (w_current, w_current->toplevel->page_current);
  }

}

DEFINE_I_CALLBACK(page_revert)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  PAGE *page;
  gchar *filename;
  int page_control;
  int up;
  int response;
  GtkWidget* dialog;

  g_return_if_fail (w_current != NULL);

  dialog = gtk_message_dialog_new ((GtkWindow*) w_current->main_window,
                                   GTK_DIALOG_DESTROY_WITH_PARENT,
                                   GTK_MESSAGE_QUESTION,
                                   GTK_BUTTONS_YES_NO,
                                   _("Really revert page?"));

  /* Set the alternative button order (ok, cancel, help) for other systems */
  gtk_dialog_set_alternative_button_order(GTK_DIALOG(dialog),
                      GTK_RESPONSE_YES,
                      GTK_RESPONSE_NO,
                      -1);

  response = gtk_dialog_run (GTK_DIALOG (dialog));
  gtk_widget_destroy (dialog);

  if (response != GTK_RESPONSE_YES )
    return;

  /* save this for later */
  filename = g_strdup (w_current->toplevel->page_current->page_filename);
  page_control = w_current->toplevel->page_current->page_control;
  up = w_current->toplevel->page_current->up;

  /* delete the page, then re-open the file as a new page */
  s_page_delete (w_current->toplevel, w_current->toplevel->page_current);

  page = x_window_open_page (w_current, filename);

  /* make sure we maintain the hierarchy info */
  page->page_control = page_control;
  page->up = up;

  x_window_set_current_page (w_current, page);
}

DEFINE_I_CALLBACK(page_discard)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*)data;

  g_return_if_fail (w_current != NULL);

  x_window_close_page (w_current, w_current->toplevel->page_current);
}

DEFINE_I_CALLBACK(page_print)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  s_page_print_all(w_current->toplevel);
}

DEFINE_I_CALLBACK(clipboard_copy)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);
  if (!o_select_selected (w_current)) return;

  i_update_middle_button (w_current, i_callback_clipboard_copy,
                          _("Copy to clipboard"));

  o_buffer_copy (w_current, 0);
  x_clipboard_set (w_current, object_buffer[0]);
}

DEFINE_I_CALLBACK(clipboard_cut)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);
  if (!o_select_selected (w_current)) return;

  i_update_middle_button (w_current, i_callback_clipboard_cut,
                          _("Cut to clipboard"));

  o_buffer_cut (w_current, 0);
  x_clipboard_set (w_current, object_buffer[0]);
}

DEFINE_I_CALLBACK(clipboard_paste)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL *) data;
  TOPLEVEL *toplevel = w_current->toplevel;
  GList *object_list = NULL;

  g_return_if_fail (w_current != NULL);

  i_update_middle_button (w_current, i_callback_buffer_paste1, _("Paste from clipboard"));

  object_list = x_clipboard_get (w_current);

  if (object_list != NULL) {
    s_delete_object_glist (toplevel, object_buffer[0]);
    object_buffer[0] = object_list;
    o_redraw_cleanstates (w_current);
    w_current->buffer_number = 0;
    w_current->inside_action = 1;
    i_set_state (w_current, STARTPASTE);
  } else {
    i_set_state_msg (w_current, SELECT, _("Empty buffer"));
  }
}

DEFINE_I_CALLBACK(clipboard_paste_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL *) data;
  TOPLEVEL *toplevel = w_current->toplevel;
  GList *object_list = NULL;
  gint wx, wy;

  g_return_if_fail (w_current != NULL);

  if (!x_event_get_pointer_position (w_current, TRUE, &wx, &wy))
    return;

  object_list = x_clipboard_get (w_current);

  if (object_list == NULL) return;
  s_delete_object_glist (toplevel, object_buffer[0]);
  object_buffer[0] = object_list;

  o_buffer_paste_start (w_current, wx, wy, 0);
}

DEFINE_I_CALLBACK(buffer_copy1)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  if (!o_select_selected (w_current))
    return;

  i_update_middle_button(w_current, i_callback_buffer_copy1, _("Copy 1"));
  o_buffer_copy(w_current, 0);
  i_update_menus(w_current);
}

DEFINE_I_CALLBACK(buffer_copy2)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  if (!o_select_selected (w_current))
    return;

  i_update_middle_button(w_current, i_callback_buffer_copy2, _("Copy 2"));
  o_buffer_copy(w_current, 1);
  i_update_menus(w_current);
}

DEFINE_I_CALLBACK(buffer_copy3)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  if (!o_select_selected (w_current))
    return;

  i_update_middle_button(w_current, i_callback_buffer_copy3, _("Copy 3"));
  o_buffer_copy(w_current, 2);
  i_update_menus(w_current);
}

DEFINE_I_CALLBACK(buffer_copy4)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  if (!o_select_selected (w_current))
    return;

  i_update_middle_button(w_current, i_callback_buffer_copy4, _("Copy 4"));
  o_buffer_copy(w_current, 3);
  i_update_menus(w_current);
}

DEFINE_I_CALLBACK(buffer_copy5)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  if (!o_select_selected (w_current))
    return;

  i_update_middle_button(w_current, i_callback_buffer_copy5, _("Copy 5"));
  o_buffer_copy(w_current, 4);
  i_update_menus(w_current);
}

DEFINE_I_CALLBACK(buffer_cut1)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  if (!o_select_selected (w_current))
    return;

  i_update_middle_button(w_current, i_callback_buffer_cut1, _("Cut 1"));
  o_buffer_cut(w_current, 0);
  i_update_menus(w_current);
}

DEFINE_I_CALLBACK(buffer_cut2)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  if (!o_select_selected (w_current))
    return;

  i_update_middle_button(w_current, i_callback_buffer_cut2, _("Cut 2"));
  o_buffer_cut(w_current, 1);
  i_update_menus(w_current);
}

DEFINE_I_CALLBACK(buffer_cut3)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  if (!o_select_selected (w_current))
    return;

  i_update_middle_button(w_current, i_callback_buffer_cut3, _("Cut 3"));
  o_buffer_cut(w_current, 2);
  i_update_menus(w_current);
}

DEFINE_I_CALLBACK(buffer_cut4)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  if (!o_select_selected (w_current))
    return;

  i_update_middle_button(w_current, i_callback_buffer_cut4, _("Cut 4"));
  o_buffer_cut(w_current, 3);
  i_update_menus(w_current);
}

DEFINE_I_CALLBACK(buffer_cut5)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  if (!o_select_selected (w_current))
    return;

  i_update_middle_button(w_current, i_callback_buffer_cut5, _("Cut 5"));
  o_buffer_cut(w_current, 4);
  i_update_menus(w_current);
}

DEFINE_I_CALLBACK(buffer_paste1)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  i_update_middle_button(w_current, i_callback_buffer_paste1, _("Paste 1"));
  if (object_buffer[0] != NULL) {
    o_redraw_cleanstates(w_current);
    w_current->buffer_number = 0;
    w_current->inside_action = 1;
    i_set_state(w_current, STARTPASTE);
  } else {
    i_set_state_msg(w_current, SELECT, _("Empty buffer"));
  }
}

DEFINE_I_CALLBACK(buffer_paste2)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  i_update_middle_button(w_current, i_callback_buffer_paste2, _("Paste 2"));
  if (object_buffer[1] != NULL) {
    o_redraw_cleanstates(w_current);
    w_current->buffer_number = 1;
    w_current->inside_action = 1;
    i_set_state(w_current, STARTPASTE);
  } else {
    i_set_state_msg(w_current, SELECT, _("Empty buffer"));
  }
}

DEFINE_I_CALLBACK(buffer_paste3)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  i_update_middle_button(w_current, i_callback_buffer_paste3, _("Paste 3"));
  if (object_buffer[2] != NULL) {
    o_redraw_cleanstates(w_current);
    w_current->buffer_number = 2;
    w_current->inside_action = 1;
    i_set_state(w_current, STARTPASTE);
  } else {
    i_set_state_msg(w_current, SELECT, _("Empty buffer"));
  }
}

DEFINE_I_CALLBACK(buffer_paste4)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  i_update_middle_button(w_current, i_callback_buffer_paste4, _("Paste 4"));
  if (object_buffer[3] != NULL) {
    o_redraw_cleanstates(w_current);
    w_current->buffer_number = 3;
    w_current->inside_action = 1;
    i_set_state(w_current, STARTPASTE);
  } else {
    i_set_state_msg(w_current, SELECT, _("Empty buffer"));
  }
}

DEFINE_I_CALLBACK(buffer_paste5)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  i_update_middle_button(w_current, i_callback_buffer_paste5, _("Paste 5"));
  if (object_buffer[4] != NULL) {
    o_redraw_cleanstates(w_current);
    w_current->buffer_number = 4;
    w_current->inside_action = 1;
    i_set_state(w_current, STARTPASTE);
  } else {
    i_set_state_msg(w_current, SELECT, _("Empty buffer"));
  }
}

DEFINE_I_CALLBACK(buffer_paste1_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  gint wx, wy; 

  g_return_if_fail (w_current != NULL);

  if (object_buffer[0] == NULL) {
    return;
  }

  if (!x_event_get_pointer_position(w_current, TRUE, &wx, &wy))
    return;

  o_buffer_paste_start(w_current, wx, wy, 0);
}

DEFINE_I_CALLBACK(buffer_paste2_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  gint wx, wy; 

  g_return_if_fail (w_current != NULL);

  if (object_buffer[1] == NULL) {
    return;
  }

  if (!x_event_get_pointer_position(w_current, TRUE, &wx, &wy))
    return;

  o_buffer_paste_start(w_current, wx, wy, 1);
}

DEFINE_I_CALLBACK(buffer_paste3_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  gint wx, wy; 

  g_return_if_fail (w_current != NULL);

  if (object_buffer[2] == NULL) {
    return;
  }

  if (!x_event_get_pointer_position(w_current, TRUE, &wx, &wy))
    return;

  o_buffer_paste_start(w_current, wx, wy, 2);
}

DEFINE_I_CALLBACK(buffer_paste4_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  gint wx, wy; 

  g_return_if_fail (w_current != NULL);

  if (object_buffer[3] == NULL) {
    return;
  }

  if (!x_event_get_pointer_position(w_current, TRUE, &wx, &wy))
    return;

  o_buffer_paste_start(w_current, wx, wy, 3);
}

DEFINE_I_CALLBACK(buffer_paste5_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  gint wx, wy; 

  g_return_if_fail (w_current != NULL);

  if (object_buffer[4] == NULL) {
    return;
  }

  if (!x_event_get_pointer_position(w_current, TRUE, &wx, &wy))
    return;

  o_buffer_paste_start(w_current, wx, wy, 4);
}

DEFINE_I_CALLBACK(add_component)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  o_redraw_cleanstates (w_current);
  x_compselect_open (w_current);

  i_update_middle_button(w_current,
                         i_callback_add_component, _("Component"));

  i_set_state(w_current, SELECT);
  i_update_toolbar(w_current);
}

void i_callback_toolbar_add_component(GtkWidget* widget, gpointer data)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  g_return_if_fail (w_current != NULL);
  if (!w_current->window) return;

  i_callback_add_component(data, 0, NULL);
}

DEFINE_I_CALLBACK(add_attribute)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  attrib_edit_dialog(w_current, NULL, FROM_MENU);
  i_update_middle_button(w_current, i_callback_add_attribute,
                         _("Attribute"));

  i_set_state(w_current, SELECT);
  i_update_toolbar(w_current);
}

DEFINE_I_CALLBACK(add_attribute_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  attrib_edit_dialog(w_current, NULL, FROM_HOTKEY);
  i_update_middle_button(w_current, i_callback_add_attribute_hotkey,
                         _("Attribute"));

  i_set_state(w_current, SELECT);
  i_update_toolbar(w_current);
}

DEFINE_I_CALLBACK(add_net)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  o_redraw_cleanstates(w_current);  
  o_invalidate_rubber (w_current);
  o_net_reset(w_current);

  /* need to click */
  i_update_middle_button(w_current, i_callback_add_net, _("Net"));
  i_set_state(w_current, STARTDRAWNET);
  i_update_toolbar(w_current);
  /* somewhere you need to nearest point locking... */
  w_current->inside_action = 0;
}

DEFINE_I_CALLBACK(add_net_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  gint wx, wy;

  g_return_if_fail (w_current != NULL);

  if (!x_event_get_pointer_position(w_current, TRUE, &wx, &wy))
    return;

  o_redraw_cleanstates(w_current);  
  o_invalidate_rubber (w_current);
  o_net_reset(w_current);

  /* need to click */
  i_update_middle_button(w_current, i_callback_add_net_hotkey, _("Net"));
  i_set_state(w_current, STARTDRAWNET);
  i_update_toolbar(w_current);

  o_net_start(w_current, wx, wy);

  w_current->event_state=DRAWNET;
  w_current->inside_action = 1;
}

void i_callback_toolbar_add_net(GtkWidget* widget, gpointer data)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  g_return_if_fail (w_current != NULL);
  if (!w_current->window) return;

  if (GTK_TOGGLE_BUTTON (widget)->active) {
    i_callback_add_net(data, 0, NULL);
  }
}

DEFINE_I_CALLBACK(add_bus)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  o_redraw_cleanstates(w_current);  
  o_invalidate_rubber (w_current);

  /* need to click */
  i_update_middle_button(w_current, i_callback_add_bus, _("Bus"));
  i_set_state(w_current, STARTDRAWBUS);
  i_update_toolbar(w_current);

  /* somewhere you need to nearest point locking... */
  w_current->inside_action = 0;
}

DEFINE_I_CALLBACK(add_bus_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  gint wx, wy;

  g_return_if_fail (w_current != NULL);

  if (!x_event_get_pointer_position(w_current, TRUE, &wx, &wy))
    return;

  o_redraw_cleanstates(w_current);  
  o_invalidate_rubber (w_current);

  /* need to click */
  i_update_middle_button(w_current, i_callback_add_bus_hotkey, _("Bus"));
  i_set_state(w_current, STARTDRAWBUS);
  i_update_toolbar(w_current);

  o_bus_start(w_current, wx, wy);

  w_current->event_state=DRAWBUS;
  w_current->inside_action = 1;
}

void i_callback_toolbar_add_bus(GtkWidget* widget, gpointer data)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  g_return_if_fail (w_current != NULL);
  if (!w_current->window) return;

  if (GTK_TOGGLE_BUTTON (widget)->active) {
     i_callback_add_bus(data, 0, NULL);
  }
}

DEFINE_I_CALLBACK(add_text)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);
  
  o_redraw_cleanstates(w_current);  
  o_invalidate_rubber (w_current);

  w_current->inside_action = 0;
  i_set_state(w_current, SELECT);
  i_update_toolbar(w_current);

  text_input_dialog(w_current);
}

void i_callback_toolbar_add_text(GtkWidget* widget, gpointer data)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  g_return_if_fail (w_current != NULL);
  if (!w_current->window) return;

  i_callback_add_text(data, 0, NULL);
}

DEFINE_I_CALLBACK(add_line)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  o_redraw_cleanstates(w_current);  
  o_invalidate_rubber (w_current);

  i_update_middle_button(w_current, i_callback_add_line, _("Line"));
  i_set_state(w_current, DRAWLINE);
  w_current->inside_action = 0;
}

DEFINE_I_CALLBACK(add_line_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  gint wx, wy;
  
  g_return_if_fail (w_current != NULL);

  if (!x_event_get_pointer_position(w_current, TRUE, &wx, &wy))
    return;

  o_redraw_cleanstates(w_current);  
  o_invalidate_rubber (w_current);

  i_update_middle_button(w_current, i_callback_add_line_hotkey, _("Line"));

  o_line_start(w_current, wx, wy);

  w_current->inside_action = 1;
  i_set_state(w_current, ENDLINE);
}

DEFINE_I_CALLBACK(add_box)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  o_redraw_cleanstates(w_current);  
  o_invalidate_rubber (w_current);

  i_update_middle_button(w_current, i_callback_add_box, _("Box"));
  w_current->inside_action = 0;
  i_set_state(w_current, DRAWBOX);
}

DEFINE_I_CALLBACK(add_box_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  gint wx, wy; 

  g_return_if_fail (w_current != NULL);

  if (!x_event_get_pointer_position(w_current, TRUE, &wx, &wy))
    return;

  o_redraw_cleanstates(w_current);  
  o_invalidate_rubber (w_current);

  i_update_middle_button(w_current, i_callback_add_box_hotkey, _("Box"));

  o_box_start(w_current, wx, wy);

  w_current->inside_action = 1;
  i_set_state(w_current, ENDBOX);
}

DEFINE_I_CALLBACK(add_picture)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  o_redraw_cleanstates(w_current);  
  o_invalidate_rubber (w_current);

  w_current->inside_action = 0;
  i_set_state(w_current, SELECT);
  i_update_toolbar(w_current);

  picture_selection_dialog(w_current);
}

DEFINE_I_CALLBACK(add_picture_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  /* If this function necessary? Yes, if you want the hotkey to work. */
  i_callback_add_picture(w_current, 0, NULL);
}

DEFINE_I_CALLBACK(add_circle)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  o_redraw_cleanstates(w_current);  
  o_invalidate_rubber (w_current);

  i_update_middle_button(w_current, i_callback_add_circle, _("Circle"));
  w_current->inside_action = 0;
  i_set_state(w_current, DRAWCIRCLE);
}

DEFINE_I_CALLBACK(add_circle_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  gint wx, wy; 

  g_return_if_fail (w_current != NULL);

  if (!x_event_get_pointer_position(w_current, TRUE, &wx, &wy))
    return;

  o_redraw_cleanstates(w_current);  
  o_invalidate_rubber (w_current);

  i_update_middle_button(w_current, i_callback_add_circle_hotkey,
                         _("Circle"));

  o_circle_start(w_current, wx, wy);

  w_current->inside_action = 1;
  i_set_state(w_current, ENDCIRCLE);
}

DEFINE_I_CALLBACK(add_arc)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);
  
  o_redraw_cleanstates(w_current);  
  o_invalidate_rubber (w_current);

  i_update_middle_button(w_current, i_callback_add_arc, _("Arc"));
  w_current->inside_action = 0;
  i_set_state(w_current, DRAWARC);
}

DEFINE_I_CALLBACK(add_arc_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  gint wx, wy; 

  g_return_if_fail (w_current != NULL);

  if (!x_event_get_pointer_position(w_current, TRUE, &wx, &wy))
    return;

  o_redraw_cleanstates(w_current);  
  o_invalidate_rubber (w_current);

  i_update_middle_button(w_current, i_callback_add_arc_hotkey, _("Arc"));

  o_arc_start(w_current, wx, wy);

  w_current->inside_action = 1;
  i_set_state(w_current, ENDARC);
}

DEFINE_I_CALLBACK(add_pin)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  o_redraw_cleanstates(w_current);  
  o_invalidate_rubber (w_current);

  i_update_middle_button(w_current, i_callback_add_pin, _("Pin"));
  w_current->inside_action = 0;
  i_set_state(w_current, DRAWPIN);
}

DEFINE_I_CALLBACK(add_pin_hotkey)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  gint wx, wy; 

  g_return_if_fail (w_current != NULL);

  if (!x_event_get_pointer_position(w_current, TRUE, &wx, &wy))
    return;

  o_redraw_cleanstates(w_current);  
  o_invalidate_rubber (w_current);

  i_update_middle_button(w_current, i_callback_add_pin_hotkey, _("Pin"));

  o_pin_start(w_current, wx, wy);

  w_current->inside_action = 1;
  i_set_state(w_current, ENDPIN);
}

DEFINE_I_CALLBACK(hierarchy_down_schematic)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  char *attrib=NULL;
  char *current_filename=NULL;
  int count=0;
  OBJECT *object=NULL;
  PAGE *save_first_page=NULL;
  PAGE *parent=NULL;
  PAGE *child = NULL;
  int loaded_flag=FALSE;
  int page_control = 0;
  int pcount = 0;
  int looking_inside=FALSE;

  g_return_if_fail (w_current != NULL);

  object = o_select_return_first_object(w_current);

  /* only allow going into symbols */
  if (object == NULL || object->type != OBJ_COMPLEX)
    return;

  parent = w_current->toplevel->page_current;
  attrib = o_attrib_search_attached_attribs_by_name (object, "source", count);

  /* if above is null, then look inside symbol */
  if (attrib == NULL) {
    attrib =
      o_attrib_search_inherited_attribs_by_name (object, "source", count);
    looking_inside = TRUE;
#if DEBUG
    printf("going to look inside now\n");
#endif
  }

  while (attrib) {

    /* look for source=filename,filename, ... */
    pcount = 0;
    current_filename = u_basic_breakup_string(attrib, ',', pcount);

    /* loop over all filenames */
    while(current_filename != NULL) {

      s_log_message(_("Searching for source [%s]\n"), current_filename);
      child = s_hierarchy_down_schematic_single(w_current->toplevel,
                                                current_filename,
                                                parent,
                                                page_control,
                                                HIERARCHY_NORMAL_LOAD);

      /* s_hierarchy_down_schematic_single() will not zoom the loaded page */
      if (child != NULL) {
        s_page_goto (w_current->toplevel, child);
        a_zoom_extents(w_current,
                       s_page_objects (w_current->toplevel->page_current),
                       A_PAN_DONT_REDRAW);
        o_undo_savestate(w_current, UNDO_ALL);
        s_page_goto (w_current->toplevel, parent);
      }

      /* save the first page */
      if ( !loaded_flag && (child != NULL)) {
        save_first_page = child;
      }

      /* now do some error fixing */
      if (child == NULL) {
        s_log_message(_("Cannot find source [%s]\n"), current_filename);
      } else {
        /* this only signifies that we tried */
        loaded_flag = TRUE;
        page_control = child->page_control;
      }

      g_free(current_filename);
      pcount++;
      current_filename = u_basic_breakup_string(attrib, ',', pcount);
    }

    g_free(attrib);
    g_free(current_filename);

    count++;

    /* continue looking outside first */
    if (!looking_inside) {
      attrib =
        o_attrib_search_attached_attribs_by_name (object, "source", count);
    }

    /* okay we were looking outside and didn't find anything,
     * so now we need to look inside the symbol */
    if (!looking_inside && attrib == NULL && !loaded_flag ) {
      looking_inside = TRUE;
#if DEBUG
      printf("switching to go to look inside\n");
#endif
    }

    if (looking_inside) {
#if DEBUG
      printf("looking inside\n");
#endif
      attrib =
        o_attrib_search_inherited_attribs_by_name (object, "source", count);
    }
  }

  if (loaded_flag && (save_first_page != NULL)) {
    x_window_set_current_page (w_current, save_first_page);
  }
}

DEFINE_I_CALLBACK(hierarchy_down_symbol)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  OBJECT *object;
  const CLibSymbol *sym;

  g_return_if_fail (w_current != NULL);

  object = o_select_return_first_object(w_current);
  if (object != NULL) {
    /* only allow going into symbols */
    if (object->type == OBJ_COMPLEX) {
      s_log_message(_("Searching for symbol [%s]\n"), 
            object->complex_basename);
      sym = s_clib_get_symbol_by_name (object->complex_basename);
      if (sym == NULL)
    return;
      if (s_clib_symbol_get_filename(sym) == NULL) {
    s_log_message(_("Symbol is not a real file."
            " Symbol cannot be loaded.\n"));
    return;
      }
      s_hierarchy_down_symbol(w_current->toplevel, sym,
                  w_current->toplevel->page_current);
      /* s_hierarchy_down_symbol() will not zoom the loaded page */
      a_zoom_extents(w_current,
                     s_page_objects (w_current->toplevel->page_current),
                     A_PAN_DONT_REDRAW);
      o_undo_savestate(w_current, UNDO_ALL);
      x_window_set_current_page(w_current, w_current->toplevel->page_current);
    }
  }
}

DEFINE_I_CALLBACK(hierarchy_up)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  PAGE *up_page;

  g_return_if_fail (w_current != NULL);

  up_page = s_hierarchy_find_up_page (w_current->toplevel->pages,
                                      w_current->toplevel->page_current);
  if (up_page == NULL) {
    s_log_message(_("Cannot find any schematics above the current one!\n"));
  } else {
    x_window_set_current_page(w_current, up_page);
  }
}

DEFINE_I_CALLBACK(attributes_attach)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  OBJECT *first_object;
  GList *s_current;
  GList *attached_objects = NULL;

  g_return_if_fail (w_current != NULL);

  /* This is a new addition 3/15 to prevent this from executing
   * inside an action */
  if (w_current->inside_action) {
    return;
  }

  /* do we want to update the shortcut outside of the ifs? */
  /* probably, if this fails the user may want to try again */
  i_update_middle_button(w_current, i_callback_attributes_attach,
                         _("Attach"));

  /* skip over head */
  s_current = geda_list_get_glist( w_current->toplevel->page_current->selection_list );
  if (!s_current) {
    return;
  }

  first_object = (OBJECT *) s_current->data; 
  if (!first_object) {
    return; 
  }

  /* skip over first object */
  s_current = g_list_next(s_current);
  while (s_current != NULL) {
    OBJECT *object = s_current->data;
    if (object != NULL) {
      o_attrib_attach (w_current->toplevel, object, first_object, TRUE);
      attached_objects = g_list_prepend (attached_objects, object);
      w_current->toplevel->page_current->CHANGED=1;
    }
    s_current = g_list_next(s_current);
  }

  if (attached_objects != NULL) {
    g_run_hook_object_list (w_current, "%attach-attribs-hook",
                            attached_objects);
    g_list_free (attached_objects);
  }

  o_undo_savestate(w_current, UNDO_ALL);
}

DEFINE_I_CALLBACK(attributes_detach)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  GList *s_current;
  OBJECT *o_current;
  GList *detached_attribs = NULL;

  g_return_if_fail (w_current != NULL);

  /* This is a new addition 3/15 to prevent this from executing
   * inside an action */
  if (w_current->inside_action) {
    return;
  }

  /* same note as above on i_update_middle_button */
  i_update_middle_button(w_current, i_callback_attributes_detach,
                         _("Detach"));

  s_current = geda_list_get_glist( w_current->toplevel->page_current->selection_list );
  while (s_current != NULL) {
    o_current = (OBJECT *) s_current->data;
    if (o_current) {
      if (o_current->attribs) {
        detached_attribs = g_list_concat (g_list_copy (o_current->attribs),
                                          detached_attribs);
        o_attrib_detach_all (w_current->toplevel, o_current);
        w_current->toplevel->page_current->CHANGED=1;
      }
    }
    s_current = g_list_next(s_current);
  }

  if (detached_attribs != NULL) {
    g_run_hook_object_list (w_current, "%detach-attribs-hook",
                            detached_attribs);
    g_list_free (detached_attribs);
  }

  o_undo_savestate(w_current, UNDO_ALL);
}

DEFINE_I_CALLBACK(attributes_show_name)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  TOPLEVEL *toplevel = w_current->toplevel;

  g_return_if_fail (w_current != NULL);

  /* This is a new addition 3/15 to prevent this from executing
   * inside an action */
  if (w_current->inside_action) {
    return;
  }

  i_update_middle_button(w_current, i_callback_attributes_show_name,
                         _("ShowN"));

  if (o_select_selected (w_current)) {
    SELECTION *selection = toplevel->page_current->selection_list;
    GList *s_current;

    for (s_current = geda_list_get_glist (selection);
         s_current != NULL;
         s_current = g_list_next (s_current)) {
      OBJECT *object = (OBJECT*)s_current->data;
      if (object->type == OBJ_TEXT)
        o_attrib_toggle_show_name_value (w_current, object, SHOW_NAME);
    }

    o_undo_savestate (w_current, UNDO_ALL);
  }
}

DEFINE_I_CALLBACK(attributes_show_value)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  TOPLEVEL *toplevel = w_current->toplevel;

  g_return_if_fail (w_current != NULL);

  /* This is a new addition 3/15 to prevent this from executing
   * inside an action */
  if (w_current->inside_action) {
    return;
  }

  i_update_middle_button(w_current, i_callback_attributes_show_value,
                         _("ShowV"));

  if (o_select_selected (w_current)) {
    SELECTION *selection = toplevel->page_current->selection_list;
    GList *s_current;

    for (s_current = geda_list_get_glist (selection);
         s_current != NULL;
         s_current = g_list_next (s_current)) {
      OBJECT *object = (OBJECT*)s_current->data;
      if (object->type == OBJ_TEXT)
        o_attrib_toggle_show_name_value (w_current, object, SHOW_VALUE);
    }

    o_undo_savestate (w_current, UNDO_ALL);
  }
}

DEFINE_I_CALLBACK(attributes_show_both)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  TOPLEVEL *toplevel = w_current->toplevel;

  g_return_if_fail (w_current != NULL);

  /* This is a new addition 3/15 to prevent this from executing
   * inside an action */
  if (w_current->inside_action) {
    return;
  }

  i_update_middle_button(w_current, i_callback_attributes_show_both,
                         _("ShowB"));

  if (o_select_selected (w_current)) {
    SELECTION *selection = toplevel->page_current->selection_list;
    GList *s_current;

    for (s_current = geda_list_get_glist (selection);
         s_current != NULL;
         s_current = g_list_next (s_current)) {
      OBJECT *object = (OBJECT*)s_current->data;
      if (object->type == OBJ_TEXT)
        o_attrib_toggle_show_name_value (w_current, object, SHOW_NAME_VALUE);
    }

    o_undo_savestate (w_current, UNDO_ALL);
  }
}

DEFINE_I_CALLBACK(attributes_visibility_toggle)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  TOPLEVEL *toplevel = w_current->toplevel;

  g_return_if_fail (w_current != NULL);

  /* This is a new addition 3/15 to prevent this from executing
   * inside an action */
  if (w_current->inside_action) {
    return;
  }

  i_update_middle_button(w_current,
                         i_callback_attributes_visibility_toggle,
                         _("VisToggle"));

  if (o_select_selected (w_current)) {
    SELECTION *selection = toplevel->page_current->selection_list;
    GList *s_current;

    for (s_current = geda_list_get_glist (selection);
         s_current != NULL;
         s_current = g_list_next (s_current)) {
      OBJECT *object = (OBJECT*)s_current->data;
      if (object->type == OBJ_TEXT)
        o_attrib_toggle_visibility (w_current, object);
    }

    o_undo_savestate (w_current, UNDO_ALL);
  }
}

DEFINE_I_CALLBACK(script_console)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);
  printf(_("Sorry but this is a non-functioning menu option\n"));
}

DEFINE_I_CALLBACK(options_text_size)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);
  text_size_dialog(w_current);
}

DEFINE_I_CALLBACK(options_snap_size)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);
  snap_size_dialog(w_current);
}

DEFINE_I_CALLBACK(options_scale_up_snap_size)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  w_current->snap_size *= 2;
  w_current->toplevel->page_current->CHANGED=1;  /* maybe remove those two lines */
  o_undo_savestate(w_current, UNDO_ALL);

  i_update_grid_info (w_current);
  o_invalidate_all (w_current);
}

DEFINE_I_CALLBACK(options_scale_down_snap_size)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  if (w_current->snap_size % 2 == 0)
    w_current->snap_size /= 2;
  w_current->toplevel->page_current->CHANGED=1;  /* maybe remove those two lines */
  o_undo_savestate(w_current, UNDO_ALL);

  i_update_grid_info (w_current);
  o_invalidate_all (w_current);

}

DEFINE_I_CALLBACK(options_afeedback)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  if (w_current->actionfeedback_mode == BOUNDINGBOX) {
    w_current->actionfeedback_mode = OUTLINE;
    s_log_message(_("Action feedback mode set to OUTLINE\n"));
  } else {
    w_current->actionfeedback_mode = BOUNDINGBOX;
    s_log_message(_("Action feedback mode set to BOUNDINGBOX\n"));
  }
  if (w_current->inside_action &&
      w_current->toplevel->page_current->place_list != NULL)
    o_place_invalidate_rubber (w_current, FALSE);
}

DEFINE_I_CALLBACK(options_grid)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);

  switch (w_current->grid) {
    case GRID_NONE: w_current->grid = GRID_DOTS; break;
    case GRID_DOTS: w_current->grid = GRID_MESH; break;
    case GRID_MESH: w_current->grid = GRID_NONE; break;
  }

  switch (w_current->grid) {
    case GRID_NONE: s_log_message (_("Grid OFF\n"));           break;
    case GRID_DOTS: s_log_message (_("Dot grid selected\n"));  break;
    case GRID_MESH: s_log_message (_("Mesh grid selected\n")); break;
  }

  i_update_grid_info (w_current);
  o_invalidate_all (w_current);
}

DEFINE_I_CALLBACK(options_snap)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  /* toggle to the next snap state */
  w_current->snap = (w_current->snap+1) % SNAP_STATE_COUNT;

  switch (w_current->snap) {
  case SNAP_OFF:
    s_log_message(_("Snap OFF (CAUTION!)\n"));
    break;
  case SNAP_GRID:
    s_log_message(_("Snap ON\n"));
    break;
  case SNAP_RESNAP:
    s_log_message(_("Snap back to the grid (CAUTION!)\n"));
    break;
  default:
    g_critical("options_snap: toplevel->snap out of range: %d\n",
               w_current->snap);
  }

  i_show_state(w_current, NULL); /* update status on screen */
  i_update_grid_info (w_current);
}

DEFINE_I_CALLBACK(options_rubberband)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  if (w_current->netconn_rubberband) {
    w_current->netconn_rubberband = 0;
    s_log_message(_("Rubber band OFF \n"));
  } else {
    w_current->netconn_rubberband = 1;
    s_log_message(_("Rubber band ON\n"));
  }
}


DEFINE_I_CALLBACK(options_magneticnet)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  if ((w_current->magneticnet_mode = !w_current->magneticnet_mode)) {
    s_log_message(_("magnetic net mode: ON\n"));
  }
  else {
    s_log_message(_("magnetic net mode: OFF\n"));
  }
  i_show_state(w_current, NULL);
}


DEFINE_I_CALLBACK(options_show_log_window)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);
  x_log_open ();
}

DEFINE_I_CALLBACK(misc)
{
}

DEFINE_I_CALLBACK(misc2)
{
}

DEFINE_I_CALLBACK(misc3)
{
}

DEFINE_I_CALLBACK(cancel)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  TOPLEVEL *toplevel = w_current->toplevel;
  GValue value = { 0, };

  g_return_if_fail (w_current != NULL);

  if (w_current->event_state == ENDCOMP &&
      w_current->cswindow) {
    /* user hit escape key when placing components */

    /* Undraw any outline of the place list */
    o_place_invalidate_rubber (w_current, FALSE);
    w_current->rubber_visible = 0;

    /* De-select the lists in the component selector */
    x_compselect_deselect (w_current);

    /* Present the component selector again */
    g_value_init (&value, G_TYPE_BOOLEAN);
    g_value_set_boolean (&value, FALSE);
    g_object_set_property (G_OBJECT(w_current->cswindow), "hidden", &value);
  }

  if (w_current->inside_action) {
    /* If we're cancelling from a move action, re-wind the
     * page contents back to their state before we started */
    if (w_current->event_state == MOVE ||
        w_current->event_state == ENDMOVE)
      o_move_cancel (w_current);

    /* If we're cancelling from a grip action, call the specific cancel
     * routine to reset the visibility of the object being modified */
    if (w_current->event_state == GRIPS)
      o_grips_cancel (w_current);
  }

  /* Free the place list and its contents. If we were in a move
   * action, the list (refering to objects on the page) would
   * already have been cleared in o_move_cancel(), so this is OK. */
  s_delete_object_glist(toplevel, toplevel->page_current->place_list);
  toplevel->page_current->place_list = NULL;

  /* leave this on for now... but it might have to change */
  /* this is problematic since we don't know what the right mode */
  /* (when you cancel inside an action) should be */
  i_set_state(w_current, SELECT);
  i_update_toolbar(w_current);

  /* clear the key guile command-sequence */
  g_keys_reset (w_current);

  if (w_current->inside_action) { 
     o_invalidate_all (w_current);
  }

  w_current->inside_action=0;
}

DEFINE_I_CALLBACK(help_about)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);
  about_dialog(w_current);
}

DEFINE_I_CALLBACK(help_hotkeys)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);
  x_dialog_hotkeys(w_current);
}

DEFINE_I_CALLBACK(options_show_coord_window)
{
  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;

  g_return_if_fail (w_current != NULL);
  coord_dialog (w_current, 0, 0);
}

/* these is a special wrapper function which cannot use the above */
/* DEFINE_I_CALLBACK macro */

gboolean i_callback_close_wm ( GtkWidget *widget, GdkEvent *event, 
                       gpointer data ) 
{

  GSCHEM_TOPLEVEL *w_current = (GSCHEM_TOPLEVEL*) data;
  g_return_val_if_fail ((w_current != NULL), TRUE);

  x_window_close(w_current);

  /* stop further propagation of the delete_event signal for window: */
  /*   - if user has cancelled the close the window should obvioulsy */
  /*   not be destroyed */
  /*   - otherwise window has already been destroyed, nothing more to */
  /*   do */
  return TRUE;
}