annotate tests/gutter-test.el @ 780:578cb2932d72
[xemacs-hg @ 2002-03-18 10:07:30 by ben]
config.inc.samp, xemacs.mak: Deal with never-ending perl quoting problems.
README: Include a long, long description of the suggested directory layout
for developing XEmacs. This should probably go as part of a
larger document, a "Getting Started with Developing XEmacs". ####
Does such a document exist?
etc\unicode\mule-ucs\*: New directory, containing translation
files for the remaining charsets that are not in
unicode\unicode-consortium but are in mule-ucs.
etc\unicode\other\*: New directory, containing translation
files made up on an ad-hoc basis.
etc\unicode\README: Update.
* Some ChangeLog entries from stuff that got applied long ago
never got checked in, due to the nasty SCCS "oops, i forgot again
..." bug.
mule\lao.el: Convert stuff to XEmacs-style.
mule\thai-xtis.el: Move thai-xtis-chars.el stuff to here, since we can now handle
encountering characters of a charset before the charset is defined.
mule\thai-xtis-chars.el: Removed, moved into thai-xtis.el.
mule\mule-msw-init.el: Move some stuff into mule-msw-init-late.el,
which references charsets and thus needs to be delayed until after
all charsets have been created.
mule\mule-msw-init-late.el: New file, some stuff from
mule-msw-init.el.
dumped-lisp.el: Load the remaining languages -- lao, indian, devanagari, tibetan.
Load new file mule-msw-init-late.
unicode.el: Load the new tables for Ethiopic, Vietnamese, and other languages
extracted from mule-ucs.
mule\lao.el: Convert stuff to XEmacs-style.
mule\thai-xtis.el: Move thai-xtis-chars.el stuff to here, since we can now handle
encountering characters of a charset before the charset is defined.
mule\thai-xtis-chars.el: Removed, moved into thai-xtis.el.
mule\mule-msw-init.el: Move some stuff into mule-msw-init-late.el,
which references charsets and thus needs to be delayed until after
all charsets have been created.
mule\mule-msw-init-late.el: New file, some stuff from
mule-msw-init.el.
mule\lao.el: Convert stuff to XEmacs-style.
mule\thai-xtis.el: Move thai-xtis-chars.el stuff to here, since we can now handle
encountering characters of a charset before the charset is defined.
mule\thai-xtis-chars.el: Removed, moved into thai-xtis.el.
mule\mule-msw-init.el: Move some stuff into mule-msw-init-late.el,
which references charsets and thus needs to be delayed until after
all charsets have been created.
mule\mule-msw-init-late.el: New file, some stuff from
mule-msw-init.el.
dumped-lisp.el: Load the remaining languages -- lao, indian, devanagari, tibetan.
Load new file mule-msw-init-late.
unicode.el: Load the new tables for Ethiopic, Vietnamese, and other languages
extracted from mule-ucs.
mule\lao.el: Convert stuff to XEmacs-style.
mule\thai-xtis.el: Move thai-xtis-chars.el stuff to here, since we can now handle
encountering characters of a charset before the charset is defined.
mule\thai-xtis-chars.el: Removed, moved into thai-xtis.el.
mule\mule-msw-init.el: Move some stuff into mule-msw-init-late.el,
which references charsets and thus needs to be delayed until after
all charsets have been created.
mule\mule-msw-init-late.el: New file, some stuff from
mule-msw-init.el.
fns.c, lread.c: Add variable require-prints-loading-message to cause loading
messages to get printed when a file is loading during a `require',
which normally doesn't happen. This can be set using env var
XEMACSDEBUG to debug problems with non-interactive compilation.
Modify load-internal so it prints "Requiring: ..." instead of
"Loading: ..." when appropriate.
author |
ben |
date |
Mon, 18 Mar 2002 10:07:39 +0000 |
parents |
abe6d1db359e |
children |
42375619fa45 |
rev |
line source |
442
|
1 (setq str "Hello\nAgain")
|
|
2 (setq str-ext (make-extent 0 5 str))
|
398
|
3 (set-extent-begin-glyph
|
442
|
4 str-ext
|
398
|
5 (make-glyph [xpm :file "../etc/xemacs-icon.xpm"]))
|
442
|
6 (set-extent-property str-ext 'mouse-face 'highlight)
|
398
|
7
|
442
|
8 (setq str2 "Hello\n")
|
|
9 (setq str2-ext (make-extent 0 1 str2))
|
398
|
10 (set-extent-begin-glyph
|
442
|
11 str2-ext
|
398
|
12 (make-glyph
|
|
13 [button :width 5 :height 1
|
|
14 :face modeline-mousable
|
442
|
15 :callback (set-specifier bottom-gutter-visible-p '(str2))
|
398
|
16 :descriptor "ok" :selected t]))
|
|
17
|
442
|
18 (set-specifier bottom-gutter-height 'autodetect)
|
|
19 (set-specifier bottom-gutter-border-width 2)
|
|
20
|
|
21 (set-gutter-element
|
|
22 bottom-gutter 'str
|
|
23 (make-glyph
|
|
24 [layout :orientation vertical
|
|
25 :justify left :margin-width 4
|
|
26 :items ([string :data "Fontifying glyphs.c..."]
|
|
27 [layout :orientation horizontal
|
|
28 :items
|
|
29 ([progress-gauge :value 0 :pixel-height 24
|
|
30 :pixel-width 250 :descriptor
|
|
31 "Progress"]
|
|
32 [button :pixel-height 24
|
|
33 :descriptor " Stop "
|
|
34 :callback (quote quit)])])]))
|
|
35
|
|
36 (set-gutter-element bottom-gutter 'str2 str2)
|
|
37 (set-gutter-element-visible-p bottom-gutter-visible-p 'str t)
|
|
38 (set-gutter-element-visible-p bottom-gutter-visible-p 'str2 t)
|
|
39
|