Mercurial > hg > xemacs-beta

view tests/gtk/gtk-embedded-test.el @ 4480:74caf140505b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Wrap field descriptions, descr-text.el; name created buffer more uniquely. 2008-07-19 Aidan Kehoe <kehoea@parhasard.net> * descr-text.el (describe-property-list): Move the (require 'hyper-apropos) call to top level, this isn't the only function that uses the relevant face. (describe-char): Wrap the Unihan field descriptions if they are longer than the windows width minus 50. Rename the created buffer to reflect the character's position as well as its value.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 19 Jul 2008 15:19:59 +0200
parents 0784d089fdc9
children db7068430402
line wrap: on
line source

(gtk-define-test
 "Embedded XEmacs frame" xemacs-frame t
 (setq window (gtk-window-new 'toplevel))
 (let ((table (gtk-table-new 5 3 nil))
       (label nil)
       (entry nil)
       (frame (gtk-frame-new "Type mail message here...")))
   (gtk-container-add window table)

   (setq label (gtk-label-new "To: ")
	 entry (gtk-entry-new))
   (gtk-table-attach table label 0 1 0 1 nil nil 0 0)
   (gtk-table-attach table entry 1 2 0 1 '(fill) '(fill) 0 0)

   (setq label (gtk-label-new "CC: ")
	 entry (gtk-entry-new))
   (gtk-table-attach table label 0 1 1 2 nil nil 0 0)
   (gtk-table-attach table entry 1 2 1 2 '(fill) '(fill) 0 0)

   (setq label (gtk-label-new "Subject: ")
	 entry (gtk-entry-new))
   (gtk-table-attach table label 0 1 2 3 nil nil 0 0)
   (gtk-table-attach table entry 1 2 2 3 '(fill) '(fill) 0 0)

   (gtk-table-attach table frame 0 2 3 4 '(expand fill) '(expand fill) 5 5)
   
   (gtk-widget-show-all window)
   (gdk-flush)
   (make-frame (list 'window-id frame
		     'unsplittable t
		     'menubar-visible-p nil
		     'default-toolbar-visible-p nil))))