Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
407:ed6218a7d4d3 408:501cfd01ee6d
146 (set-extent-begin-glyph (make-extent (point) (point)) sw) 146 (set-extent-begin-glyph (make-extent (point) (point)) sw)
147 147
148 ;; layout 148 ;; layout
149 (setq layout 149 (setq layout
150 (make-glyph 150 (make-glyph
151 [layout :pixel-width 200 :pixel-height 250 151 [layout :descriptor "The Layout"
152 :orientation vertical 152 :orientation vertical
153 :justify left 153 :justify left
154 :border [string :data "Hello There Mrs"] 154 :border [string :data "Hello There Mrs"]
155 :items ([layout :orientation horizontal 155 :items ([native-layout :orientation horizontal
156 :items (radio-button1 radio-button2)] 156 :items (radio-button1 radio-button2)]
157 edit-field toggle-button label str)])) 157 edit-field toggle-button label str)]))
158 (set-glyph-face layout 'gui-element) 158 (set-glyph-face layout 'gui-element)
159 (set-extent-begin-glyph 159 (set-extent-begin-glyph
160 (make-extent (point) (point)) layout) 160 (make-extent (point) (point)) layout)
161 161