/* \brief Get the contents of the system clipboard.
* \par Function Description
* If the system clipboard contains schematic data, retrieve it.
*
* \param [in,out] w_current The current GSCHEM_TOPLEVEL.
*
* \returns Any OBJECTs retrieved from the system clipboard, or NULL
* if none were available.
*/
GList *
x_clipboard_get (GSCHEM_TOPLEVEL *w_current)
{
GtkClipboard *cb = gtk_clipboard_get (GDK_SELECTION_CLIPBOARD);
TOPLEVEL *toplevel = w_current->toplevel;
GdkAtom type = gdk_atom_intern (MIME_TYPE_SCHEMATIC, FALSE);
GtkSelectionData *selection_data;
GList *object_list = NULL;
const guchar *buf;
/* Try to get the contents of the clipboard */
selection_data = gtk_clipboard_wait_for_contents (cb, type);
if (selection_data == NULL) return FALSE;
/* Convert the data buffer to OBJECTs */
#if GTK_CHECK_VERSION(2,14,0)
buf = gtk_selection_data_get_data (selection_data);
#else
buf = selection_data->data;
#endif
object_list = o_read_buffer (toplevel, object_list,
(gchar *) buf, -1, "Clipboard");
gtk_selection_data_free (selection_data);
return object_list;
}
/*! \brief Updates the preview widget.
* \par Function Description
* This function update the preview: if the preview is active and a
* filename has been given, it opens the file and display
* it. Otherwise it display a blank page.
*
* \param [in] preview The preview widget.
*/
static void
preview_update (Preview *preview)
{
GSCHEM_TOPLEVEL *preview_w_current = preview->preview_w_current;
TOPLEVEL *preview_toplevel = preview_w_current->toplevel;
int left, top, right, bottom;
int width, height;
if (preview_toplevel->page_current == NULL) {
return;
}
/* delete old preview, create new page */
/* it would be better to just resets current page - Fix me */
s_page_delete (preview_toplevel, preview_toplevel->page_current);
s_page_goto (preview_toplevel, s_page_new (preview_toplevel, "preview"));
if (preview->active) {
g_assert ((preview->filename == NULL) || (preview->buffer == NULL));
if (preview->filename != NULL) {
/* open up file in current page */
f_open_flags (preview_toplevel, preview_toplevel->page_current,
preview->filename,
F_OPEN_RC | F_OPEN_RESTORE_CWD, NULL);
/* test value returned by f_open... - Fix me */
/* we should display something if there an error occured - Fix me */
}
if (preview->buffer != NULL) {
/* Load the data buffer */
s_page_append_list (preview_toplevel, preview_toplevel->page_current,
o_read_buffer (preview_toplevel,
NULL, preview->buffer, -1,
_("Preview Buffer")));
}
}
if (world_get_object_glist_bounds (preview_toplevel,
s_page_objects (preview_toplevel->page_current),
&left, &top,
&right, &bottom)) {
/* Clamp the canvas size to the extents of the page being previewed */
width = right - left;
height = bottom - top;
preview_toplevel->init_left = left - ((double)width * OVER_ZOOM_FACTOR);
preview_toplevel->init_right = right + ((double)width * OVER_ZOOM_FACTOR);
preview_toplevel->init_top = top - ((double)height * OVER_ZOOM_FACTOR);
preview_toplevel->init_bottom = bottom + ((double)height * OVER_ZOOM_FACTOR);
}
/* display current page (possibly empty) */
a_zoom_extents (preview_w_current,
s_page_objects (preview_toplevel->page_current),
A_PAN_DONT_REDRAW);
o_invalidate_all (preview_w_current);
}
/* \brief Get the contents of the system clipboard.
* \par Function Description
* If the system clipboard contains schematic data, retrieve it.
*
* \param [in,out] w_current The current GSCHEM_TOPLEVEL.
*
* \returns Any OBJECTs retrieved from the system clipboard, or NULL
* if none were available.
*/
GList *
x_clipboard_get (GSCHEM_TOPLEVEL *w_current)
{
GtkClipboard *cb = gtk_clipboard_get (GDK_SELECTION_CLIPBOARD);
TOPLEVEL *toplevel = w_current->toplevel;
GdkAtom type = gdk_atom_intern (MIME_TYPE_SCHEMATIC, FALSE);
GtkSelectionData *selection_data;
GList *object_list = NULL;
const guchar *buf;
GError * err = NULL;
/* Try to get the contents of the clipboard */
selection_data = gtk_clipboard_wait_for_contents (cb, type);
if (selection_data == NULL) return FALSE;
/* Convert the data buffer to OBJECTs */
#if GTK_CHECK_VERSION(2,14,0)
buf = gtk_selection_data_get_data (selection_data);
#else
buf = selection_data->data;
#endif
object_list = o_read_buffer (toplevel, object_list,
(gchar *) buf, -1, "Clipboard", &err);
if (err) {
GtkWidget * dialog = gtk_message_dialog_new_with_markup
(GTK_WINDOW (w_current->main_window),
GTK_DIALOG_DESTROY_WITH_PARENT,
GTK_MESSAGE_ERROR,
GTK_BUTTONS_OK,
_("<b>Invalid schematic on clipboard.</b>\n\nAn error occurred while inserting clipboard data: %s."),
err->message);
gtk_window_set_title (GTK_WINDOW (dialog), _("Clipboard insertion failed"));
gtk_dialog_run (GTK_DIALOG (dialog));
gtk_widget_destroy (dialog);
g_error_free(err);
}
gtk_selection_data_free (selection_data);
return object_list;
}
/*! \brief Updates the preview widget.
* \par Function Description
* This function updates the preview: if the preview is active and a
* filename has been given, it opens the file and displays
* it. Otherwise it displays a blank page.
*
* \param [in] preview The preview widget.
*/
static void
preview_update (Preview *preview)
{
int left, top, right, bottom;
int width, height;
GError * err = NULL;
GschemPageView *preview_view = GSCHEM_PAGE_VIEW (preview);
g_return_if_fail (preview_view != NULL);
PAGE *preview_page = gschem_page_view_get_page (preview_view);
if (preview_page == NULL) {
return;
}
TOPLEVEL *preview_toplevel = preview_page->toplevel;
/* delete old preview */
s_page_delete_objects (preview_toplevel, preview_page);
if (preview->active) {
g_assert ((preview->filename == NULL) || (preview->buffer == NULL));
if (preview->filename != NULL) {
/* open up file in current page */
f_open_flags (preview_toplevel, preview_page,
preview->filename,
F_OPEN_RC | F_OPEN_RESTORE_CWD, NULL);
/* test value returned by f_open... - Fix me */
/* we should display something if there an error occured - Fix me */
}
if (preview->buffer != NULL) {
/* Load the data buffer */
GList * objects = o_read_buffer (preview_toplevel,
NULL, preview->buffer, -1,
_("Preview Buffer"), &err);
if (err == NULL) {
s_page_append_list (preview_toplevel, preview_page,
objects);
}
else {
s_page_append (preview_toplevel, preview_page,
o_text_new(preview_toplevel, OBJ_TEXT, 2, 100, 100, LOWER_MIDDLE, 0,
err->message, 10, VISIBLE, SHOW_NAME_VALUE));
g_error_free(err);
}
}
}
if (world_get_object_glist_bounds (preview_toplevel,
s_page_objects (preview_page),
&left, &top,
&right, &bottom)) {
/* Clamp the canvas size to the extents of the page being previewed */
width = right - left;
height = bottom - top;
GschemPageGeometry *geometry = gschem_page_view_get_page_geometry (preview_view);
geometry->world_left = left - ((double)width * OVER_ZOOM_FACTOR);
geometry->world_right = right + ((double)width * OVER_ZOOM_FACTOR);
geometry->world_top = top - ((double)height * OVER_ZOOM_FACTOR);
geometry->world_bottom = bottom + ((double)height * OVER_ZOOM_FACTOR);
}
/* display current page (possibly empty) */
gschem_page_view_zoom_extents (preview_view, NULL);
}
/*! \brief
* \par Function Description
*
*/
OBJECT *o_complex_new(TOPLEVEL *toplevel,
char type,
int color, int x, int y, int angle,
int mirror, const CLibSymbol *clib,
const gchar *basename,
int selectable)
{
OBJECT *new_node=NULL;
OBJECT *new_prim_obj;
GList *prim_objs;
GList *iter;
int loaded_normally = FALSE;
gchar *buffer = NULL;
new_node = s_basic_new_object(type, "complex");
if (clib != NULL) {
new_node->complex_basename = g_strdup (s_clib_symbol_get_name (clib));
} else {
new_node->complex_basename = g_strdup (basename);
}
new_node->complex_embedded = FALSE;
new_node->color = color;
new_node->selectable = selectable;
new_node->complex = (COMPLEX *) g_malloc(sizeof(COMPLEX));
new_node->complex->angle = angle;
new_node->complex->mirror = mirror;
new_node->complex->x = x;
new_node->complex->y = y;
prim_objs = NULL;
/* get the symbol data */
if (clib != NULL) {
buffer = s_clib_symbol_get_data (clib);
}
if (clib == NULL || buffer == NULL) {
char *not_found_text = NULL;
int left, right, top, bottom;
int x_offset, y_offset;
/* filename was NOT found */
loaded_normally = FALSE;
/* Put placeholder into object list. Changed by SDB on
* 1.19.2005 to fix problem that symbols were silently
* deleted by gattrib when RC files were messed up. */
new_node->type = OBJ_PLACEHOLDER;
/* Mark the origin of the missing component */
new_prim_obj = o_line_new(toplevel, OBJ_LINE,
DETACHED_ATTRIBUTE_COLOR,
x - 50, y, x + 50, y);
prim_objs = g_list_append (prim_objs, new_prim_obj);
new_prim_obj = o_line_new(toplevel, OBJ_LINE,
DETACHED_ATTRIBUTE_COLOR,
x, y + 50, x, y - 50);
prim_objs = g_list_append (prim_objs, new_prim_obj);
/* Add some useful text */
not_found_text =
g_strdup_printf (_("Component not found:\n %s"),
new_node->complex_basename);
new_prim_obj = o_text_new(toplevel,
OBJ_TEXT, DETACHED_ATTRIBUTE_COLOR,
x + NOT_FOUND_TEXT_X,
y + NOT_FOUND_TEXT_Y, LOWER_LEFT, 0,
not_found_text, 8,
VISIBLE, SHOW_NAME_VALUE);
prim_objs = g_list_append (prim_objs, new_prim_obj);
g_free(not_found_text);
/* figure out where to put the hazard triangle */
world_get_text_bounds (toplevel, new_prim_obj, &left, &top, &right, &bottom);
x_offset = (right - left) / 4;
y_offset = bottom - top + 100; /* 100 is just an additional offset */
/* add hazard triangle */
new_prim_obj = o_line_new(toplevel, OBJ_LINE,
DETACHED_ATTRIBUTE_COLOR,
x + NOT_FOUND_TEXT_X + x_offset,
y + NOT_FOUND_TEXT_Y + y_offset,
x + NOT_FOUND_TEXT_X + x_offset + 600,
y + NOT_FOUND_TEXT_Y + y_offset);
o_set_line_options(toplevel, new_prim_obj, END_ROUND, TYPE_SOLID,
50, -1, -1);
prim_objs = g_list_append (prim_objs, new_prim_obj);
new_prim_obj = o_line_new(toplevel, OBJ_LINE,
DETACHED_ATTRIBUTE_COLOR,
x + NOT_FOUND_TEXT_X + x_offset,
y + NOT_FOUND_TEXT_Y + y_offset,
x + NOT_FOUND_TEXT_X + x_offset + 300,
y + NOT_FOUND_TEXT_Y + y_offset + 500);
o_set_line_options(toplevel, new_prim_obj, END_ROUND, TYPE_SOLID,
50, -1, -1);
prim_objs = g_list_append (prim_objs, new_prim_obj);
new_prim_obj = o_line_new(toplevel, OBJ_LINE,
DETACHED_ATTRIBUTE_COLOR,
x + NOT_FOUND_TEXT_X + x_offset + 300,
y + NOT_FOUND_TEXT_Y + y_offset + 500,
x + NOT_FOUND_TEXT_X + x_offset + 600,
y + NOT_FOUND_TEXT_Y + y_offset);
o_set_line_options(toplevel, new_prim_obj, END_ROUND, TYPE_SOLID,
50, -1, -1);
prim_objs = g_list_append (prim_objs, new_prim_obj);
new_prim_obj = o_text_new(toplevel,
OBJ_TEXT, DETACHED_ATTRIBUTE_COLOR,
x + NOT_FOUND_TEXT_X + x_offset + 270,
y + NOT_FOUND_TEXT_Y + y_offset + 90,
LOWER_LEFT, 0, "!", 18,
VISIBLE, SHOW_NAME_VALUE);
prim_objs = g_list_append (prim_objs, new_prim_obj);
} else {
/* filename was found */
loaded_normally = TRUE;
/* add connections till translated */
prim_objs = o_read_buffer (toplevel, prim_objs, buffer, -1, new_node->complex_basename);
g_free (buffer);
}
/* do not mirror/rotate/translate/connect the primitive objects if the
* component was not loaded via o_read
*/
if (loaded_normally == TRUE) {
if (mirror) {
o_glist_mirror_world (toplevel, 0, 0, prim_objs);
}
o_glist_rotate_world (toplevel, 0, 0, angle, prim_objs);
o_glist_translate_world (toplevel, x, y, prim_objs);
}
new_node->complex->prim_objs = prim_objs;
/* set the parent field now */
for (iter = prim_objs; iter != NULL; iter = g_list_next (iter)) {
OBJECT *tmp = iter->data;
tmp->parent = new_node;
}
o_complex_recalc(toplevel, new_node);
return new_node;
}
/*! \brief
* \par Function Description
*
*/
OBJECT *o_complex_new(TOPLEVEL *toplevel,
char type,
int color, int x, int y, int angle,
int mirror, const CLibSymbol *clib,
const gchar *basename,
int selectable)
{
OBJECT *new_node=NULL;
GList *iter;
gchar *buffer = NULL;
new_node = s_basic_new_object(type, "complex");
if (clib != NULL) {
new_node->complex_basename = g_strdup (s_clib_symbol_get_name (clib));
} else {
new_node->complex_basename = g_strdup (basename);
}
new_node->complex_embedded = FALSE;
new_node->color = color;
new_node->selectable = selectable;
new_node->complex = (COMPLEX *) g_malloc(sizeof(COMPLEX));
new_node->complex->prim_objs = NULL;
new_node->complex->angle = angle;
new_node->complex->mirror = mirror;
new_node->complex->x = x;
new_node->complex->y = y;
/* get the symbol data */
if (clib != NULL) {
buffer = s_clib_symbol_get_data (clib);
}
if (clib == NULL || buffer == NULL)
create_placeholder(toplevel, new_node, x, y);
else {
GError * err = NULL;
/* add connections till translated */
new_node->complex->prim_objs = o_read_buffer (toplevel, NULL, buffer, -1, new_node->complex_basename, &err);
if (err) {
g_error_free(err);
/* If reading fails, replace with placeholder object */
create_placeholder(toplevel, new_node, x, y);
}
else {
if (mirror) {
geda_object_list_mirror (new_node->complex->prim_objs, 0, 0, toplevel);
}
geda_object_list_rotate (new_node->complex->prim_objs, 0, 0, angle, toplevel);
geda_object_list_translate (new_node->complex->prim_objs, x, y);
}
g_free (buffer);
}
/* set the parent field now */
for (iter = new_node->complex->prim_objs; iter != NULL; iter = g_list_next (iter)) {
OBJECT *tmp = iter->data;
tmp->parent = new_node;
}
new_node->w_bounds_valid_for = NULL;
return new_node;
}
