Mercurial > hg > xemacs-beta
comparison tests/gutter-test.el @ 398:74fd4e045ea6 r21-2-29
Import from CVS: tag r21-2-29
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:13:30 +0200 |
| parents | |
| children | 2f8bb876ab1d abe6d1db359e |
comparison
equal
deleted
inserted
replaced
| 397:f4aeb21a5bad | 398:74fd4e045ea6 |
|---|---|
| 1 (setq str "Hello There\nHello Again") | |
| 2 (set-extent-begin-glyph | |
| 3 (make-extent 0 0 str) | |
| 4 (make-glyph [xpm :file "../etc/xemacs-icon.xpm"])) | |
| 5 | |
| 6 (set-extent-begin-glyph | |
| 7 (make-extent 3 3 str) | |
| 8 (make-glyph | |
| 9 [button :width 5 :height 1 | |
| 10 :face modeline-mousable | |
| 11 :descriptor "ok" :selected t])) | |
| 12 | |
| 13 (set-specifier default-gutter-height 'autodetect) | |
| 14 (set-specifier default-gutter-width 40) | |
| 15 (set-specifier default-gutter-border-width 2) | |
| 16 (set-specifier default-gutter str) | |
| 17 (set-default-gutter-position 'bottom) |