Mercurial > hg > xemacs-beta

diff tests/glyph-test.el @ 408:501cfd01ee6d r21-2-34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-34
author cvs
date Mon, 13 Aug 2007 11:18:11 +0200
parents b8cc9ab3f761
children 697ef44129c6
line wrap: on
line diff
--- a/tests/glyph-test.el	Mon Aug 13 11:17:10 2007 +0200
+++ b/tests/glyph-test.el	Mon Aug 13 11:18:11 2007 +0200
@@ -148,12 +148,12 @@
 ;; layout
 (setq layout 
       (make-glyph
-       [layout :pixel-width 200 :pixel-height 250
+       [layout :descriptor "The Layout"
 	       :orientation vertical
 	       :justify left
 	       :border [string :data "Hello There Mrs"]
-	       :items ([layout :orientation horizontal
-			       :items (radio-button1 radio-button2)]
+	       :items ([native-layout :orientation horizontal
+				      :items (radio-button1 radio-button2)]
 		       edit-field toggle-button label str)]))
 (set-glyph-face layout 'gui-element)
 (set-extent-begin-glyph