Mercurial > hg > xemacs-beta

annotate tests/gutter-test.el @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents
children 2f8bb876ab1d abe6d1db359e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
1 (setq str "Hello There\nHello Again")
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
2 (set-extent-begin-glyph
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
3 (make-extent 0 0 str)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
4 (make-glyph [xpm :file "../etc/xemacs-icon.xpm"]))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
5
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
6 (set-extent-begin-glyph
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
7 (make-extent 3 3 str)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
8 (make-glyph
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
9 [button :width 5 :height 1
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
10 :face modeline-mousable
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
11 :descriptor "ok" :selected t]))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
12
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
13 (set-specifier default-gutter-height 'autodetect)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
14 (set-specifier default-gutter-width 40)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
15 (set-specifier default-gutter-border-width 2)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
16 (set-specifier default-gutter str)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
17 (set-default-gutter-position 'bottom)