Mercurial > hg > xemacs-beta
annotate tests/gtk/toolbar-test.el @ 4693:80cd90837ac5
Add argument information to remaining MANY or UNEVALLED C subrs.
src/ChangeLog addition:
2009-09-20 Aidan Kehoe <kehoea@parhasard.net>
* alloc.c (Flist):
(Fvector):
(Fbit_vector):
(Fmake_byte_code):
(Fstring):
* data.c (Feqlsign):
(Flss):
(Fgtr):
(Fleq):
(Fgeq):
(Fneq):
(Fgtr):
(Fplus):
(Fminus):
(Ftimes):
(Fdiv):
(Fquo):
(Fmax):
(Fmin):
(Flogand):
(Flogior):
(Flogxor):
* editfns.c (Fsave_excursion):
(Fsave_current_buffer):
(Fencode_time):
(Finsert):
(Finsert_before_markers):
(Fsave_restriction):
(Fformat):
* elhash.c (Fmake_hash_table):
* eval.c (Fdefun):
(Fdefmacro):
(Fcatch):
(Funwind_protect):
(Fcall_with_condition_handler):
(Ffuncall):
(Fapply):
(Frun_hooks):
* fns.c (Fappend):
(Fconcat):
(Fvconcat):
(Fbvconcat):
(Fnconc):
* print.c (Fwith_output_to_temp_buffer):
* process.c (Fstart_process_internal):
* window.c (Fsave_window_excursion):
* widget.c (Fwidget_apply):
Add argument information, in a form understood by
#'function-arglist, to all these MANY or UNEVALLED (that is to
say, special-operator) built-in functions.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sun, 20 Sep 2009 21:29:00 +0100 |
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) |