Mercurial > hg > xemacs-beta
annotate tests/gtk/gtk-extra-test.el @ 487:54fa1a5c2d12
[xemacs-hg @ 2001-04-28 07:48:36 by ben]
misc changes, some for 21.4
remove bogus lines setting zmacs_region_stays to 0.
remove debug lines.
Correct general info about init file.
Fix up Cygwin section.
More contributions.
Fix spurious setting of zmacs-region-stays to t after a non-shift
motion command.
Sync up with FSF 20.7, to fix bugs handling some etags line formats.
Move non-window-system specific code that was duplicated in
all window systems into the generic code.
* gutter.el (init-gutter): Removed. (unused)
Clean up the rectangle code w.r.t. selections. You'll now get
the right text copied into the primary selection (but not the
clipboard yet, unfortunately -- that really requires defining
our own rectangle type).
author | ben |
---|---|
date | Sat, 28 Apr 2001 07:48:46 +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 |