Mercurial > hg > xemacs-beta
view tests/gtk/toolbar-test.el @ 2548:c4c8a36043be
[xemacs-hg @ 2005-02-03 07:11:19 by ben]
behavior ws #4: package-suppress, autoload update/sync, add easy-mmode/regexp-opt to core
lread.c, lisp.h: Remove undeeded Vload_file_name_internal_the_purecopy,
Qload_file_name -- use internal_bind_lisp_object instead of
specbind.
Add load-suppress-alist.
* easy-mmode.el, regexp-opt.el:
Move these files into core.
Uncomment stuff depending on new custom.el.
autoload.el: Removed.
Major update. Sync with FSF 21.2.
Create the ability to make custom-defines files.
update-elc-2.el, update-elc.el: Rewrite to use new autoload API.
update-elc.el: Add easy-mmode.
| author | ben |
|---|---|
| date | Thu, 03 Feb 2005 07:11:28 +0000 |
| parents | 0784d089fdc9 |
| children | db7068430402 |
line wrap: on
line source
(require 'gtk-widgets) (require 'gnome-widgets) (defvar gnomeified-toolbar ;; [CAPTION TOOLTIP ICON CALLBACK ENABLED] '(["Open" "Open a file" new toolbar-open t] ["Dired" "Edit a directory" open toolbar-dired t] ["Save" "Save buffer" save toolbar-save t] ["Print" "Print Buffer" print toolbar-print t] ["Cut" "Kill region" cut toolbar-cut t] ["Copy" "Copy region" copy toolbar-copy t] ["Paste" "Paste from clipboard" paste toolbar-paste t] ["Undo" "Undo edit" undo toolbar-undo t] ["Spell" "Check spelling" spellcheck toolbar-ispell t] ["Replace" "Search & Replace" srchrpl toolbar-replace t] ["Mail" "Read mail" mail toolbar-mail t] ; info ; compile ; debug ; news )) (setq x (gtk-toolbar-new 'horizontal 'both)) (gnome-app-set-toolbar (frame-property nil 'shell-widget) x) (mapc (lambda (descr) (gtk-toolbar-append-item x (aref descr 0) (aref descr 1) "" (gnome-stock-pixmap-widget-new x (aref descr 2)) `(lambda (&rest ignored) (,(aref descr 3))))) gnomeified-toolbar)