Mercurial > hg > xemacs-beta
view tests/gtk/xemacs-toolbar.el @ 2405:a27c2650a716
[xemacs-hg @ 2004-11-26 04:55:24 by stephent]
document sjt-xft branch <87vfbtw6qu.fsf@tleepslib.sk.tsukuba.ac.jp>
author | stephent |
---|---|
date | Fri, 26 Nov 2004 04:55:28 +0000 |
parents | 0784d089fdc9 |
children | db7068430402 |
line wrap: on
line source
(defvar gtk-torture-test-toolbar-open-active-p t) (defvar gtk-torture-test-toolbar '([toolbar-file-icon (lambda () (setq gtk-torture-test-toolbar-open-active-p (not gtk-torture-test-toolbar-open-active-p))) gtk-torture-test-toolbar-open-active-p "Dynamic enabled-p slot... broken in XEmacs 21.1.x"] [:size 35 :style 3d] [toolbar-folder-icon toolbar-dired t "Edit a directory"] [:size 35 :style 2d] [toolbar-news-icon toolbar-news t "Read news"] nil [toolbar-info-icon toolbar-info t "Info documentation"] )) (defun gtk-torture-test-toolbar () (interactive) (switch-to-buffer (get-buffer-create "Toolbar testing")) (set-specifier default-toolbar gtk-torture-test-toolbar (current-buffer)) (set-specifier default-toolbar-visible-p t (current-buffer)))