Mercurial > hg > xemacs-beta

comparison tests/glyph-test.el @ 438:84b14dcb0985 r21-2-27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-27
author cvs
date Mon, 13 Aug 2007 11:32:25 +0200
parents 9d177e8d4150
children abe6d1db359e
comparison
equal deleted inserted replaced
437:e2a4e8b94b82 438:84b14dcb0985
1 (set-extent-begin-glyph 1 (set-extent-begin-glyph
2 (make-extent (point) (point)) 2 (make-extent (point) (point))
3 (setq im (make-glyph [xpm :file "xemacs-icon.xpm"]))) 3 (setq im (make-glyph [xpm :file "xemacs-icon.xpm"])))
4
5 (set-extent-begin-glyph
6 (make-extent (point) (point))
7 (make-glyph [string :data "xemacs"]))
4 8
5 (defun foo () 9 (defun foo ()
6 (interactive) 10 (interactive)
7 (setq ok-select (not ok-select))) 11 (setq ok-select (not ok-select)))
8 12
62 (set-extent-begin-glyph 66 (set-extent-begin-glyph
63 (make-extent (point) (point)) 67 (make-extent (point) (point))
64 (setq tab (make-glyph 68 (setq tab (make-glyph
65 [tab-control :descriptor "My Tab" 69 [tab-control :descriptor "My Tab"
66 :face highlight 70 :face highlight
71 :orientation right
67 :properties (:items (["One" foo] 72 :properties (:items (["One" foo]
68 ["Two" fee] 73 ["Two" fee]
69 ["Three" foo]))]))) 74 ["Three" foo]))])))
70 75
71 ;; progress gauge 76 ;; progress gauge
102 :image [xpm :file "../etc/xemacs-icon.xpm"]])) 107 :image [xpm :file "../etc/xemacs-icon.xpm"]]))
103 108
104 ;; normal pushbutton 109 ;; normal pushbutton
105 (set-extent-begin-glyph 110 (set-extent-begin-glyph
106 (make-extent (point) (point)) 111 (make-extent (point) (point))
107 (make-glyph [button :descriptor ["A Big Button" foo ]])) 112 (setq pbutton
113 (make-glyph [button :descriptor ["A Big Button" foo ]])))
108 114
109 ;; edit box 115 ;; edit box
110 (set-extent-begin-glyph 116 (set-extent-begin-glyph
111 (make-extent (point) (point)) 117 (make-extent (point) (point))
112 (setq edit-field (make-glyph [edit-field :pixel-width 50 :pixel-height 30 118 (setq edit-field (make-glyph [edit-field :pixel-width 50 :pixel-height 30