annotate tests/gtk/xemacs-toolbar.el @ 778:2923009caf47

[xemacs-hg @ 2002-03-16 10:38:59 by ben] cm.c, file-coding.c: fix warnings. .cvsignore: Those pesky *.tmp files. mule\arabic.el, mule\canna-leim.el, mule\china-util.el, mule\chinese.el, mule\cyril-util.el, mule\cyrillic.el, mule\devan-util.el, mule\devanagari.el, mule\english.el, mule\ethio-util.el, mule\ethiopic.el, mule\european.el, mule\greek.el, mule\hebrew.el, mule\indian.el, mule\japan-util.el, mule\japanese.el, mule\korea-util.el, mule\korean.el, mule\lao-util.el, mule\lao.el, mule\misc-lang.el, mule\mule-charset.el, mule\mule-cmds.el, mule\thai-util.el, mule\thai.el, mule\tibet-util.el, mule\tibetan.el, mule\viet-util.el, mule\vietnamese.el, unicode.el: Fix lots of warnings. Sync up some files to FSF 21.1. Copy over all charset definitions from FSF 21.1, convert them to our format, and stick them in the relevant files. Eventually we will actually be able to dump these files (though they may not quite work). autoload.el: Support defun*, defmacro*. mule/mule-composite.el, mule/mule-composite-stub.el: New file, stubs for nonexistent composition funs/vars. mule/viet-chars.el, dumped-lisp.el: Account for these changes. font.el, mouse.el, msw-font-menu.el, printer.el, startup.el: fix warnings.
author ben
date Sat, 16 Mar 2002 10:39:19 +0000
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)))