Mercurial > hg > xemacs-beta

view tests/gutter-test.el @ 430:a5df635868b2 r21-2-23

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-23
author cvs
date Mon, 13 Aug 2007 11:29:08 +0200
parents 74fd4e045ea6
children 2f8bb876ab1d abe6d1db359e
line wrap: on
line source

(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)