Mercurial > hg > xemacs-beta
annotate tests/gtk/gtk-extra-test.el @ 3303:619edf713d55
[xemacs-hg @ 2006-03-26 14:05:29 by crestani]
2006-03-21 Marcus Crestani <crestani@xemacs.org>
* mc-alloc.c (visit_all_used_page_headers):
* mc-alloc.c (finalize_page_for_disksave):
* mc-alloc.c (mc_finalize_for_disksave):
* mc-alloc.c (sweep_page):
* mc-alloc.c (mc_sweep):
* mc-alloc.c (protect_heap_page):
* mc-alloc.c (protect_heap_pages):
* mc-alloc.c (unprotect_heap_page):
* mc-alloc.c (unprotect_heap_pages):
* mc-alloc.h: Return number of pages processed.
* vdb.c (vdb_start_dirty_bits_recording): Adjust size of
page_fault_table to its upper bound (= number of pages that
contain BLACK objects) in advance, to avoid malloc in the signal
handler.
author | crestani |
---|---|
date | Sun, 26 Mar 2006 14:05:30 +0000 |
parents | 0784d089fdc9 |
children | db7068430402 |
rev | line source |
---|---|
462 | 1 (require 'gtk-extra) |
2 | |
3 (gtk-define-test | |
4 "Color Combo" extra color-combo nil | |
5 (let ((combo (gtk-color-combo-new))) | |
6 (gtk-box-pack-start window combo nil nil 0))) | |
7 | |
8 (gtk-define-test | |
9 "Directory Tree" extra dirtree nil | |
10 (let ((dir (gtk-dir-tree-new))) | |
11 (gtk-box-pack-start window dir nil nil 0) | |
12 (gtk-dir-tree-open-dir dir "/"))) | |
13 | |
14 (gtk-define-test | |
15 "File List" extra filelist nil | |
16 (let ((scrolled (gtk-scrolled-window-new nil nil)) | |
17 (list (gtk-file-list-new 32 2 "/"))) | |
18 (gtk-scrolled-window-add-with-viewport scrolled list) | |
19 (put scrolled 'height 200) | |
20 (gtk-box-pack-start window scrolled t t 0))) | |
21 | |
22 (gtk-define-test | |
23 "Font Combo" extra fontcombo nil | |
24 (let ((fc (gtk-font-combo-new))) | |
25 (gtk-box-pack-start window fc t t 0))) | |
26 |