Mercurial > hg > xemacs-beta
diff 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 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tests/gutter-test.el Mon Aug 13 11:13:30 2007 +0200 @@ -0,0 +1,17 @@ +(setq str "Hello There\nHello Again") +(set-extent-begin-glyph + (make-extent 0 0 str) + (make-glyph [xpm :file "../etc/xemacs-icon.xpm"])) + +(set-extent-begin-glyph + (make-extent 3 3 str) + (make-glyph + [button :width 5 :height 1 + :face modeline-mousable + :descriptor "ok" :selected t])) + +(set-specifier default-gutter-height 'autodetect) +(set-specifier default-gutter-width 40) +(set-specifier default-gutter-border-width 2) +(set-specifier default-gutter str) +(set-default-gutter-position 'bottom)