Mercurial > hg > xemacs-beta
annotate tests/gtk/toolbar-test.el @ 4627:fdc76fec36d3
Vastly expand the characters x-compose.el supports.
2009-03-01 Aidan Kehoe <kehoea@parhasard.net>
* x-compose.el:
Document an XIM bug, and how one might work around it.
(define-compose-map):
Revise this macro, call it with compose-caron-map,
compose-macron-map, compose-breve-map, compose-dot-map,
compose-doubleacute-map, compose-ogonek-map, compose-hook-map,
compose-horn-map as well as the previous existing maps.
(compose-map):
Add entries for caron, macron, doubleacute, ogonek, breve and
abovedot to this map.
Add an assert, this code assumes that a non-Mule build has no
character codes above U+00FF.
Incorporate all the precomposed Latin characters in
UnicodeData.txt that we can into the maps, deciding at runtime on
which exactly depending on whether this is a non-Mule or a Mule
build.
Remove a commented-out old X11 bug workaround.
Use #'flet instead of defun + unintern for
#'alias-colon-to-doublequote.
Correct #'electric-diacritic to work with the keyboard macro
versions of the maps.
(compose-help):
This has been turned off since 1994; no-one appears to have
noticed, since the normal help mechanism offers similar
functionality and is actually maintained. Removed entirely.
Remove a superflous setting of a default value for ctl-arrow.
* x-init.el (x-initialize-compose):
Support the new dead key maps we just added to x-compose.el with
autoloads here.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sun, 01 Mar 2009 11:11:46 +0000 |
parents | 0784d089fdc9 |
children | db7068430402 |
rev | line source |
---|---|
462 | 1 (require 'gtk-widgets) |
2 (require 'gnome-widgets) | |
3 | |
4 (defvar gnomeified-toolbar | |
5 ;; [CAPTION TOOLTIP ICON CALLBACK ENABLED] | |
6 '(["Open" "Open a file" new toolbar-open t] | |
7 ["Dired" "Edit a directory" open toolbar-dired t] | |
8 ["Save" "Save buffer" save toolbar-save t] | |
9 ["Print" "Print Buffer" print toolbar-print t] | |
10 ["Cut" "Kill region" cut toolbar-cut t] | |
11 ["Copy" "Copy region" copy toolbar-copy t] | |
12 ["Paste" "Paste from clipboard" paste toolbar-paste t] | |
13 ["Undo" "Undo edit" undo toolbar-undo t] | |
14 ["Spell" "Check spelling" spellcheck toolbar-ispell t] | |
15 ["Replace" "Search & Replace" srchrpl toolbar-replace t] | |
16 ["Mail" "Read mail" mail toolbar-mail t] | |
17 ; info | |
18 ; compile | |
19 ; debug | |
20 ; news | |
21 )) | |
22 | |
23 (setq x (gtk-toolbar-new 'horizontal 'both)) | |
24 (gnome-app-set-toolbar (frame-property nil 'shell-widget) x) | |
25 | |
26 (mapc (lambda (descr) | |
27 (gtk-toolbar-append-item x | |
28 (aref descr 0) | |
29 (aref descr 1) | |
30 "" | |
31 (gnome-stock-pixmap-widget-new x (aref descr 2)) | |
32 `(lambda (&rest ignored) | |
33 (,(aref descr 3))))) | |
34 gnomeified-toolbar) |