update.
[chise/xemacs-chise.git.1] / tests / gtk / xemacs-toolbar.el
1 (defvar gtk-torture-test-toolbar-open-active-p t)
2
3 (defvar gtk-torture-test-toolbar
4   '([toolbar-file-icon
5      (lambda ()
6        (setq gtk-torture-test-toolbar-open-active-p (not gtk-torture-test-toolbar-open-active-p)))
7      gtk-torture-test-toolbar-open-active-p
8      "Dynamic enabled-p slot... broken in XEmacs 21.1.x"]
9     [:size 35 :style 3d]
10     [toolbar-folder-icon toolbar-dired t "Edit a directory"]
11     [:size 35 :style 2d]
12     [toolbar-news-icon toolbar-news t "Read news"]
13     nil
14     [toolbar-info-icon toolbar-info t "Info documentation"]
15     ))
16
17 (defun gtk-torture-test-toolbar ()
18   (interactive)
19   (switch-to-buffer (get-buffer-create "Toolbar testing"))
20   (set-specifier default-toolbar gtk-torture-test-toolbar (current-buffer))
21   (set-specifier default-toolbar-visible-p t (current-buffer)))