Mercurial > hg > xemacs-beta

comparison tests/glyph-test.el @ 462:0784d089fdc9 r21-2-46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-46
author cvs
date Mon, 13 Aug 2007 11:44:37 +0200
parents abe6d1db359e
children 8a653fbe5c27
comparison
equal deleted inserted replaced
461:120ed4009e51 462:0784d089fdc9
100 (while (<= x 100) 100 (while (<= x 100)
101 (set-glyph-image pg 101 (set-glyph-image pg
102 `[progress-gauge :width 5 :pixel-height 16 102 `[progress-gauge :width 5 :pixel-height 16
103 :descriptor "ok" :value ,x]) 103 :descriptor "ok" :value ,x])
104 (setq x (+ x 5)) 104 (setq x (+ x 5))
105 (redisplay-frame)
105 (sit-for 0.1))) 106 (sit-for 0.1)))
106 107
107 (set-extent-begin-glyph 108 (set-extent-begin-glyph
108 (make-extent (point) (point)) 109 (make-extent (point) (point))
109 (make-glyph 110 (make-glyph