Add compatibility for GTK 2.18
[geeqie.git] / src / ui_tree_edit.c
1 /*
2  * (SLIK) SimpLIstic sKin functions
3  * (C) 2004 John Ellis
4  * Copyright (C) 2008 - 2009 The Geeqie Team
5  *
6  * Author: John Ellis
7  *
8  * This software is released under the GNU General Public License (GNU GPL).
9  * Please read the included file COPYING for more information.
10  * This software comes with no warranty of any kind, use at your own risk!
11  */
12
13 #ifdef HAVE_CONFIG_H
14 #  include "config.h"
15 #endif
16 #include "intl.h"
17
18 #include <stdio.h>
19 #include <stdlib.h>
20 #include <string.h>
21
22 #include <gtk/gtk.h>
23 #include <gdk/gdkkeysyms.h>
24
25 #include "ui_tree_edit.h"
26
27 /*
28  *-------------------------------------------------------------------
29  * cell popup editor
30  *-------------------------------------------------------------------
31  */
32
33 static void tree_edit_close(TreeEditData *ted)
34 {
35         gtk_grab_remove(ted->window);
36         gdk_keyboard_ungrab(GDK_CURRENT_TIME);
37         gdk_pointer_ungrab(GDK_CURRENT_TIME);
38
39         gtk_widget_destroy(ted->window);
40
41         g_free(ted->old_name);
42         g_free(ted->new_name);
43         gtk_tree_path_free(ted->path);
44
45         g_free(ted);
46 }
47
48 static void tree_edit_do(TreeEditData *ted)
49 {
50         ted->new_name = g_strdup(gtk_entry_get_text(GTK_ENTRY(ted->entry)));
51
52         if (strcmp(ted->new_name, ted->old_name) != 0)
53                 {
54                 if (ted->edit_func)
55                         {
56                         if (ted->edit_func(ted, ted->old_name, ted->new_name, ted->edit_data))
57                                 {
58                                 /* hmm, should the caller be required to set text instead ? */
59                                 }
60                         }
61                 }
62 }
63
64 static gboolean tree_edit_click_end_cb(GtkWidget *widget, GdkEventButton *event, gpointer data)
65 {
66         TreeEditData *ted = data;
67
68         tree_edit_do(ted);
69         tree_edit_close(ted);
70
71         return TRUE;
72 }
73
74 static gboolean tree_edit_click_cb(GtkWidget *widget, GdkEventButton *event, gpointer data)
75 {
76         TreeEditData *ted = data;
77
78         gint x, y;
79         gint w, h;
80
81         gint xr, yr;
82
83         xr = (gint)event->x_root;
84         yr = (gint)event->y_root;
85
86         gdk_window_get_origin(ted->window->window, &x, &y);
87         gdk_drawable_get_size(ted->window->window, &w, &h);
88
89         if (xr < x || yr < y || xr > x + w || yr > y + h)
90                 {
91                 /* gobble the release event, so it does not propgate to an underlying widget */
92                 g_signal_connect(G_OBJECT(ted->window), "button_release_event",
93                                  G_CALLBACK(tree_edit_click_end_cb), ted);
94                 return TRUE;
95                 }
96         return FALSE;
97 }
98
99 static gboolean tree_edit_key_press_cb(GtkWidget *widget, GdkEventKey *event, gpointer data)
100 {
101         TreeEditData *ted = data;
102
103         switch (event->keyval)
104                 {
105                 case GDK_Return:
106                 case GDK_KP_Enter:
107                 case GDK_Tab:           /* ok, we are going to intercept the focus change
108                                            from keyboard and act like return was hit */
109                 case GDK_ISO_Left_Tab:
110                 case GDK_Up:
111                 case GDK_Down:
112                 case GDK_KP_Up:
113                 case GDK_KP_Down:
114                 case GDK_KP_Left:
115                 case GDK_KP_Right:
116                         tree_edit_do(ted);
117                         tree_edit_close(ted);
118                         break;
119                 case GDK_Escape:
120                         tree_edit_close(ted);
121                         break;
122                 default:
123                         break;
124                 }
125
126         return FALSE;
127 }
128
129 static gboolean tree_edit_by_path_idle_cb(gpointer data)
130 {
131         TreeEditData *ted = data;
132         GdkRectangle rect;
133         gint x, y, w, h;        /* geometry of cell within tree */
134         gint wx, wy;            /* geometry of tree from root window */
135         gint sx, sw;
136
137         gtk_tree_view_get_cell_area(ted->tree, ted->path, ted->column, &rect);
138
139         x = rect.x;
140         y = rect.y;
141         w = rect.width + 4;
142         h = rect.height + 4;
143
144         if (gtk_tree_view_column_cell_get_position(ted->column, ted->cell, &sx, &sw))
145                 {
146                 x += sx;
147                 w = MAX(w - sx, sw);
148                 }
149
150         gdk_window_get_origin(gtk_tree_view_get_bin_window(ted->tree), &wx, &wy);
151
152         x += wx - 2; /* the -val is to 'fix' alignment of entry position */
153         y += wy - 2;
154
155         /* now show it */
156         gtk_widget_set_size_request(ted->window, w, h);
157         gtk_widget_realize(ted->window);
158         gtk_window_move(GTK_WINDOW(ted->window), x, y);
159         gtk_window_resize(GTK_WINDOW(ted->window), w, h);
160         gtk_widget_show(ted->window);
161
162         /* grab it */
163         gtk_widget_grab_focus(ted->entry);
164         /* explicitely set the focus flag for the entry, for some reason on popup windows this
165          * is not set, and causes no edit cursor to appear ( popups not allowed focus? )
166          */
167         GTK_WIDGET_SET_FLAGS(ted->entry, GTK_HAS_FOCUS);
168         gtk_grab_add(ted->window);
169         gdk_pointer_grab(ted->window->window, TRUE,
170                          GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK | GDK_BUTTON_MOTION_MASK,
171                          NULL, NULL, GDK_CURRENT_TIME);
172         gdk_keyboard_grab(ted->window->window, TRUE, GDK_CURRENT_TIME);
173
174         return FALSE;
175 }
176
177 gboolean tree_edit_by_path(GtkTreeView *tree, GtkTreePath *tpath, gint column, const gchar *text,
178                            gboolean (*edit_func)(TreeEditData *, const gchar *, const gchar *, gpointer), gpointer data)
179 {
180         TreeEditData *ted;
181         GtkTreeViewColumn *tcolumn;
182         GtkCellRenderer *cell = NULL;
183         GList *list;
184         GList *work;
185
186         if (!edit_func) return FALSE;
187         if (!GTK_WIDGET_VISIBLE(tree)) return FALSE;
188
189         tcolumn = gtk_tree_view_get_column(tree, column);
190         if (!tcolumn) return FALSE;
191
192 #if GTK_CHECK_VERSION(2,18,0)
193         list = gtk_cell_layout_get_cells(GTK_CELL_LAYOUT(tcolumn));
194 #else
195         list = gtk_tree_view_column_get_cell_renderers(tcolumn);
196 #endif
197         work = list;
198         while (work && !cell)
199                 {
200                 cell = work->data;
201                 if (!GTK_IS_CELL_RENDERER_TEXT(cell))
202                         {
203                         cell = NULL;
204                         }
205                 work = work->next;
206                 }
207
208         g_list_free(list);
209         if (!cell) return FALSE;
210
211         if (!text) text = "";
212
213         ted = g_new0(TreeEditData, 1);
214
215         ted->old_name = g_strdup(text);
216
217         ted->edit_func = edit_func;
218         ted->edit_data = data;
219
220         ted->tree = tree;
221         ted->path = gtk_tree_path_copy(tpath);
222         ted->column = tcolumn;
223         ted->cell = cell;
224
225         gtk_tree_view_scroll_to_cell(ted->tree, ted->path, ted->column, FALSE, 0.0, 0.0);
226
227         /* create the window */
228
229         ted->window = gtk_window_new(GTK_WINDOW_POPUP);
230         gtk_window_set_resizable(GTK_WINDOW(ted->window), FALSE);
231         g_signal_connect(G_OBJECT(ted->window), "button_press_event",
232                          G_CALLBACK(tree_edit_click_cb), ted);
233         g_signal_connect(G_OBJECT(ted->window), "key_press_event",
234                          G_CALLBACK(tree_edit_key_press_cb), ted);
235
236         ted->entry = gtk_entry_new();
237         gtk_entry_set_text(GTK_ENTRY(ted->entry), ted->old_name);
238         gtk_editable_select_region(GTK_EDITABLE(ted->entry), 0, strlen(ted->old_name));
239         gtk_container_add(GTK_CONTAINER(ted->window), ted->entry);
240         gtk_widget_show(ted->entry);
241
242         /* due to the fact that gtktreeview scrolls in an idle loop, we cannot
243          * reliably get the cell position until those scroll priority signals are processed
244          */
245         g_idle_add_full(G_PRIORITY_DEFAULT_IDLE - 2, tree_edit_by_path_idle_cb, ted, NULL);
246
247         return TRUE;
248 }
249
250 /*
251  *-------------------------------------------------------------------
252  * tree cell position retrieval
253  *-------------------------------------------------------------------
254  */
255
256 gboolean tree_view_get_cell_origin(GtkTreeView *widget, GtkTreePath *tpath, gint column, gboolean text_cell_only,
257                                    gint *x, gint *y, gint *width, gint *height)
258 {
259         gint x_origin, y_origin;
260         gint x_offset, y_offset;
261         gint header_size;
262         GtkTreeViewColumn *tv_column;
263         GdkRectangle rect;
264
265         tv_column = gtk_tree_view_get_column(widget, column);
266         if (!tv_column || !tpath) return FALSE;
267
268         /* hmm, appears the rect will not account for X scroll, but does for Y scroll
269          * use x_offset instead for X scroll (sigh)
270          */
271         gtk_tree_view_get_cell_area(widget, tpath, tv_column, &rect);
272 #if GTK_CHECK_VERSION(2,12,0)
273         gtk_tree_view_convert_tree_to_widget_coords(widget, 0, 0, &x_offset, &y_offset);
274 #else
275         gtk_tree_view_tree_to_widget_coords(widget, 0, 0, &x_offset, &y_offset);
276 #endif
277         gdk_window_get_origin(GTK_WIDGET(widget)->window, &x_origin, &y_origin);
278
279         if (gtk_tree_view_get_headers_visible(widget))
280                 {
281                 header_size = tv_column->button->allocation.height;
282                 }
283         else
284                 {
285                 header_size = 0;
286                 }
287
288         if (text_cell_only)
289                 {
290                 GtkCellRenderer *cell = NULL;
291                 GList *renderers;
292                 GList *work;
293                 gint cell_x;
294                 gint cell_width;
295
296 #if GTK_CHECK_VERSION(2,18,0)
297                 renderers = gtk_cell_layout_get_cells(GTK_CELL_LAYOUT(tv_column));
298 #else
299                 renderers = gtk_tree_view_column_get_cell_renderers(tv_column);
300 #endif
301                 work = renderers;
302                 while (work && !cell)
303                         {
304                         cell = work->data;
305                         work = work->next;
306                         if (!GTK_IS_CELL_RENDERER_TEXT(cell)) cell = NULL;
307                         }
308                 g_list_free(renderers);
309
310                 if (!cell) return FALSE;
311
312                 if (!gtk_tree_view_column_cell_get_position(tv_column, cell, &cell_x, &cell_width))
313                         {
314                         cell_x = 0;
315                         cell_width = rect.width;
316                         }
317                 *x = x_origin + x_offset + rect.x + cell_x;
318                 *width = cell_width;
319                 }
320         else
321                 {
322                 *x = x_origin + x_offset + rect.x;
323                 *width = rect.width;
324                 }
325         *y = y_origin + rect.y + header_size;
326         *height = rect.height;
327         return TRUE;
328 }
329
330 void tree_view_get_cell_clamped(GtkTreeView *widget, GtkTreePath *tpath, gint column, gboolean text_cell_only,
331                                 gint *x, gint *y, gint *width, gint *height)
332 {
333         gint wx, wy, ww, wh;
334         GdkWindow *window;
335
336         window = GTK_WIDGET(widget)->window;
337         gdk_window_get_origin(window, &wx, &wy);
338         gdk_drawable_get_size(window, &ww, &wh);
339         if (!tree_view_get_cell_origin(widget, tpath, column, text_cell_only, x,  y, width, height))
340                 {
341                 *x = wx;
342                 *y = wy;
343                 *width = ww;
344                 *height = wh;
345                 return;
346                 }
347
348         *width = MIN(*width, ww);
349         *x = CLAMP(*x, wx, wx + ww - (*width));
350         *y = CLAMP(*y, wy, wy + wh);
351         *height = MIN(*height, wy + wh - (*y));
352 }
353
354 #if GTK_CHECK_VERSION(2,8,0)
355 /* an implementation that uses gtk_tree_view_get_visible_range */
356 gint tree_view_row_get_visibility(GtkTreeView *widget, GtkTreeIter *iter, gboolean fully_visible)
357 {
358         GtkTreeModel *store;
359         GtkTreePath *tpath, *start_path, *end_path;
360         gint ret = 0;
361
362         if (!gtk_tree_view_get_visible_range(widget, &start_path, &end_path)) return -1; /* we will most probably scroll down, needed for tree_view_row_make_visible */
363
364         store = gtk_tree_view_get_model(widget);
365         tpath = gtk_tree_model_get_path(store, iter);
366
367         if (fully_visible)
368                 {
369                 if (gtk_tree_path_compare(tpath, start_path) <= 0)
370                         {
371                         ret = -1;
372                         }
373                 else if (gtk_tree_path_compare(tpath, end_path) >= 0)
374                         {
375                         ret = 1;
376                         }
377                 }
378         else
379                 {
380                 if (gtk_tree_path_compare(tpath, start_path) < 0)
381                         {
382                         ret = -1;
383                         }
384                 else if (gtk_tree_path_compare(tpath, end_path) > 0)
385                         {
386                         ret = 1;
387                         }
388                 }
389
390         gtk_tree_path_free(tpath);
391         gtk_tree_path_free(start_path);
392         gtk_tree_path_free(end_path);
393         return ret;
394 }
395
396 #else 
397 /* an implementation that uses gtk_tree_view_get_visible_rect, it seems to be more error prone than the variant above */
398
399 gint tree_view_row_get_visibility(GtkTreeView *widget, GtkTreeIter *iter, gboolean fully_visible)
400 {
401         GtkTreeModel *store;
402         GtkTreePath *tpath;
403         gint cx, cy;
404
405         GdkRectangle vrect;
406         GdkRectangle crect;
407
408         if (!GTK_WIDGET_REALIZED(GTK_WIDGET(widget))) return -1; /* we will most probably scroll down, needed for tree_view_row_make_visible */
409
410         store = gtk_tree_view_get_model(widget);
411         tpath = gtk_tree_model_get_path(store, iter);
412
413         gtk_tree_view_get_visible_rect(widget, &vrect);
414         gtk_tree_view_get_cell_area(widget, tpath, NULL, &crect);
415         gtk_tree_path_free(tpath);
416
417
418 #if GTK_CHECK_VERSION(2,12,0)
419         gtk_tree_view_convert_widget_to_tree_coords(widget, crect.x, crect.y, &cx, &cy);
420 #else
421         gtk_tree_view_widget_to_tree_coords(widget, crect.x, crect.y, &cx, &cy);
422 #endif
423
424         if (fully_visible)
425                 {
426                 if (cy < vrect.y) return -1;
427                 if (cy + crect.height > vrect.y + vrect.height) return 1;
428                 return 0;
429                 }
430
431         if (cy + crect.height < vrect.y) return -1;
432         if (cy > vrect.y + vrect.height) return 1;
433         return 0;
434 }
435 #endif
436
437 gint tree_view_row_make_visible(GtkTreeView *widget, GtkTreeIter *iter, gboolean center)
438 {
439         GtkTreePath *tpath;
440         gint vis;
441
442         vis = tree_view_row_get_visibility(widget, iter, TRUE);
443
444         tpath = gtk_tree_model_get_path(gtk_tree_view_get_model(widget), iter);
445         if (center && vis != 0)
446                 {
447                 gtk_tree_view_scroll_to_cell(widget, tpath, NULL, TRUE, 0.5, 0.0);
448                 }
449         else if (vis < 0)
450                 {
451                 gtk_tree_view_scroll_to_cell(widget, tpath, NULL, TRUE, 0.0, 0.0);
452                 }
453         else if (vis > 0)
454                 {
455                 gtk_tree_view_scroll_to_cell(widget, tpath, NULL, TRUE, 1.0, 0.0);
456                 }
457         gtk_tree_path_free(tpath);
458
459         return vis;
460 }
461
462 gboolean tree_view_move_cursor_away(GtkTreeView *widget, GtkTreeIter *iter, gboolean only_selected)
463 {
464         GtkTreeModel *store;
465         GtkTreePath *tpath;
466         GtkTreePath *fpath;
467         gboolean move = FALSE;
468
469         if (!iter) return FALSE;
470
471         store = gtk_tree_view_get_model(widget);
472         tpath = gtk_tree_model_get_path(store, iter);
473         gtk_tree_view_get_cursor(widget, &fpath, NULL);
474
475         if (fpath && gtk_tree_path_compare(tpath, fpath) == 0)
476                 {
477                 GtkTreeSelection *selection;
478
479                 selection = gtk_tree_view_get_selection(widget);
480
481                 if (!only_selected ||
482                     gtk_tree_selection_path_is_selected(selection, tpath))
483                         {
484                         GtkTreeIter current;
485
486                         current = *iter;
487                         if (gtk_tree_model_iter_next(store, &current))
488                                 {
489                                 gtk_tree_path_next(tpath);
490                                 move = TRUE;
491                                 }
492                         else if (gtk_tree_path_prev(tpath) &&
493                                  gtk_tree_model_get_iter(store, &current, tpath))
494                                 {
495                                 move = TRUE;
496                                 }
497
498                         if (move)
499                                 {
500                                 gtk_tree_view_set_cursor(widget, tpath, NULL, FALSE);
501                                 }
502                         }
503                 }
504
505         gtk_tree_path_free(tpath);
506         if (fpath) gtk_tree_path_free(fpath);
507
508         return move;
509 }
510
511 gint tree_path_to_row(GtkTreePath *tpath)
512 {
513         gint *indices;
514
515         indices = gtk_tree_path_get_indices(tpath);
516         if (indices) return indices[0];
517
518         return -1;
519 }
520
521
522 /*
523  *-------------------------------------------------------------------
524  * color utilities
525  *-------------------------------------------------------------------
526  */
527
528 void shift_color(GdkColor *src, gshort val, gint direction)
529 {
530         gshort cs;
531
532         if (val == -1)
533                 {
534                 val = STYLE_SHIFT_STANDARD;
535                 }
536         else
537                 {
538                 val = CLAMP(val, 1, 100);
539                 }
540         cs = 0xffff / 100 * val;
541
542         /* up or down ? */
543         if (direction < 0 ||
544             (direction == 0 &&((gint)src->red + (gint)src->green + (gint)src->blue) / 3 > 0xffff / 2))
545                 {
546                 src->red = MAX(0 , src->red - cs);
547                 src->green = MAX(0 , src->green - cs);
548                 src->blue = MAX(0 , src->blue - cs);
549                 }
550         else
551                 {
552                 src->red = MIN(0xffff, src->red + cs);
553                 src->green = MIN(0xffff, src->green + cs);
554                 src->blue = MIN(0xffff, src->blue + cs);
555                 }
556 }
557
558 /* darkens or lightens a style's color for given state
559  * esp. useful for alternating dark/light in (c)lists
560  */
561 void style_shift_color(GtkStyle *style, GtkStateType type, gshort shift_value, gint direction)
562 {
563         if (!style) return;
564
565         shift_color(&style->base[type], shift_value, direction);
566         shift_color(&style->bg[type], shift_value, direction);
567 }
568
569 /*
570  *-------------------------------------------------------------------
571  * auto scroll by mouse position
572  *-------------------------------------------------------------------
573  */
574
575 #define AUTO_SCROLL_DEFAULT_SPEED 100
576 #define AUTO_SCROLL_DEFAULT_REGION 20
577
578 typedef struct _AutoScrollData AutoScrollData;
579 struct _AutoScrollData
580 {
581         guint timer_id; /* event source id */
582         gint region_size;
583         GtkWidget *widget;
584         GtkAdjustment *adj;
585         gint max_step;
586
587         gint (*notify_func)(GtkWidget *, gint, gint, gpointer);
588         gpointer notify_data;
589 };
590
591 void widget_auto_scroll_stop(GtkWidget *widget)
592 {
593         AutoScrollData *sd;
594
595         sd = g_object_get_data(G_OBJECT(widget), "autoscroll");
596         if (!sd) return;
597         g_object_set_data(G_OBJECT(widget), "autoscroll", NULL);
598
599         if (sd->timer_id) g_source_remove(sd->timer_id);
600         g_free(sd);
601 }
602
603 static gboolean widget_auto_scroll_cb(gpointer data)
604 {
605         AutoScrollData *sd = data;
606         GdkWindow *window;
607         gint x, y;
608         gint w, h;
609         gint amt = 0;
610
611         if (sd->max_step < sd->region_size)
612                 {
613                 sd->max_step = MIN(sd->region_size, sd->max_step + 2);
614                 }
615
616         window = sd->widget->window;
617         gdk_window_get_pointer(window, &x, &y, NULL);
618         gdk_drawable_get_size(window, &w, &h);
619
620         if (x < 0 || x >= w || y < 0 || y >= h)
621                 {
622                 sd->timer_id = 0;
623                 widget_auto_scroll_stop(sd->widget);
624                 return FALSE;
625                 }
626
627         if (h < sd->region_size * 3)
628                 {
629                 /* height is cramped, nicely divide into three equal regions */
630                 if (y < h / 3 || y > h / 3 * 2)
631                         {
632                         amt = (y < h / 2) ? 0 - ((h / 2) - y) : y - (h / 2);
633                         }
634                 }
635         else if (y < sd->region_size)
636                 {
637                 amt = 0 - (sd->region_size - y);
638                 }
639         else if (y >= h - sd->region_size)
640                 {
641                 amt = y - (h - sd->region_size);
642                 }
643
644         if (amt != 0)
645                 {
646                 amt = CLAMP(amt, 0 - sd->max_step, sd->max_step);
647
648                 if (sd->adj->value != CLAMP(sd->adj->value + amt, sd->adj->lower, sd->adj->upper - sd->adj->page_size))
649                         {
650                         /* only notify when scrolling is needed */
651                         if (sd->notify_func && !sd->notify_func(sd->widget, x, y, sd->notify_data))
652                                 {
653                                 sd->timer_id = 0;
654                                 widget_auto_scroll_stop(sd->widget);
655                                 return FALSE;
656                                 }
657
658                         gtk_adjustment_set_value(sd->adj,
659                                 CLAMP(sd->adj->value + amt, sd->adj->lower, sd->adj->upper - sd->adj->page_size));
660                         }
661                 }
662
663         return TRUE;
664 }
665
666 gint widget_auto_scroll_start(GtkWidget *widget, GtkAdjustment *v_adj, gint scroll_speed, gint region_size,
667                               gint (*notify_func)(GtkWidget *widget, gint x, gint y, gpointer data), gpointer notify_data)
668 {
669         AutoScrollData *sd;
670
671         if (!widget || !v_adj) return 0;
672         if (g_object_get_data(G_OBJECT(widget), "autoscroll")) return 0;
673         if (scroll_speed < 1) scroll_speed = AUTO_SCROLL_DEFAULT_SPEED;
674         if (region_size < 1) region_size = AUTO_SCROLL_DEFAULT_REGION;
675
676         sd = g_new0(AutoScrollData, 1);
677         sd->widget = widget;
678         sd->adj = v_adj;
679         sd->region_size = region_size;
680         sd->max_step = 1;
681         sd->timer_id = g_timeout_add(scroll_speed, widget_auto_scroll_cb, sd);
682
683         sd->notify_func = notify_func;
684         sd->notify_data = notify_data;
685
686         g_object_set_data(G_OBJECT(widget), "autoscroll", sd);
687
688         return scroll_speed;
689 }
690
691
692 /*
693  *-------------------------------------------------------------------
694  * GList utils
695  *-------------------------------------------------------------------
696  */
697
698 GList *uig_list_insert_link(GList *list, GList *link, gpointer data)
699 {
700         GList *new_list;
701
702         if (!list || link == list) return g_list_prepend(list, data);
703         if (!link) return g_list_append(list, data);
704
705         new_list = g_list_alloc();
706         new_list->data = data;
707
708         if (link->prev)
709                 {
710                 link->prev->next = new_list;
711                 new_list->prev = link->prev;
712                 }
713         else
714                 {
715                 list = new_list;
716                 }
717         link->prev = new_list;
718         new_list->next = link;
719
720         return list;
721 }
722
723 GList *uig_list_insert_list(GList *parent, GList *insert_link, GList *list)
724 {
725         GList *end;
726
727         if (!insert_link) return g_list_concat(parent, list);
728         if (insert_link == parent) return g_list_concat(list, parent);
729         if (!parent) return list;
730         if (!list) return parent;
731
732         end  = g_list_last(list);
733
734         if (insert_link->prev) insert_link->prev->next = list;
735         list->prev = insert_link->prev;
736         insert_link->prev = end;
737         end->next = insert_link;
738
739         return parent;
740 }
741 /* vim: set shiftwidth=8 softtabstop=0 cindent cinoptions={1s: */