Mercurial > hg > xemacs-beta
annotate tests/gutter-test.el @ 1279:cd0abfdb9e9d
[xemacs-hg @ 2003-02-09 09:33:42 by ben]
walk-windows, redisplay fixes
console-stream.c: Abort when any attempts to output a stream console are made.
Should be caught sooner.
event-msw.c: Don't redisplay() during sizing when the frame has not yet been
initialized completely.
event-stream.c, menubar-msw.c, menubar-x.c, menubar.c, menubar.h: Restore in_menu_callback. Bind it in menubar-{msw,x}.c when
calling filter functions and the like. Conditionalize on it, not
in_modal_loop, when issuing error in `next-event', otherwise we
bite the dust immediately -- event-msw.c purposely calls
Fnext_event() in a modal loop, and knows what it's doing.
redisplay-output.c: Formatting fixes.
redisplay.c, window.c, winslots.h: Delete lots of carcasses of attempts to add redisplay support for
font-lock -- `pre/post-redisplay-hook', unimplemented junk from
FSF (redisplay-end-trigger, `window-scroll-functions',
`window-size-change-functions'). If we want to port some
redisplay support from FSF, port the `fontified' property.
redisplay.c: Put in a check here (as well as redisplay_device()) for a stream
frame. We can get here directly through Lisp fun
`redisplay-frame'. Abort if frame not initialized.
redisplay.c: Check for stream frames/devices.
window.el: walk-windows was broken when a frame was given to WHICH-FRAMES.
it would loop forever. The FSF version fixes this but i didn't
sync to them because (a) it conses (bad for lazy-lock), (b) it
calls select-window.
author | ben |
---|---|
date | Sun, 09 Feb 2003 09:33:48 +0000 |
parents | 42375619fa45 |
children | 8a653fbe5c27 |
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 | |
863 | 24 [layout :orientation vertical :margin-width 4 |
25 :vertically-justify center :horizontally-justify left | |
442 | 26 :items ([string :data "Fontifying glyphs.c..."] |
863 | 27 [layout :orientation horizontal |
442 | 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-visible-p bottom-gutter-visible-p 'str t) | |
863 | 37 (set-gutter-element left-gutter 'str2 str2) |
38 (set-gutter-element-visible-p left-gutter-visible-p 'str2 t) | |
442 | 39 |