Mercurial > hg > xemacs-beta
annotate tests/gtk/gtk-embedded-test.el @ 5020:eadd99984bfb
merge
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Tue, 09 Feb 2010 03:53:52 -0600 |
parents | db7068430402 |
children | ba07c880114a |
rev | line source |
---|---|
4709
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
462
diff
changeset
|
1 ;; This file is part of XEmacs. |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
462
diff
changeset
|
2 ;; |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
462
diff
changeset
|
3 ;; XEmacs is free software; you can redistribute it and/or modify it |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
462
diff
changeset
|
4 ;; under the terms of the GNU General Public License as published by the |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
462
diff
changeset
|
5 ;; Free Software Foundation; either version 2, or (at your option) any |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
462
diff
changeset
|
6 ;; later version. |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
462
diff
changeset
|
7 ;; |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
462
diff
changeset
|
8 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
462
diff
changeset
|
9 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
462
diff
changeset
|
10 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
462
diff
changeset
|
11 ;; for more details. |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
462
diff
changeset
|
12 ;; |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
462
diff
changeset
|
13 ;; You should have received a copy of the GNU General Public License |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
462
diff
changeset
|
14 ;; along with XEmacs; see the file COPYING. If not, write to |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
462
diff
changeset
|
15 ;; the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor, |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
462
diff
changeset
|
16 ;; Boston, MA 02111-1301, USA. */ |
db7068430402
Add explicit GPL v2 or later notices to Bill Perry's code, where such notices
Jerry James <james@xemacs.org>
parents:
462
diff
changeset
|
17 |
462 | 18 (gtk-define-test |
19 "Embedded XEmacs frame" xemacs-frame t | |
20 (setq window (gtk-window-new 'toplevel)) | |
21 (let ((table (gtk-table-new 5 3 nil)) | |
22 (label nil) | |
23 (entry nil) | |
24 (frame (gtk-frame-new "Type mail message here..."))) | |
25 (gtk-container-add window table) | |
26 | |
27 (setq label (gtk-label-new "To: ") | |
28 entry (gtk-entry-new)) | |
29 (gtk-table-attach table label 0 1 0 1 nil nil 0 0) | |
30 (gtk-table-attach table entry 1 2 0 1 '(fill) '(fill) 0 0) | |
31 | |
32 (setq label (gtk-label-new "CC: ") | |
33 entry (gtk-entry-new)) | |
34 (gtk-table-attach table label 0 1 1 2 nil nil 0 0) | |
35 (gtk-table-attach table entry 1 2 1 2 '(fill) '(fill) 0 0) | |
36 | |
37 (setq label (gtk-label-new "Subject: ") | |
38 entry (gtk-entry-new)) | |
39 (gtk-table-attach table label 0 1 2 3 nil nil 0 0) | |
40 (gtk-table-attach table entry 1 2 2 3 '(fill) '(fill) 0 0) | |
41 | |
42 (gtk-table-attach table frame 0 2 3 4 '(expand fill) '(expand fill) 5 5) | |
43 | |
44 (gtk-widget-show-all window) | |
45 (gdk-flush) | |
46 (make-frame (list 'window-id frame | |
47 'unsplittable t | |
48 'menubar-visible-p nil | |
49 'default-toolbar-visible-p nil)))) |