annotate lisp/gtk-extra.el @ 5067:7d7ae8db0341

add functions `stable-union' and `stable-intersection' to do stable set operations -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2010-02-22 Ben Wing <ben@xemacs.org> * cl-seq.el: * cl-seq.el (stable-union): New. * cl-seq.el (stable-intersection): New. New functions to do stable set operations, i.e. preserve the order of the elements in the argument lists, and prefer LIST1 over LIST2 when ordering the combined result. The result looks as much like LIST1 as possible, followed (in the case of `stable-union') by any necessary elements from LIST2, in order. This is contrary to `union' and `intersection', which are not required to be order- preserving and are not -- they prefer LIST2 and output results in backwards order.
author Ben Wing <ben@xemacs.org>
date Mon, 22 Feb 2010 21:23:02 -0600
parents 7039e6323819
children 308d34e9f07d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1 ;;; gtk-extra.el --- Import `GTK+ Extra' widgets into XEmacs
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
3 ;; Copyright (C) 2000 Free Software Foundation
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
4
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
5 ;; Maintainer: William Perry <wmperry@gnu.org>
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
6 ;; Keywords: extensions, dumped
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
7
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
8 ;; This file is part of XEmacs.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
9
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
10 ;; XEmacs is free software; you can redistribute it and/or modify it
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
11 ;; under the terms of the GNU General Public License as published by
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
13 ;; any later version.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
14
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
15 ;; XEmacs is distributed in the hope that it will be useful, but
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
18 ;; General Public License for more details.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
19
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
21 ;; along with XEmacs; see the file COPYING. If not, write to the Free
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
23 ;; 02111-1307, USA.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
24
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
25 ;;; Synched up with: Not in FSF
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
26
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
27 ;;; Commentary:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
28
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
29 ;; GTK+ Extra can be retrieved from http://magnet.fsu.edu/~feiguin/gtk
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
30
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
31 (eval-and-compile
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
32 (require 'gtk-ffi))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
33
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
34 (globally-declare-fboundp
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
35 '(gtk-import-function-internal gtk-call-function))
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 462
diff changeset
36
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
37 ;;; gtkbordercombo.h
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
38 (gtk-import-function GtkType gtk_border_combo_get_type)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
39 (gtk-import-function GtkWidget gtk_border_combo_new)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
40
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
41 ;;; gtkcheckitem.h
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
42 (gtk-import-function GtkType gtk_check_item_get_type)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
43 (gtk-import-function GtkWidget gtk_check_item_new)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
44 (gtk-import-function GtkWidget gtk_check_item_new_with_label
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
45 (GtkString . label))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
46
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
47 ;;; gtkcolorcombo.h
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
48 (gtk-import-function GtkType gtk_color_combo_get_type)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
49 (gtk-import-function GtkWidget gtk_color_combo_new)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
50 (gtk-import-function GtkWidget gtk_color_combo_new_with_values
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
51 (gint . nrows)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
52 (gint . ncols)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
53 (GtkArrayOfString . color_names))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
54 (gtk-import-function GtkString gtk_color_combo_get_color_at
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
55 (GtkColorCombo . combo)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
56 (gint . row)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
57 (gint . col))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
58 ;;;(gtk-import-function none gtk_color_combo_find_color
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
59 ;;; (GtkColorCombo . combo)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
60 ;;; (GdkColor . color)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
61 ;;; ((gint . out) . row)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
62 ;;; ((gint . out) . col))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
63
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
64 ;;; gtkcombobox.h
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
65 (gtk-import-function GtkType gtk_combobox_get_type)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
66 (gtk-import-function GtkWidget gtk_combobox_new)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
67 (gtk-import-function none gtk_combobox_hide_popdown_window)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
68
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
69 ;;; gtkdirtree.h
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
70 (gtk-import-function GtkType gtk_dir_tree_get_type)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
71 (gtk-import-function GtkWidget gtk_dir_tree_new)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
72 (gtk-import-function gint gtk_dir_tree_open_dir
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
73 (GtkDirTree . tree)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
74 (GtkString . path))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
75
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
76 ;;; gtkfilelist.h
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
77 (gtk-import-function GtkType gtk_file_list_get_type)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
78 (gtk-import-function GtkWidget gtk_file_list_new
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
79 (guint . icon_width)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
80 (gint . mode)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
81 (GtkString . path))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
82 (gtk-import-function none gtk_file_list_set_filter
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
83 (GtkFileList . file_list)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
84 (GtkString . filter))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
85 (gtk-import-function none gtk_file_list_open_dir
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
86 (GtkFileList . file_list)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
87 (GtkString . path))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
88 (gtk-import-function GtkString gtk_file_list_get_path
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
89 (GtkFileList . file_list))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
90 (gtk-import-function GtkString gtk_file_list_get_filename
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
91 (GtkFileList . file_list))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
92
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
93 ;;; gtkfontcombo.h
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
94 (gtk-import-function GtkType gtk_font_combo_get_type)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
95 (gtk-import-function GtkWidget gtk_font_combo_new)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
96 (gtk-import-function none gtk_font_combo_select
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
97 (GtkFontCombo . font_combo)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
98 (GtkString . family)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
99 (gboolean . bold)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
100 (gboolean . italic)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
101 (gint . height))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
102 (gtk-import-function none gtk_font_combo_select_nth
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
103 (GtkFontCombo . font_combo)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
104 (gint . n)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
105 (gboolean . bold)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
106 (gboolean . italic)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
107 (gint . height))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
108
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
109 ;;; gtkiconfilesel.h
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
110 ;;; gtkiconlist.h
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
111 ;;; gtkitementry.h
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
112 ;;; gtkplot.h
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
113 ;;; gtkplotcanvas.h
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
114 ;;; gtkplotpc.h
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
115 ;;; gtkplotprint.h
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
116 ;;; gtkplotps.h
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
117 ;;; gtkpsfont.h
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
118 ;;; gtksheet.h
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
119
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
120 (provide 'gtk-extra)