Mercurial > hg > xemacs-beta

annotate tests/gtk/toolbar-test.el @ 5918:cb65bfaf7110 default

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Speed up XEmacs on X. Avoid many calls to XQueryColor.
author Mike Sperber <sperber@deinprogramm.de>
date Fri, 27 Mar 2015 16:05:15 +0100
parents b9167d522a9a
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5287
cd167465bf69 More permission consistency.
Stephen J. Turnbull <stephen@xemacs.org>
parents: 5231
diff changeset
1 ;; toolbar-test.el --- test the GTK toolbar
cd167465bf69 More permission consistency.
Stephen J. Turnbull <stephen@xemacs.org>
parents: 5231
diff changeset
2 ;;
cd167465bf69 More permission consistency.
Stephen J. Turnbull <stephen@xemacs.org>
parents: 5231
diff changeset
3 ;; Copyright 2000, 2001 William Perry
cd167465bf69 More permission consistency.
Stephen J. Turnbull <stephen@xemacs.org>
parents: 5231
diff changeset
4 ;;
4709
db7068430402 Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents: 462
diff changeset
5 ;; This file is part of XEmacs.
5407
7ba892d101ce Convert remainder in "tests" with plain text GPLv2 to GPLv3
Mats Lidell <matsl@xemacs.org>
parents: 5231
diff changeset
6
7ba892d101ce Convert remainder in "tests" with plain text GPLv2 to GPLv3
Mats Lidell <matsl@xemacs.org>
parents: 5231
diff changeset
7 ;; XEmacs is free software: you can redistribute it and/or modify it
4709
db7068430402 Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents: 462
diff changeset
8 ;; under the terms of the GNU General Public License as published by the
5407
7ba892d101ce Convert remainder in "tests" with plain text GPLv2 to GPLv3
Mats Lidell <matsl@xemacs.org>
parents: 5231
diff changeset
9 ;; Free Software Foundation, either version 3 of the License, or (at your
7ba892d101ce Convert remainder in "tests" with plain text GPLv2 to GPLv3
Mats Lidell <matsl@xemacs.org>
parents: 5231
diff changeset
10 ;; option) any later version.
7ba892d101ce Convert remainder in "tests" with plain text GPLv2 to GPLv3
Mats Lidell <matsl@xemacs.org>
parents: 5231
diff changeset
11
4709
db7068430402 Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents: 462
diff changeset
12 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT
db7068430402 Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents: 462
diff changeset
13 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
db7068430402 Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents: 462
diff changeset
14 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
db7068430402 Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents: 462
diff changeset
15 ;; for more details.
5407
7ba892d101ce Convert remainder in "tests" with plain text GPLv2 to GPLv3
Mats Lidell <matsl@xemacs.org>
parents: 5231
diff changeset
16
4709
db7068430402 Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents: 462
diff changeset
17 ;; You should have received a copy of the GNU General Public License
5407
7ba892d101ce Convert remainder in "tests" with plain text GPLv2 to GPLv3
Mats Lidell <matsl@xemacs.org>
parents: 5231
diff changeset
18 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>.
4709
db7068430402 Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents: 462
diff changeset
19
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
20 (require 'gtk-widgets)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
21 (require 'gnome-widgets)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
22
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
23 (defvar gnomeified-toolbar
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
24 ;; [CAPTION TOOLTIP ICON CALLBACK ENABLED]
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
25 '(["Open" "Open a file" new toolbar-open t]
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
26 ["Dired" "Edit a directory" open toolbar-dired t]
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
27 ["Save" "Save buffer" save toolbar-save t]
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
28 ["Print" "Print Buffer" print toolbar-print t]
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
29 ["Cut" "Kill region" cut toolbar-cut t]
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
30 ["Copy" "Copy region" copy toolbar-copy t]
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
31 ["Paste" "Paste from clipboard" paste toolbar-paste t]
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
32 ["Undo" "Undo edit" undo toolbar-undo t]
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
33 ["Spell" "Check spelling" spellcheck toolbar-ispell t]
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
34 ["Replace" "Search & Replace" srchrpl toolbar-replace t]
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
35 ["Mail" "Read mail" mail toolbar-mail t]
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
36 ; info
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
37 ; compile
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
38 ; debug
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
39 ; news
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
42 (setq x (gtk-toolbar-new 'horizontal 'both))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
43 (gnome-app-set-toolbar (frame-property nil 'shell-widget) x)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
44
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
45 (mapc (lambda (descr)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
46 (gtk-toolbar-append-item x
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
47 (aref descr 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
48 (aref descr 1)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
49 ""
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
50 (gnome-stock-pixmap-widget-new x (aref descr 2))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
51 `(lambda (&rest ignored)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
52 (,(aref descr 3)))))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
53 gnomeified-toolbar)