git.chise.org Git - chise/xemacs-chise.git-/blob - 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)))