[Author Prev][Author Next][Thread Prev][Thread Next][Author Index][Thread Index]
gEDA-cvs: gaf.git: branch: master updated (1.5.2-20090328-214-g8db0501)
The branch, master has been updated
via 8db05013c0542a6e2f8931b9c2ba2318fe8b613f (commit)
via 1ef5b2a3545e7ebc06025a460b0c9563663e789d (commit)
via af3f6fc265cb30972df4344a39a67451ab1148b2 (commit)
via dbcfd09c99266379d08d90b9d8a9dd23a6566eec (commit)
from 1b152740c10b5198d16a43a73f08ccbe90d37ccb (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
=========
Summary
=========
gschem/po/es.po | 127 +++++++++++++++++++-------------------
gschem/src/g_hook.c | 10 +++-
libgeda/include/prototype_priv.h | 1 +
libgeda/po/es.po | 43 +++++++------
libgeda/src/g_smob.c | 35 ++++++++++
5 files changed, 132 insertions(+), 84 deletions(-)
=================
Commit Messages
=================
commit 8db05013c0542a6e2f8931b9c2ba2318fe8b613f
Author: Carlos Nieves Onega <cnieves@xxxxxxxxxx>
Commit: Carlos Nieves Onega <cnieves@xxxxxxxxxx>
Updated spanish translation for libgeda and gschem.
:100644 100644 5d9699d... e669445... M gschem/po/es.po
:100644 100644 e6e7afc... 3271dda... M libgeda/po/es.po
commit 1ef5b2a3545e7ebc06025a460b0c9563663e789d
Author: Carlos Nieves Onega <cnieves@xxxxxxxxxx>
Commit: Carlos Nieves Onega <cnieves@xxxxxxxxxx>
Add a new scheme function to set the page filename.
Add a new scheme function set-page-filename to set the filename
of a given page.
:100644 100644 c32c40d... 44ccab0... M libgeda/include/prototype_priv.h
:100644 100644 6fbc74b... 84dfb5d... M libgeda/src/g_smob.c
commit af3f6fc265cb30972df4344a39a67451ab1148b2
Author: Carlos Nieves Onega <cnieves@xxxxxxxxxx>
Commit: Carlos Nieves Onega <cnieves@xxxxxxxxxx>
Run the add component hook after adding a new component using scheme.
Run the add component hook after adding a new component
using the scheme function add-component-at-x-y.
:100644 100644 7cd5540... 863057d... M gschem/src/g_hook.c
commit dbcfd09c99266379d08d90b9d8a9dd23a6566eec
Author: Carlos Nieves Onega <cnieves@xxxxxxxxxx>
Commit: Carlos Nieves Onega <cnieves@xxxxxxxxxx>
Fix x coordinate in add-component-at-xy function.
X coordinate was previously get from the Y coordinate parameter.
:100644 100644 5ba17b2... 7cd5540... M gschem/src/g_hook.c
=========
Changes
=========
commit 8db05013c0542a6e2f8931b9c2ba2318fe8b613f
Author: Carlos Nieves Onega <cnieves@xxxxxxxxxx>
Commit: Carlos Nieves Onega <cnieves@xxxxxxxxxx>
Updated spanish translation for libgeda and gschem.
diff --git a/gschem/po/es.po b/gschem/po/es.po
index 5d9699d..e669445 100644
--- a/gschem/po/es.po
+++ b/gschem/po/es.po
@@ -1,17 +1,18 @@
# Spanish/Spain translation of gschem.
# Copyright (C) 2005-2008 Carlos Nieves Onega
# This file is distributed under the same license as the gschem package.
-# Carlos Nieves Ã?nega <cnieves@xxxxxxxxxx>, 2005-2008.
#
#
+# Carlos Nieves Ã?nega <cnieves@xxxxxxxxxx>, 2005-2009.
msgid ""
msgstr ""
"Project-Id-Version: gschem VERSION\n"
"Report-Msgid-Bugs-To: geda-bug@xxxxxxxx\n"
"POT-Creation-Date: 2009-08-18 22:55-0400\n"
-"PO-Revision-Date: 2008-12-21 21:20+0100\n"
+"PO-Revision-Date: 2009-08-25 22:11+0200\n"
"Last-Translator: Carlos Nieves Ã?nega <cnieves@xxxxxxxxxx>\n"
-"Language-Team: Spanish/SpainMIME-Version: 1.0\n"
+"Language-Team: Spanish/Spain <geda-dev@xxxxxxxx>\n"
+"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=2; plural=(n != 1);X-Generator: KBabel 1.0.2\n"
@@ -93,9 +94,8 @@ msgid "Select Mode"
msgstr "Seleccionar"
#: gschem/src/rcstrings.c:22
-#, fuzzy
msgid "Cut"
-msgstr "Cortar 1"
+msgstr "Cortar"
#: gschem/src/rcstrings.c:23 gschem/src/i_basic.c:135
#: gschem/src/i_callbacks.c:538 gschem/src/i_callbacks.c:562
@@ -103,9 +103,8 @@ msgid "Copy"
msgstr "Copiar"
#: gschem/src/rcstrings.c:24
-#, fuzzy
msgid "Paste"
-msgstr "Pegar 1"
+msgstr "Pegar"
#: gschem/src/rcstrings.c:25
msgid "Edit..."
@@ -288,11 +287,11 @@ msgstr "Vista completa"
#: gschem/src/rcstrings.c:71
msgid "Dark color scheme"
-msgstr ""
+msgstr "Configuración de colores oscuros"
#: gschem/src/rcstrings.c:72
msgid "Light color scheme"
-msgstr ""
+msgstr "Configuración de colores claros"
#: gschem/src/rcstrings.c:74
msgid "Page"
@@ -456,7 +455,7 @@ msgstr "Tamaño de texto..."
#: gschem/src/rcstrings.c:116
msgid "Cycle grid styles"
-msgstr ""
+msgstr "Cambiar estilos de rejilla"
#: gschem/src/rcstrings.c:117
msgid "Toggle Snap On/Off"
@@ -556,6 +555,12 @@ msgid ""
"from your config files.\n"
"\n"
msgstr ""
+"\n"
+"La opción de configuración postscript-font-scale está obsoleta y se "
+"eliminará en gEDA 1.8.0\n"
+"El texto impreso está fijado para ajustarse al tamaño mostrado en pantalla. "
+"Por favor, elimine esta opción de sus archivos de configuración.\n"
+"\n"
#: gschem/src/g_rc.c:481
#, c-format
@@ -574,24 +579,24 @@ msgid "Invalid size [%d] passed to bus-ripper-size\n"
msgstr "Tamaño no válido [%d] especificado a la función bus-ripper-size\n"
#: gschem/src/g_rc.c:1269
-#, fuzzy, c-format
+#, c-format
msgid "Invalid dot size [%d] passed to dots-grid-dot-size\n"
msgstr ""
-"Tamaño de punto no válido [%d] especificado a la función grid-dot-size\n"
+"Tamaño de punto no válido [%d] especificado a la función dots-grid-dot-size\n"
#: gschem/src/g_rc.c:1310
-#, fuzzy, c-format
+#, c-format
msgid "Invalid pixel spacing [%d] passed to dots-grid-fixed-threshold\n"
msgstr ""
-"Espaciado de punto no válido [%d] especificado a la función grid-fixed-"
+"Espaciado de punto no válido [%d] especificado a la función dots-grid-fixed-"
"threshold\n"
#: gschem/src/g_rc.c:1336
-#, fuzzy, c-format
+#, c-format
msgid "Invalid pixel spacing [%d] passed to mesh-grid-display-threshold\n"
msgstr ""
-"Espaciado de punto no válido [%d] especificado a la función grid-fixed-"
-"threshold\n"
+"Espaciado de punto no válido [%d] especificado a la función mesh-grid-"
+"display-threshold\n"
#: gschem/src/g_rc.c:1361
#, c-format
@@ -682,6 +687,10 @@ msgid ""
"gschem cannot locate its data files. You must set the GEDADATA\n"
"environment variable to point to the correct location.\n"
msgstr ""
+"¡Debe configurar la variable de entorno GEDADATA!\n"
+"\n"
+"gschem no puede encontrar sus archivos de datos. Debe configurar la variable "
+"de entorno GEDADATA con el camino adecuado.\n"
#: gschem/src/gschem.c:243
#, c-format
@@ -710,27 +719,27 @@ msgstr "Ejecutando programa de guile [%s]\n"
#: gschem/src/gschem_accel_label.c:319
msgid "Accelerator Closure"
-msgstr ""
+msgstr "Cierre de la tecla rápida"
#: gschem/src/gschem_accel_label.c:320
msgid "The closure to be monitored for accelerator changes"
-msgstr ""
+msgstr "El cierre a monitorizar para cambios en las teclas rápidas"
#: gschem/src/gschem_accel_label.c:326
msgid "Accelerator Widget"
-msgstr ""
+msgstr "Artilugio de teclas rápidas"
#: gschem/src/gschem_accel_label.c:327
msgid "The widget to be monitored for accelerator changes"
-msgstr ""
+msgstr "El artilugio a monitorizar para los cambios de teclas rápidas"
#: gschem/src/gschem_accel_label.c:333
msgid "Accelerator String"
-msgstr ""
+msgstr "Cadena de tecla rápida"
#: gschem/src/gschem_accel_label.c:334
msgid "The accelerator string to be displayed"
-msgstr ""
+msgstr "La cadena de tecla rápida a visualizar"
#: gschem/src/gschem_cairo.c:310
#, c-format
@@ -738,9 +747,9 @@ msgid "Unknown end for line (%d)\n"
msgstr "Final de lÃnea desconocido (%d)\n"
#: gschem/src/gschem_cairo.c:318
-#, fuzzy, c-format
+#, c-format
msgid "Unknown type for stroke (%d) !\n"
-msgstr "Tipo de lÃnea desconocido (%d)\n"
+msgstr "¡ Tipo desconocido para gesto (%d) !\n"
#: gschem/src/i_basic.c:79
msgid "Component Mode"
@@ -819,7 +828,7 @@ msgstr "Desactivado el ajuste a la rejilla"
#: gschem/src/i_basic.c:173
msgid "Resnap Active"
-msgstr ""
+msgstr "Reajuste a la rejilla activado"
#: gschem/src/i_basic.c:254 gschem/src/x_window.c:495
msgid "Action"
@@ -844,7 +853,7 @@ msgstr "NO"
#: gschem/src/i_basic.c:567
msgid "NONE"
-msgstr ""
+msgstr "NINGUNO"
#: gschem/src/i_basic.c:572
#, c-format
@@ -884,9 +893,8 @@ msgid "Select objs first"
msgstr "Antes seleccione objetos"
#: gschem/src/i_callbacks.c:712
-#, fuzzy
msgid "Edit pin type"
-msgstr "Editar tipo de lÃnea"
+msgstr "Editar tipo de pin"
#: gschem/src/i_callbacks.c:731
msgid "Edit Text"
@@ -965,16 +973,15 @@ msgstr "¿Seguro que quiere recargar la página?"
#: gschem/src/i_callbacks.c:1821
msgid "Copy to clipboard"
-msgstr ""
+msgstr "Copiar al portapapeles"
#: gschem/src/i_callbacks.c:1839
msgid "Cut to clipboard"
-msgstr ""
+msgstr "Cortar al portapapeles"
#: gschem/src/i_callbacks.c:1857
-#, fuzzy
msgid "Paste from clipboard"
-msgstr "Pegar memoria intermedia 1"
+msgstr "Pegar desde el portapapeles"
#: gschem/src/i_callbacks.c:1869 gschem/src/i_callbacks.c:2108
#: gschem/src/i_callbacks.c:2130 gschem/src/i_callbacks.c:2152
@@ -1117,11 +1124,11 @@ msgstr "Rejilla DESACTIVADA\n"
#: gschem/src/i_callbacks.c:3431
msgid "Dot grid selected\n"
-msgstr ""
+msgstr "Seleccionada rejilla de puntos\n"
#: gschem/src/i_callbacks.c:3432
msgid "Mesh grid selected\n"
-msgstr ""
+msgstr "Seleccionada rejilla de malla\n"
#: gschem/src/i_callbacks.c:3453
msgid "Snap OFF (CAUTION!)\n"
@@ -1132,9 +1139,8 @@ msgid "Snap ON\n"
msgstr "Ajuste a la rejilla ACTIVADO\n"
#: gschem/src/i_callbacks.c:3459
-#, fuzzy
msgid "Snap back to the grid (CAUTION!)\n"
-msgstr "¡PRECAUCI�N!: Ajuste a la rejilla DESACTIVADO \n"
+msgstr "Reajuste a la rejilla (¡PRECAUCI�N!)\n"
#: gschem/src/i_callbacks.c:3485
msgid "Rubber band OFF \n"
@@ -1160,12 +1166,12 @@ msgstr "¡Tipo de relleno de rectángulo desconocido!\n"
#: gschem/src/o_buffer.c:57
#, c-format
msgid "o_buffer_copy: Invalid buffer %i\n"
-msgstr ""
+msgstr "o_buffer_copy: memoria intermedia no válida %i\n"
#: gschem/src/o_buffer.c:72
#, c-format
msgid "o_buffer_cut: Invalid buffer %i\n"
-msgstr ""
+msgstr "o_buffer_cut: memoria intermedia no válida %i\n"
#: gschem/src/o_buffer.c:93
#, c-format
@@ -1175,11 +1181,11 @@ msgstr ""
"o_buffer_paste_start\n"
#: gschem/src/o_bus.c:118
-#, fuzzy, c-format
+#, c-format
msgid "Got an invalid which one in o_bus_draw_stretch\n"
msgstr ""
"Se ha recibido un parámetro no válido (\"whichone\") en la función "
-"o_bus_draw_xor_single\n"
+"o_bus_draw_stretch\n"
#: gschem/src/o_circle.c:134
#, c-format
@@ -1263,11 +1269,11 @@ msgstr ""
"o_move_check_endpoint\n"
#: gschem/src/o_net.c:159
-#, fuzzy, c-format
+#, c-format
msgid "Got an invalid which one in o_net_draw_stretch\n"
msgstr ""
"Se ha recibido un parámetro no válido (\"whichone\") en la función "
-"o_net_draw_xor_single\n"
+"o_net_draw_stretch\n"
#: gschem/src/o_net.c:536
msgid "Warning: Starting net at off grid coordinate\n"
@@ -1543,14 +1549,14 @@ msgid "white"
msgstr "blanco"
#: gschem/src/x_color.c:125
-#, fuzzy, c-format
+#, c-format
msgid "Could not allocate display color %i!\n"
-msgstr "¡No se puede reservar memoria para el color %s!\n"
+msgstr "¡No se puede reservar memoria para el color %i!\n"
#: gschem/src/x_color.c:147
-#, fuzzy, c-format
+#, c-format
msgid "Could not allocate outline color %i!\n"
-msgstr "¡No se puede reservar memoria para el color %s!\n"
+msgstr "¡No se puede reservar memoria para el color del contorno %i!\n"
#: gschem/src/x_color.c:164 gschem/src/x_color.c:181 gschem/src/x_color.c:197
#, c-format
@@ -1558,9 +1564,9 @@ msgid "Tried to get an invalid color: %d\n"
msgstr "Se ha intentado obtener un color no válido: %d\n"
#: gschem/src/x_color.c:214
-#, fuzzy, c-format
+#, c-format
msgid "Tried to get an invalid outline color: %d\n"
-msgstr "Se ha intentado obtener un color no válido: %d\n"
+msgstr "Se ha intentado obtener un color para el contorno no válido: %d\n"
#: gschem/src/x_compselect.c:1036
msgid "Filter:"
@@ -1909,11 +1915,11 @@ msgstr "Unión de conexiones"
#: gschem/src/x_dialog.c:2421
msgid "Mesh grid major"
-msgstr ""
+msgstr "Rejilla de malla mayor"
#: gschem/src/x_dialog.c:2424
msgid "Mesh grid minor"
-msgstr ""
+msgstr "Rejilla de malla menor"
#: gschem/src/x_dialog.c:2427
msgid "Unknown"
@@ -2015,18 +2021,16 @@ msgid "Invalid Attribute"
msgstr "Propiedad incorrecta"
#: gschem/src/x_dialog.c:4303
-#, fuzzy
msgid "Pin type"
-msgstr "Modo Pin"
+msgstr "Tipo de Pin"
#: gschem/src/x_dialog.c:4327
-#, fuzzy
msgid "Net pin"
-msgstr "Punto final de conexión"
+msgstr "Pin para conexión simple"
#: gschem/src/x_dialog.c:4329
msgid "Bus pin (graphical)"
-msgstr ""
+msgstr "Pin para conexión a bus (gráfico)"
#: gschem/src/x_fileselect.c:42
msgid "Schematics"
@@ -2175,9 +2179,8 @@ msgid "/Edit..."
msgstr "/Editar..."
#: gschem/src/x_menus.c:49
-#, fuzzy
msgid "/Edit pin type..."
-msgstr "Editar tipo de lÃnea"
+msgstr "/Editar tipo de pin"
#: gschem/src/x_menus.c:50
msgid "/Copy"
@@ -2244,7 +2247,7 @@ msgstr "Mostrar sólo nombre"
#: gschem/src/x_multiattrib.c:1491
msgid "Promote"
-msgstr ""
+msgstr "Promocionar"
#: gschem/src/x_multiattrib.c:1495
msgid "Duplicate"
@@ -2267,9 +2270,8 @@ msgid "V"
msgstr "V"
#: gschem/src/x_multiattrib.c:1889
-#, fuzzy
msgid "Show inherited attributes"
-msgstr "Desvincular propiedad"
+msgstr "Mostrar propiedades heredadas"
#: gschem/src/x_multiattrib.c:1905
msgid "Add Attribute"
@@ -2296,9 +2298,8 @@ msgid "Right click on the filename for more options..."
msgstr "Pulse con el botón derecho para ver más opciones..."
#: gschem/src/x_preview.c:234
-#, fuzzy
msgid "Preview Buffer"
-msgstr "Pegar"
+msgstr "Previsualizar memoria intermedia"
#: gschem/src/x_print.c:84
msgid "Select PostScript Filename..."
diff --git a/libgeda/po/es.po b/libgeda/po/es.po
index e6e7afc..3271dda 100644
--- a/libgeda/po/es.po
+++ b/libgeda/po/es.po
@@ -1,15 +1,15 @@
# Spanish/Spain translation of libgeda.
# Copyright (C) 2007-2008 Carlos Nieves Ã?nega
# This file is distributed under the same license as the libgeda package.
-# Carlos Nieves Ã?nega <cnieves@xxxxxxxxxx>, 2007, 2008.
#
#
+# Carlos Nieves Ã?nega <cnieves@xxxxxxxxxx>, 2007-2009.
msgid ""
msgstr ""
"Project-Id-Version: libgeda\n"
"Report-Msgid-Bugs-To: geda-bug@xxxxxxxx\n"
"POT-Creation-Date: 2009-08-18 22:55-0400\n"
-"PO-Revision-Date: 2008-12-21 21:07+0100\n"
+"PO-Revision-Date: 2009-08-25 21:30+0200\n"
"Last-Translator: Carlos Nieves Ã?nega <cnieves@xxxxxxxxxx>\n"
"Language-Team: geda-dev <geda-dev@xxxxxxxx>\n"
"MIME-Version: 1.0\n"
@@ -247,34 +247,38 @@ msgid "RC file [%s] already read in.\n"
msgstr "El archivo RC [%s] ya ha sido leÃdo.\n"
#: libgeda/src/g_rc.c:177
-#, fuzzy, c-format
+#, c-format
msgid "Read system config file [%%s]\n"
-msgstr "LeÃdo archivo system-%s [%%s]\n"
+msgstr "LeÃdo archivo de configuración de sistema [%%s]\n"
#: libgeda/src/g_rc.c:178
-#, fuzzy, c-format
+#, c-format
msgid "Did not find required system config file [%%s]\n"
-msgstr "No se ha encontrado el archivo imprescindible system-%s [%%s]\n"
+msgstr ""
+"No se ha encontrado el archivo imprescindible de configuración de sistema [%%"
+"s]\n"
#: libgeda/src/g_rc.c:212
-#, fuzzy, c-format
+#, c-format
msgid "Read user config file [%%s]\n"
-msgstr "LeÃdo el archivo especificado %s [%%s]\n"
+msgstr "LeÃdo el archivo de configuración de usuario [%%s]\n"
#: libgeda/src/g_rc.c:213
-#, fuzzy, c-format
+#, c-format
msgid "Did not find optional user config file [%%s]\n"
-msgstr "No se ha podido encontrar el archivo local %s [%%s]\n"
+msgstr ""
+"No se ha podido encontrar el archivo opcional de configuración de usuario [%%"
+"s]\n"
#: libgeda/src/g_rc.c:244
-#, fuzzy, c-format
+#, c-format
msgid "Read local config file [%%s]\n"
-msgstr "LeÃdo el archivo local %s [%%s]\n"
+msgstr "LeÃdo el archivo local de configuración [%%s]\n"
#: libgeda/src/g_rc.c:245
-#, fuzzy, c-format
+#, c-format
msgid "Did not find optional local config file [%%s]\n"
-msgstr "No se ha podido encontrar el archivo local %s [%%s]\n"
+msgstr "No se ha podido encontrar el archivo local de configuración [%%s]\n"
#: libgeda/src/g_rc.c:282
#, c-format
@@ -319,9 +323,8 @@ msgstr "Se ha encontrado un color no válido [%s]\n"
#: libgeda/src/o_line_basic.c:263 libgeda/src/o_net_basic.c:181
#: libgeda/src/o_path_basic.c:193 libgeda/src/o_pin_basic.c:194
#: libgeda/src/o_text_basic.c:417
-#, fuzzy
msgid "Setting color to default color\n"
-msgstr "Seleccionando color BLANCO\n"
+msgstr "Asignando el color por defecto al color\n"
#: libgeda/src/o_attrib.c:123
msgid "Attempt to attach non text item as an attribute!\n"
@@ -731,19 +734,19 @@ msgstr "Se ha encontrado más de un componente con el nombre [%s]\n"
#: libgeda/src/s_color.c:206
msgid "Color index out of range"
-msgstr ""
+msgstr "Ã?ndice de color fuera de rango"
#: libgeda/src/s_color.c:261
msgid "Color map entry must be a two-element list"
-msgstr ""
+msgstr "La entrada del mapa de colores debe ser una lista de dos elementos"
#: libgeda/src/s_color.c:269
msgid "Index in color map entry must be an integer"
-msgstr ""
+msgstr "El Ãndice en la entrada del mapa de colores debe ser un número entero"
#: libgeda/src/s_color.c:295
msgid "Value in color map entry must be #f or a string"
-msgstr ""
+msgstr "El valor en la entrada del mapa de colores debe ser #f o una cadena"
#: libgeda/src/s_hierarchy.c:90
#, c-format
commit 1ef5b2a3545e7ebc06025a460b0c9563663e789d
Author: Carlos Nieves Onega <cnieves@xxxxxxxxxx>
Commit: Carlos Nieves Onega <cnieves@xxxxxxxxxx>
Add a new scheme function to set the page filename.
Add a new scheme function set-page-filename to set the filename
of a given page.
diff --git a/libgeda/include/prototype_priv.h b/libgeda/include/prototype_priv.h
index c32c40d..44ccab0 100644
--- a/libgeda/include/prototype_priv.h
+++ b/libgeda/include/prototype_priv.h
@@ -51,6 +51,7 @@ SCM g_get_object_type(SCM object_smob);
SCM g_get_line_width(SCM object_smob);
void g_init_page_smob(void);
SCM g_get_page_filename(SCM page_smob);
+SCM g_set_page_filename(SCM page_smob, SCM scm_filename);
/* m_bounds.c */
void m_bounds_init(BOUNDS *bounds);
diff --git a/libgeda/src/g_smob.c b/libgeda/src/g_smob.c
index 6fbc74b..84dfb5d 100644
--- a/libgeda/src/g_smob.c
+++ b/libgeda/src/g_smob.c
@@ -762,6 +762,7 @@ void g_init_page_smob(void)
scm_set_smob_print(page_smob_tag, g_print_page_smob);
scm_c_define_gsubr ("get-page-filename", 1, 0, 0, g_get_page_filename);
+ scm_c_define_gsubr ("set-page-filename", 2, 0, 0, g_set_page_filename);
return;
}
@@ -842,3 +843,37 @@ SCM g_get_page_filename(SCM page_smob)
return (returned);
}
+/*! \brief Set the page filename of the given page smob.
+ * \par Function Description
+ * Set the page filename of the given page smob.
+ *
+ * \param [in] page_smob The page smob to set the filename from.
+ * \param [in] scm_filename The filename to set.
+ * \return the page filename or SCM_EOL if there was some error.
+ */
+SCM g_set_page_filename(SCM page_smob, SCM scm_filename)
+{
+ SCM returned = SCM_EOL;
+ PAGE *page;
+ char *filename = NULL;
+
+ SCM_ASSERT ( SCM_NIMP(page_smob) &&
+ ((long) SCM_CAR(page_smob) == page_smob_tag),
+ page_smob, SCM_ARG1, "set-page-filename");
+
+ SCM_ASSERT (scm_is_string(scm_filename), scm_filename,
+ SCM_ARG2, "set-page-filename");
+
+ page = (PAGE *)
+ (((struct st_page_smob *)SCM_CDR(page_smob))->page);
+
+ filename = SCM_STRING_CHARS (scm_filename);
+
+ if (page->page_filename)
+ g_free(page->page_filename);
+
+ page->page_filename = g_strdup(filename);
+
+ return SCM_BOOL_T;
+}
+
commit af3f6fc265cb30972df4344a39a67451ab1148b2
Author: Carlos Nieves Onega <cnieves@xxxxxxxxxx>
Commit: Carlos Nieves Onega <cnieves@xxxxxxxxxx>
Run the add component hook after adding a new component using scheme.
Run the add component hook after adding a new component
using the scheme function add-component-at-x-y.
diff --git a/gschem/src/g_hook.c b/gschem/src/g_hook.c
index 7cd5540..863057d 100644
--- a/gschem/src/g_hook.c
+++ b/gschem/src/g_hook.c
@@ -707,6 +707,14 @@ SCM g_add_component(SCM page_smob, SCM scm_comp_name, SCM scm_x, SCM scm_y,
o_complex_promote_attribs (toplevel, new_obj));
s_page_append (toplevel, page, new_obj);
+
+ /* Run the add component hook for the new component */
+ if (scm_hook_empty_p(add_component_object_hook) == SCM_BOOL_F) {
+ scm_run_hook(add_component_object_hook,
+ scm_cons(g_make_object_smob(toplevel,
+ new_obj), SCM_EOL));
+ }
+
/*
* For now, do not redraw the newly added complex, since this might cause
* flicker if you are zoom/panning right after this function executes
commit dbcfd09c99266379d08d90b9d8a9dd23a6566eec
Author: Carlos Nieves Onega <cnieves@xxxxxxxxxx>
Commit: Carlos Nieves Onega <cnieves@xxxxxxxxxx>
Fix x coordinate in add-component-at-xy function.
X coordinate was previously get from the Y coordinate parameter.
diff --git a/gschem/src/g_hook.c b/gschem/src/g_hook.c
index 5ba17b2..7cd5540 100644
--- a/gschem/src/g_hook.c
+++ b/gschem/src/g_hook.c
@@ -686,7 +686,7 @@ SCM g_add_component(SCM page_smob, SCM scm_comp_name, SCM scm_x, SCM scm_y,
/* Get the parameters */
comp_name = SCM_STRING_CHARS(scm_comp_name);
- x = scm_to_int(scm_y);
+ x = scm_to_int(scm_x);
y = scm_to_int(scm_y);
angle = scm_to_int(scm_angle);
selectable = SCM_NFALSEP(scm_selectable);
_______________________________________________
geda-cvs mailing list
geda-cvs@xxxxxxxxxxxxxx
http://www.seul.org/cgi-bin/mailman/listinfo/geda-cvs