Mercurial > hg > xemacs-beta
comparison tests/glyph-test.el @ 384:bbff43aa5eb7 r21-2-7
Import from CVS: tag r21-2-7
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:08:24 +0200 |
| parents | |
| children | aabb7f5b1c81 |
comparison
equal
deleted
inserted
replaced
| 383:6a50c6a581a5 | 384:bbff43aa5eb7 |
|---|---|
| 1 (set-extent-begin-glyph | |
| 2 (make-extent (point) (point)) | |
| 3 (make-glyph [xpm :file "../etc/xemacs-icon.xpm"])) | |
| 4 | |
| 5 (defun foo () | |
| 6 (interactive) | |
| 7 (setq ok-select (not ok-select))) | |
| 8 | |
| 9 ;; button in a group | |
| 10 (setq ok-select nil) | |
| 11 (set-extent-begin-glyph | |
| 12 (make-extent (point) (point)) | |
| 13 (make-glyph [button :descriptor ["ok " (setq ok-select t) | |
| 14 :style radio :selected ok-select]])) | |
| 15 ;; button in a group | |
| 16 (set-extent-begin-glyph | |
| 17 (make-extent (point) (point)) | |
| 18 (make-glyph [button :descriptor ["ok" (setq ok-select nil) :style radio | |
| 19 :selected (not ok-select)]])) | |
| 20 ;; normal pushbutton | |
| 21 (set-extent-begin-glyph | |
| 22 (make-extent (point) (point)) | |
| 23 (setq pbutton (make-glyph [button :width 10 :height 2 | |
| 24 :face modeline-mousable | |
| 25 :descriptor ["ok" foo :selected t]]))) | |
| 26 ;; normal pushbutton | |
| 27 (set-extent-begin-glyph | |
| 28 (make-extent (point) (point)) | |
| 29 (make-glyph [button :descriptor ["A Big Button" foo ]])) | |
| 30 ;; edit box | |
| 31 (set-extent-begin-glyph | |
| 32 (make-extent (point) (point)) | |
| 33 (setq hedit (make-glyph [edit :pixel-width 50 :pixel-height 30 | |
| 34 :face bold-italic | |
| 35 :descriptor ["Hello"]]))) | |
| 36 ;; combo box | |
| 37 (set-extent-begin-glyph | |
| 38 (make-extent (point) (point)) | |
| 39 (setq hcombo (make-glyph | |
| 40 [combo :width 10 :height 3 :descriptor ["Hello"] | |
| 41 :properties (:items ("One" "Two" "Three"))]))) | |
| 42 | |
| 43 ;; line | |
| 44 (set-extent-begin-glyph | |
| 45 (make-extent (point) (point)) | |
| 46 (make-glyph [label :pixel-width 150 :descriptor "Hello"])) | |
| 47 | |
| 48 ;; scrollbar | |
| 49 ;(set-extent-begin-glyph | |
| 50 ; (make-extent (point) (point)) | |
| 51 ; (make-glyph [scrollbar :width 50 :height 20 :descriptor ["Hello"]])) | |
| 52 | |
| 53 ;; generic subwindow | |
| 54 (setq sw (make-glyph [subwindow :pixel-width 50 :pixel-height 50])) | |
| 55 (set-extent-begin-glyph (make-extent (point) (point)) sw) | |
| 56 |