home *** CD-ROM | disk | FTP | other *** search
- /*
- * This is a plug-in for the GIMP.
- *
- * Generates clickable image maps.
- *
- * Copyright (C) 1998-1999 Maurits Rijk lpeek.mrijk@consunet.nl
- *
- * 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
- *
- */
-
- #include "imap_cmd_create.h"
- #include "imap_command.h"
- #include "imap_default_dialog.h"
- #include "imap_grid.h"
- #include "imap_main.h"
- #include "imap_object.h"
- #include "imap_string.h"
-
- typedef struct {
- ObjectListCallbackFunc_t func;
- gpointer data;
- } ObjectListCB_t;
-
- static ObjectList_t *_paste_buffer;
-
- static gpointer
- object_list_callback_add(ObjectListCallback_t *list,
- ObjectListCallbackFunc_t func, gpointer data)
- {
- ObjectListCB_t *cb = g_new(ObjectListCB_t, 1);
- cb->func = func;
- cb->data = data;
- list->list = g_list_append(list->list, cb);
- return cb;
- }
-
- static void
- object_list_callback_remove(ObjectListCallback_t *list, gpointer id)
- {
- list->list = g_list_remove(list->list, id);
- }
-
- static void
- object_list_callback_call(ObjectListCallback_t *list, Object_t *obj)
- {
- GList *p;
- for (p = list->list; p; p = p->next) {
- ObjectListCB_t *cb = (ObjectListCB_t*) p->data;
- cb->func(obj, cb->data);
- }
- }
-
- gpointer
- object_list_add_changed_cb(ObjectList_t *list, ObjectListCallbackFunc_t func,
- gpointer data)
- {
- return object_list_callback_add(&list->changed_cb, func, data);
- }
-
- gpointer
- object_list_add_update_cb(ObjectList_t *list, ObjectListCallbackFunc_t func,
- gpointer data)
- {
- return object_list_callback_add(&list->update_cb, func, data);
- }
-
- gpointer
- object_list_add_add_cb(ObjectList_t *list, ObjectListCallbackFunc_t func,
- gpointer data)
- {
- return object_list_callback_add(&list->add_cb, func, data);
- }
-
- gpointer
- object_list_add_remove_cb(ObjectList_t *list, ObjectListCallbackFunc_t func,
- gpointer data)
- {
- return object_list_callback_add(&list->remove_cb, func, data);
- }
-
- gpointer
- object_list_add_select_cb(ObjectList_t *list, ObjectListCallbackFunc_t func,
- gpointer data)
- {
- return object_list_callback_add(&list->select_cb, func, data);
- }
-
- gpointer
- object_list_add_move_cb(ObjectList_t *list, ObjectListCallbackFunc_t func,
- gpointer data)
- {
- return object_list_callback_add(&list->move_cb, func, data);
- }
-
- gpointer
- object_list_add_geometry_cb(ObjectList_t *list, ObjectListCallbackFunc_t func,
- gpointer data)
- {
- return object_list_callback_add(&list->geometry_cb, func, data);
- }
-
- gpointer
- paste_buffer_add_add_cb(ObjectListCallbackFunc_t func, gpointer data)
- {
- if (!_paste_buffer)
- _paste_buffer = make_object_list();
- return object_list_callback_add(&_paste_buffer->add_cb, func, data);
- }
-
- gpointer
- paste_buffer_add_remove_cb(ObjectListCallbackFunc_t func, gpointer data)
- {
- if (!_paste_buffer)
- _paste_buffer = make_object_list();
- return object_list_callback_add(&_paste_buffer->remove_cb, func, data);
- }
-
- void
- object_list_remove_add_cb(ObjectList_t *list, gpointer id)
- {
- object_list_callback_remove(&list->add_cb, id);
- }
-
- void
- object_list_remove_select_cb(ObjectList_t *list, gpointer id)
- {
- object_list_callback_remove(&list->select_cb, id);
- }
-
- void
- object_list_remove_remove_cb(ObjectList_t *list, gpointer id)
- {
- object_list_callback_remove(&list->remove_cb, id);
- }
-
- void
- object_list_remove_move_cb(ObjectList_t *list, gpointer id)
- {
- object_list_callback_remove(&list->move_cb, id);
- }
-
- void
- object_list_remove_geometry_cb(ObjectList_t *list, gpointer id)
- {
- object_list_callback_remove(&list->geometry_cb, id);
- }
-
- Object_t*
- object_init(Object_t *obj, ObjectClass_t *class)
- {
- obj->class = class;
- obj->refcount = 1;
- obj->selected = FALSE;
- obj->locked = FALSE;
- obj->url = g_strdup("");
- obj->target = g_strdup("");
- obj->comment = g_strdup("");
- obj->mouse_over = g_strdup("");
- obj->mouse_out = g_strdup("");
- obj->focus = g_strdup("");
- obj->blur = g_strdup("");
- return obj;
- }
-
- static void
- object_destruct(Object_t *obj)
- {
- if (obj->class->destruct)
- obj->class->destruct(obj);
- g_free(obj->url);
- g_free(obj->target);
- g_free(obj->comment);
- g_free(obj->mouse_over);
- g_free(obj->mouse_out);
- g_free(obj->focus);
- g_free(obj->blur);
- g_free(obj);
- }
-
- Object_t*
- object_ref(Object_t *obj)
- {
- obj->refcount++;
- return obj;
- }
-
- void
- object_unref(Object_t *obj)
- {
- if (!--obj->refcount)
- object_destruct(obj);
- }
-
- Object_t*
- object_clone(Object_t *obj)
- {
- Object_t *clone = obj->class->clone(obj);
- clone->class = obj->class;
- clone->refcount = 1;
- clone->selected = obj->selected;
- clone->locked = FALSE;
- clone->url = g_strdup(obj->url);
- clone->target = g_strdup(obj->target);
- clone->comment = g_strdup(obj->comment);
- clone->mouse_over = g_strdup(obj->mouse_over);
- clone->mouse_out = g_strdup(obj->mouse_out);
- clone->focus = g_strdup(obj->focus);
- clone->blur = g_strdup(obj->blur);
- return clone;
- }
-
- static Object_t*
- object_copy(Object_t *src, Object_t *des)
- {
- des->class = src->class;
- des->selected = src->selected;
- des->locked = FALSE;
- g_strreplace(&des->url, src->url);
- g_strreplace(&des->target, src->target);
- g_strreplace(&des->comment, src->comment);
- g_strreplace(&des->mouse_over, src->mouse_over);
- g_strreplace(&des->mouse_out, src->mouse_out);
- g_strreplace(&des->focus, src->focus);
- g_strreplace(&des->blur, src->blur);
- return des;
- }
-
- Object_t*
- object_assign(Object_t *obj, Object_t *des)
- {
- obj->class->assign(obj, des);
- return object_copy(obj, des);
- }
-
- void
- object_draw(Object_t *obj, GdkWindow *window)
- {
- PreferencesData_t *preferences = get_preferences();
- GdkGC *gc = (obj->selected) ? preferences->selected_gc
- : preferences->normal_gc;
- obj->class->draw(obj, window, gc);
- if (obj->selected && preferences->show_area_handle)
- obj->class->draw_sashes(obj, window, gc);
- }
-
- void
- object_edit(Object_t *obj, gboolean add)
- {
- if (!obj->class->info_dialog)
- obj->class->info_dialog = create_edit_area_info_dialog(obj);
- edit_area_info_dialog_show(obj->class->info_dialog, obj, add);
- }
-
- void
- object_select(Object_t *obj)
- {
- obj->selected = TRUE;
- object_list_callback_call(&obj->list->select_cb, obj);
- }
-
- void
- object_unselect(Object_t *obj)
- {
- obj->selected = FALSE;
- object_list_callback_call(&obj->list->select_cb, obj);
- }
-
- void
- object_move(Object_t *obj, gint dx, gint dy)
- {
- obj->class->move(obj, dx, dy);
- object_list_callback_call(&obj->list->geometry_cb, obj);
- }
-
- void
- object_remove(Object_t *obj)
- {
- object_list_remove(obj->list, obj);
- }
-
- void
- object_lock(Object_t *obj)
- {
- obj->locked = TRUE;
- }
-
- void
- object_unlock(Object_t *obj)
- {
- obj->locked = FALSE;
- }
-
- void
- object_set_url(Object_t *obj, const gchar *url)
- {
- g_strreplace(&obj->url, url);
- }
-
- void
- object_set_target(Object_t *obj, const gchar *target)
- {
- g_strreplace(&obj->target, target);
- }
-
- void
- object_set_comment(Object_t *obj, const gchar *comment)
- {
- g_strreplace(&obj->comment, comment);
- }
-
- void
- object_set_mouse_over(Object_t *obj, const gchar *mouse_over)
- {
- g_strreplace(&obj->mouse_over, mouse_over);
- }
-
- void
- object_set_mouse_out(Object_t *obj, const gchar *mouse_out)
- {
- g_strreplace(&obj->mouse_out, mouse_out);
- }
-
- void
- object_set_focus(Object_t *obj, const gchar *focus)
- {
- g_strreplace(&obj->focus, focus);
- }
-
- void
- object_set_blur(Object_t *obj, const gchar *blur)
- {
- g_strreplace(&obj->blur, blur);
- }
-
- gint
- object_get_position_in_list(Object_t *obj)
- {
- return g_list_index(obj->list->list, (gpointer) obj);
- }
-
- void
- object_emit_changed_signal(Object_t *obj)
- {
- object_list_callback_call(&obj->list->changed_cb, obj);
- }
-
- void
- object_emit_geometry_signal(Object_t *obj)
- {
- object_list_callback_call(&obj->list->geometry_cb, obj);
- }
-
- void
- object_emit_update_signal(Object_t *obj)
- {
- object_list_callback_call(&obj->list->update_cb, obj);
- }
-
- GdkPixmap*
- object_get_icon(Object_t *obj, GtkWidget *widget, GdkBitmap **mask)
- {
- if (!obj->class->icon) {
- GtkStyle *style = gtk_widget_get_style(widget);
- obj->class->icon =
- gdk_pixmap_create_from_xpm_d(widget->window, &obj->class->mask,
- &style->bg[GTK_STATE_NORMAL],
- obj->class->get_icon_data());
- }
- *mask = obj->class->mask;
- return obj->class->icon;
- }
-
- void
- do_object_locked_dialog(void)
- {
- static DefaultDialog_t *dialog;
- if (!dialog) {
- dialog = make_default_dialog("Object locked");
- default_dialog_hide_cancel_button(dialog);
- default_dialog_hide_apply_button(dialog);
- default_dialog_set_label(
- dialog,
- "\n You cannot delete the selected object \n"
- "since it is currently being edited.\n");
- }
- default_dialog_show(dialog);
- }
-
- Object_t*
- object_factory_create_object(ObjectFactory_t *factory, gint x, gint y)
- {
- return factory->obj = factory->create_object(x, y);
- }
-
- static void
- button_motion(GtkWidget *widget, GdkEventMotion *event,
- ObjectFactory_t *factory)
- {
- gint x = get_real_coord((gint) event->x);
- gint y = get_real_coord((gint) event->y);
-
- round_to_grid(&x, &y);
-
- object_draw(factory->obj, widget->window);
- factory->set_xy(factory->obj, event->state, x, y);
- object_draw(factory->obj, widget->window);
- }
-
- void
- object_on_button_press(GtkWidget *widget, GdkEventButton *event, gpointer data)
- {
- static ObjectFactory_t *factory;
- PreferencesData_t *preferences = get_preferences();
- gint x = get_real_coord((gint) event->x);
- gint y = get_real_coord((gint) event->y);
- static Object_t *obj;
-
- if (event->type == GDK_2BUTTON_PRESS)
- return;
-
- round_to_grid(&x, &y);
-
- if (obj) {
- if (event->button == 1) {
- if (!factory->finish || factory->finish(obj, x, y)) {
- gtk_signal_disconnect_by_func(GTK_OBJECT(widget),
- (GtkSignalFunc) button_motion,
- factory);
-
- if (object_is_valid(obj)) {
- Command_t *command = create_command_new(get_shapes(), obj);
- command_execute(command);
-
- if (preferences->prompt_for_area_info)
- object_edit(obj, FALSE);
- } else {
- object_draw(obj, widget->window);
- object_unref(obj);
- }
- gdk_gc_set_function(preferences->normal_gc, GDK_COPY);
- obj = NULL;
- main_clear_dimension();
- }
- } else if (event->button == 3) {
- object_draw(obj, widget->window);
- if (!factory->cancel || factory->cancel(event, obj)) {
- gtk_signal_disconnect_by_func(GTK_OBJECT(widget),
- (GtkSignalFunc) button_motion,
- factory);
- object_unref(obj);
- gdk_gc_set_function(preferences->normal_gc, GDK_COPY);
- obj = NULL;
- main_clear_dimension();
- } else {
- object_draw(obj, widget->window);
- }
- }
- } else {
- if (event->button == 1) {
- factory = ((ObjectFactory_t*(*)(guint)) data)(event->state);
- obj = object_factory_create_object(factory, x, y);
-
- gdk_gc_set_function(preferences->normal_gc, GDK_EQUIV);
-
- gtk_signal_connect(GTK_OBJECT(widget), "motion_notify_event",
- (GtkSignalFunc) button_motion, factory);
- }
- }
- }
-
- ObjectList_t*
- make_object_list(void)
- {
- return g_new0 (ObjectList_t, 1);
- }
-
- void
- object_list_destruct(ObjectList_t *list)
- {
- object_list_remove_all(list);
- g_free(list->list);
- }
-
- ObjectList_t*
- object_list_append_list(ObjectList_t *des, ObjectList_t *src)
- {
- GList *p;
- for (p = src->list; p; p = p->next)
- object_list_append(des, object_clone((Object_t*) p->data));
- object_list_set_changed(des, (src) ? TRUE : FALSE);
- return des;
- }
-
- ObjectList_t*
- object_list_copy(ObjectList_t *des, ObjectList_t *src)
- {
- if (des)
- object_list_remove_all(des);
- else
- des = make_object_list();
-
- return object_list_append_list(des, src);
- }
-
- void
- object_list_append(ObjectList_t *list, Object_t *object)
- {
- object->list = list;
- list->list = g_list_append(list->list, (gpointer) object);
- object_list_set_changed(list, TRUE);
- object_list_callback_call(&list->add_cb, object);
- }
-
- void
- object_list_prepend(ObjectList_t *list, Object_t *object)
- {
- object->list = list;
- list->list = g_list_prepend(list->list, (gpointer) object);
- object_list_set_changed(list, TRUE);
- object_list_callback_call(&list->add_cb, object);
- }
-
- void
- object_list_insert(ObjectList_t *list, gint position, Object_t *object)
- {
- object->list = list;
- list->list = g_list_insert(list->list, (gpointer) object, position);
- object_list_set_changed(list, TRUE);
- object_list_callback_call(&list->add_cb, object);
- }
-
- void
- object_list_remove(ObjectList_t *list, Object_t *object)
- {
- list->list = g_list_remove(list->list, (gpointer) object);
- object_list_set_changed(list, TRUE);
- object_list_callback_call(&list->remove_cb, object);
- object_unref(object);
- }
-
- void
- object_list_remove_link(ObjectList_t *list, GList *link)
- {
- list->list = g_list_remove_link(list->list, link);
- object_list_set_changed(list, TRUE);
- object_list_callback_call(&list->remove_cb, (Object_t*) link->data);
- }
-
- void
- object_list_update(ObjectList_t *list, Object_t *object)
- {
- object_list_callback_call(&list->update_cb, object);
- }
-
- void
- object_list_draw(ObjectList_t *list, GdkWindow *window)
- {
- GList *p;
- for (p = list->list; p; p = p->next)
- object_draw((Object_t*) p->data, window);
- }
-
- void
- object_list_draw_selected(ObjectList_t *list, GdkWindow *window)
- {
- GList *p;
- for (p = list->list; p; p = p->next) {
- Object_t *obj = (Object_t*) p->data;
- if (obj->selected)
- object_draw(obj, window);
- }
- }
-
- Object_t*
- object_list_find(ObjectList_t *list, gint x, gint y)
- {
- Object_t *found = NULL;
- GList *p;
- for (p = list->list; p; p = p->next) {
- Object_t *obj = (Object_t*) p->data;
- if (obj->class->point_is_on(obj, x, y))
- found = obj;
- }
- return found;
- }
-
- Object_t*
- object_list_near_sash(ObjectList_t *list, gint x, gint y,
- MoveSashFunc_t *sash_func)
- {
- Object_t *found = NULL;
- GList *p;
- for (p = list->list; p; p = p->next) {
- Object_t *obj = (Object_t*) p->data;
- if (obj->selected) {
- MoveSashFunc_t func = obj->class->near_sash(obj, x, y);
- if (func) {
- found = obj;
- *sash_func = func;
- }
- }
- }
- return found;
- }
-
- void
- object_list_remove_all(ObjectList_t *list)
- {
- GList *p;
- for (p = list->list; p; p = p->next) {
- Object_t *obj = (Object_t*) p->data;
- object_list_callback_call(&list->remove_cb, obj);
- object_unref(obj);
- }
- g_list_free(list->list);
- list->list = NULL;
- object_list_set_changed(list, TRUE);
- }
-
- void
- clear_paste_buffer(void)
- {
- if (_paste_buffer)
- object_list_remove_all(_paste_buffer);
- else
- _paste_buffer = make_object_list();
- }
-
- ObjectList_t*
- get_paste_buffer(void)
- {
- return _paste_buffer;
- }
-
- gint
- object_list_cut(ObjectList_t *list)
- {
- GList *p, *q;
- gint count = 0;
-
- clear_paste_buffer();
- for (p = list->list; p; p = q) {
- Object_t *obj = (Object_t*) p->data;
- q = p->next;
- if (obj->selected) {
- if (obj->locked) {
- do_object_locked_dialog();
- } else {
- object_list_append(_paste_buffer, obj);
- object_list_remove_link(list, p);
- count++;
- }
- }
- }
- object_list_set_changed(list, (count) ? TRUE : FALSE);
- return count;
- }
-
- void
- object_list_copy_to_paste_buffer(ObjectList_t *list)
- {
- GList *p;
-
- clear_paste_buffer();
- for (p = list->list; p; p = p->next) {
- Object_t *obj = (Object_t*) p->data;
- if (obj->selected)
- object_list_append(_paste_buffer, object_clone(obj));
- }
- }
-
- void
- object_list_paste(ObjectList_t *list)
- {
- object_list_append_list(list, _paste_buffer);
- }
-
- void
- object_list_delete_selected(ObjectList_t *list)
- {
- GList *p, *q;
- for (p = list->list; p; p = q) {
- Object_t *obj = (Object_t*) p->data;
- q = p->next;
- if (obj->selected) {
- if (obj->locked) {
- do_object_locked_dialog();
- } else {
- object_list_remove_link(list, p);
- object_unref(obj);
- }
- }
- }
- }
-
- void
- object_list_edit_selected(ObjectList_t *list)
- {
- GList *p;
- for (p = list->list; p; p = p->next) {
- Object_t *obj = (Object_t*) p->data;
- if (obj->selected) {
- object_edit(obj, TRUE);
- break;
- }
- }
- }
-
- gint
- object_list_select_all(ObjectList_t *list)
- {
- GList *p;
- gint count = 0;
- for (p = list->list; p; p = p->next) {
- Object_t *obj = (Object_t*) p->data;
- if (!obj->selected) {
- object_select(obj);
- count++;
- }
- }
- return count;
- }
-
- void
- object_list_select_next(ObjectList_t *list)
- {
- GList *p;
- for (p = list->list; p; p = p->next) {
- Object_t *obj = (Object_t*) p->data;
- if (obj->selected) {
- object_unselect(obj);
- p = (p->next) ? p->next : list->list;
- object_select((Object_t*) p->data);
- for (p = p->next; p; p = p->next) {
- obj = (Object_t*) p->data;
- if (obj->selected)
- object_unselect(obj);
- }
- break;
- }
- }
- }
-
- void object_list_select_prev(ObjectList_t *list)
- {
- GList *p;
- for (p = list->list; p; p = p->next) {
- Object_t *obj = (Object_t*) p->data;
- if (obj->selected) {
- GList *q = (p->prev) ? p->prev : g_list_last(list->list);
- for (; p; p = p->next) {
- obj = (Object_t*) p->data;
- if (obj->selected)
- object_unselect(obj);
- }
- object_select((Object_t*) q->data);
- break;
- }
- }
- }
-
- gint
- object_list_select_region(ObjectList_t *list, gint x, gint y, gint width,
- gint height)
- {
- GList *p;
- gint count = 0;
- for (p = list->list; p; p = p->next) {
- Object_t *obj = (Object_t*) p->data;
- gint obj_x, obj_y, obj_width, obj_height;
-
- object_get_dimensions(obj, &obj_x, &obj_y, &obj_width, &obj_height);
- if (obj_x >= x && obj_x + obj_width <= x + width &&
- obj_y >= y && obj_y + obj_height <= y + height) {
- object_select(obj);
- count++;
- }
- }
- return count;
- }
-
- gint
- object_list_deselect_all(ObjectList_t *list, Object_t *exception)
- {
- GList *p;
- gint count = 0;
- for (p = list->list; p; p = p->next) {
- Object_t *obj = (Object_t*) p->data;
- if (obj->selected && obj != exception) {
- object_unselect(obj);
- count++;
- }
- }
- return count;
- }
-
- gint
- object_list_nr_selected(ObjectList_t *list)
- {
- GList *p;
- gint count = 0;
- for (p = list->list; p; p = p->next) {
- Object_t *obj = (Object_t*) p->data;
- if (obj->selected)
- count++;
- }
- return count;
- }
-
- void
- object_list_resize(ObjectList_t *list, gint percentage_x, gint percentage_y)
- {
- GList *p;
- for (p = list->list; p; p = p->next) {
- Object_t *obj = (Object_t*) p->data;
- object_resize(obj, percentage_x, percentage_y);
- }
- }
-
- static void
- object_list_swap_prev(ObjectList_t *list, GList *p)
- {
- gpointer swap = p->data;
- p->data = p->prev->data;
- p->prev->data = swap;
- object_list_callback_call(&list->move_cb, (Object_t*) p->data);
- object_list_callback_call(&list->move_cb, (Object_t*) p->prev->data);
- }
-
- static void
- object_list_swap_next(ObjectList_t *list, GList *p)
- {
- gpointer swap = p->data;
- p->data = p->next->data;
- p->next->data = swap;
- object_list_callback_call(&list->move_cb, (Object_t*) p->data);
- object_list_callback_call(&list->move_cb, (Object_t*) p->next->data);
- }
-
- void
- object_list_move_selected(ObjectList_t *list, gint dx, gint dy)
- {
- GList *p;
- for (p = list->list; p; p = p->next) {
- Object_t *obj = (Object_t*) p->data;
- if (obj->selected)
- object_move(obj, dx, dy);
- }
- }
-
- void
- object_list_move_up(ObjectList_t *list, Object_t *obj)
- {
- GList *p = g_list_find(list->list, (gpointer) obj);
- object_list_swap_prev(list, p);
- }
-
- void
- object_list_move_down(ObjectList_t *list, Object_t *obj)
- {
- GList *p = g_list_find(list->list, (gpointer) obj);
- object_list_swap_next(list, p);
- }
-
- void
- object_list_move_selected_up(ObjectList_t *list)
- {
- GList *p;
-
- for (p = list->list; p; p = p->next) {
- Object_t *obj = (Object_t*) p->data;
- if (obj->selected && p->prev)
- object_list_swap_prev(list, p);
- }
- }
-
- void
- object_list_move_selected_down(ObjectList_t *list)
- {
- GList *p;
-
- for (p = g_list_last(list->list); p; p = p->prev) {
- Object_t *obj = (Object_t*) p->data;
- if (obj->selected && p->next)
- object_list_swap_next(list, p);
- }
- }
-
- void
- object_list_move_to_front(ObjectList_t *list)
- {
- GList *p, *q;
- guint length = g_list_length(list->list);
-
- for (p = list->list; length; p = q, length--) {
- Object_t *obj = (Object_t*) p->data;
- q = p->next;
- if (obj->selected) {
- object_list_remove_link(list, p);
- object_list_append(list, obj);
- }
- }
- }
-
- void
- object_list_send_to_back(ObjectList_t *list)
- {
- GList *p, *q;
- guint length = g_list_length(list->list);
-
- for (p = list->list; length; p = q, length--) {
- Object_t *obj = (Object_t*) p->data;
- q = p->next;
- if (obj->selected) {
- object_list_remove_link(list, p);
- object_list_prepend(list, obj);
- }
- }
- }
-
- void
- object_list_write_csim(ObjectList_t *list, gpointer param, OutputFunc_t output)
- {
- GList *p;
- for (p = list->list; p; p = p->next) {
- Object_t *obj = (Object_t*) p->data;
-
- output(param, "<AREA SHAPE=");
- obj->class->write_csim(obj, param, output);
- if (*obj->comment)
- output(param, " ALT=\"%s\"", obj->comment);
- if (*obj->target)
- output(param, " TARGET=\"%s\"", obj->target);
- if (*obj->mouse_over)
- output(param, " onMouseover=\"%s\"", obj->mouse_over);
- if (*obj->mouse_out)
- output(param, " onMouseout=\"%s\"", obj->mouse_out);
- if (*obj->focus)
- output(param, " onFocus=\"%s\"", obj->focus);
- if (*obj->blur)
- output(param, " onBlur=\"%s\"", obj->blur);
-
- output(param, " HREF=\"%s\">\n", obj->url);
- }
- }
-
- void
- object_list_write_cern(ObjectList_t *list, gpointer param, OutputFunc_t output)
- {
- GList *p;
- for (p = list->list; p; p = p->next) {
- Object_t *obj = (Object_t*) p->data;
- obj->class->write_cern(obj, param, output);
- output(param, " %s\n", obj->url);
- }
- }
-
- void
- object_list_write_ncsa(ObjectList_t *list, gpointer param, OutputFunc_t output)
- {
- GList *p;
- for (p = list->list; p; p = p->next) {
- Object_t *obj = (Object_t*) p->data;
-
- if (*obj->comment)
- output(param, "# %s\n", obj->comment);
- obj->class->write_ncsa(obj, param, output);
- output(param, "\n");
- }
- }
-