annotate tests/gtk/xemacs-toolbar.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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1 (defvar gtk-torture-test-toolbar-open-active-p t)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
3 (defvar gtk-torture-test-toolbar
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
4 '([toolbar-file-icon
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
5 (lambda ()
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
6 (setq gtk-torture-test-toolbar-open-active-p (not gtk-torture-test-toolbar-open-active-p)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
7 gtk-torture-test-toolbar-open-active-p
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
8 "Dynamic enabled-p slot... broken in XEmacs 21.1.x"]
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
9 [:size 35 :style 3d]
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
10 [toolbar-folder-icon toolbar-dired t "Edit a directory"]
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
11 [:size 35 :style 2d]
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
12 [toolbar-news-icon toolbar-news t "Read news"]
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
13 nil
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
14 [toolbar-info-icon toolbar-info t "Info documentation"]
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
15 ))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
16
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
17 (defun gtk-torture-test-toolbar ()
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
18 (interactive)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
19 (switch-to-buffer (get-buffer-create "Toolbar testing"))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
20 (set-specifier default-toolbar gtk-torture-test-toolbar (current-buffer))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
21 (set-specifier default-toolbar-visible-p t (current-buffer)))