Mercurial > hg > xemacs-beta
annotate tests/gtk/toolbar-test.el @ 4448:fd8a9a4d81d9
Support #!, to allow XEmacs to be called as a script interpreter.
ChangeLog addition:
2008-01-20 Aidan Kehoe <kehoea@parhasard.net>
* Makefile.in.in (SHEBANG_PROGNAME):
New variable; a symbol link to the XEmacs binary to tell it it
should read a script from stdin.
* configure.ac (XE_EXPAND_VARIABLE):
Set SHEBANG_PROGNAME.
* configure:
Regenerate.
src/ChangeLog addition:
2008-01-20 Aidan Kehoe <kehoea@parhasard.net>
* config.h.in: Add SHEBANG_PROGNAME.
* emacs.c (main_1):
If we've been called using SHEBANG_PROGNAME, rewrite our arguments
to add a --script argument.
Also, handle the --script argument by setting noninteractive and
vanilla.
* lread.c (Fload_internal):
If the first two characters of a file are #!, replace them with ;!
before they get to the Lisp reader.
lisp/ChangeLog addition:
2008-01-20 Aidan Kehoe <kehoea@parhasard.net>
* startup.el (command-line-do-script): New.
(command-switch-alist): Use command-line-do-script.
New argument, compatible with GNU; --script or -script says "treat
the following argument as a file to load in batch mode".
man/ChangeLog addition:
2008-01-20 Aidan Kehoe <kehoea@parhasard.net>
* xemacs/cmdargs.texi (Command Switches):
Describe --script, -script.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sun, 20 Jan 2008 19:53:54 +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) |