Mercurial > hg > xemacs-beta

annotate tests/gtk/gtk-extra-test.el @ 589:37fe04af1590

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-05-31 02:00:29 by wmperry] Regenerated some .c files from their lisp equivalents for GTK bindings. Fix buttons as modifiers code so that text selection works in GTK event loop.
author wmperry
date Thu, 31 May 2001 02:00:31 +0000
parents 0784d089fdc9
children db7068430402
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1 (require 'gtk-extra)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
3 (gtk-define-test
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
4 "Color Combo" extra color-combo nil
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
5 (let ((combo (gtk-color-combo-new)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
6 (gtk-box-pack-start window combo nil nil 0)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
7
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
8 (gtk-define-test
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
9 "Directory Tree" extra dirtree nil
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
10 (let ((dir (gtk-dir-tree-new)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
11 (gtk-box-pack-start window dir nil nil 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
12 (gtk-dir-tree-open-dir dir "/")))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
13
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
14 (gtk-define-test
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
15 "File List" extra filelist nil
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
16 (let ((scrolled (gtk-scrolled-window-new nil nil))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
17 (list (gtk-file-list-new 32 2 "/")))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
18 (gtk-scrolled-window-add-with-viewport scrolled list)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
19 (put scrolled 'height 200)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
20 (gtk-box-pack-start window scrolled t t 0)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
21
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
22 (gtk-define-test
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
23 "Font Combo" extra fontcombo nil
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
24 (let ((fc (gtk-font-combo-new)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
25 (gtk-box-pack-start window fc t t 0)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
26