Mercurial > hg > xemacs-beta
view tests/gtk/xemacs-toolbar.el @ 1643:763f577d57b0
[xemacs-hg @ 2003-08-25 20:53:58 by crestani]
2003-08-25 Marcus Crestani <crestani@informatik.uni-tuebingen.de>
* alloc.c (kkcc_gc_stack_init):
(kkcc_gc_stack_free):
(kkcc_gc_stack_realloc):
(kkcc_gc_stack_full):
(kkcc_gc_stack_empty):
(kkcc_gc_stack_push):
(kkcc_gc_stack_pop): Remove kkcc_gc_stack_count.
(mark_object_maybe_checking_free): Push on stack instead of marking.
(garbage_collect_1): Invoke kkcc_marking after finish_marking_*.
| author | crestani |
|---|---|
| date | Mon, 25 Aug 2003 20:53:59 +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)))