Mercurial > hg > xemacs-beta

annotate tests/gtk/gtk-embedded-test.el @ 4682:648f4a0dac3e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix build problems on WIN32 platforms caused by the large image crash fix. See the thread on xemacs-patches@xemacs.org beginning with message <20a807210907081256y6c02f4bbv72d34c9f3c72ab02@mail.gmail.com>.
author Jerry James <james@xemacs.org>
date Mon, 24 Aug 2009 15:21:21 -0600
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 (gtk-define-test
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2 "Embedded XEmacs frame" xemacs-frame t
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
3 (setq window (gtk-window-new 'toplevel))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
4 (let ((table (gtk-table-new 5 3 nil))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
5 (label nil)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
6 (entry nil)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
7 (frame (gtk-frame-new "Type mail message here...")))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
8 (gtk-container-add window table)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
9
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
10 (setq label (gtk-label-new "To: ")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
11 entry (gtk-entry-new))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
12 (gtk-table-attach table label 0 1 0 1 nil nil 0 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
13 (gtk-table-attach table entry 1 2 0 1 '(fill) '(fill) 0 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
14
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
15 (setq label (gtk-label-new "CC: ")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
16 entry (gtk-entry-new))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
17 (gtk-table-attach table label 0 1 1 2 nil nil 0 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
18 (gtk-table-attach table entry 1 2 1 2 '(fill) '(fill) 0 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
19
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
20 (setq label (gtk-label-new "Subject: ")
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
21 entry (gtk-entry-new))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
22 (gtk-table-attach table label 0 1 2 3 nil nil 0 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
23 (gtk-table-attach table entry 1 2 2 3 '(fill) '(fill) 0 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
24
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
25 (gtk-table-attach table frame 0 2 3 4 '(expand fill) '(expand fill) 5 5)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
26
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
27 (gtk-widget-show-all window)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
28 (gdk-flush)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
29 (make-frame (list 'window-id frame
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
30 'unsplittable t
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
31 'menubar-visible-p nil
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
32 'default-toolbar-visible-p nil))))