Mercurial > hg > xemacs-beta
view tests/gtk/toolbar-test.el @ 3062:21d92abaac3a
[xemacs-hg @ 2005-11-13 10:39:28 by ben]
fix up clean targets to delete .elc's as necessary
dynodump/Makefile.in.in: Add targets distclean-noconfig, realclean-noconfig, extraclean-noconfig.
Do some refactoring for cleanliness.
Makefile.in.in: Add targets distclean-noconfig, realclean-noconfig, extraclean-noconfig.
*-noconfig targets are like the base targets they're based off of, but
don't delete Makefiles and certain other files needed to rebuild the
Makefiles as necessary. Refactor things to be more consistent.
Top-level `elcclean' is an alias for `realclean-noconfig' and is used
by target `beta'. `realclean-noconfig' (and, by extension, `realclean'
and `extraclean') remove the .elc files.
Makefile.in.in: Add targets distclean-noconfig, realclean-noconfig, extraclean-noconfig.
Do some refactoring for cleanliness.
Makefile.in.in: Add targets distclean-noconfig, realclean-noconfig, extraclean-noconfig.
Do some refactoring for cleanliness.
Makefile.in.in: Add targets distclean-noconfig, realclean-noconfig, extraclean-noconfig.
Do some refactoring for cleanliness.
Makefile.in.in: Add targets distclean-noconfig, realclean-noconfig, extraclean-noconfig.
Do some refactoring for cleanliness.
Makefile: Add targets distclean-noconfig, realclean-noconfig, extraclean-noconfig.
Do some refactoring for cleanliness.
common/Makefile.common: Add targets distclean-noconfig, realclean-noconfig, extraclean-noconfig.
Do some refactoring for cleanliness. Put in some magic cookies in
comments so this file gets read as a make file by XEmacs.
author | ben |
---|---|
date | Sun, 13 Nov 2005 10:39:41 +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)