Mercurial > hg > xemacs-beta

comparison tests/glyph-test.el @ 422:95016f13131a r21-2-19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-19
author cvs
date Mon, 13 Aug 2007 11:25:01 +0200
parents 41dbb7a9d5f2
children 11054d720c21
comparison
equal deleted inserted replaced
421:fff06e11db74 422:95016f13131a
1 (setq str "Hello There")
1 (set-extent-begin-glyph 2 (set-extent-begin-glyph
2 (make-extent (point) (point)) 3 (make-extent 0 0 str)
3 (setq icon (make-glyph [xpm :file "../etc/xemacs-icon.xpm"]))) 4 (make-glyph [xpm :file "../etc/xemacs-icon.xpm"]))
4 5
5 (defun foo () 6 (defun foo ()
6 (interactive) 7 (interactive)
7 (setq ok-select (not ok-select))) 8 (ding))
9 ; (setq ok-select (not ok-select)))
8 10
9 ;; button in a group 11 ;; button in a group
10 (setq ok-select nil) 12 (setq ok-select nil)
11 (set-extent-begin-glyph 13 (set-extent-begin-glyph
12 (make-extent (point) (point)) 14 (make-extent (point) (point))