Mercurial > hg > xemacs-beta
annotate tests/gutter-test.el @ 5108:a50bd2ecce55
merge
| author | Stephen J. Turnbull <stephen@xemacs.org> |
|---|---|
| date | Sun, 07 Mar 2010 00:40:34 +0900 |
| parents | 8a653fbe5c27 |
| children | 308d34e9f07d |
| rev | line source |
|---|---|
|
4781
8a653fbe5c27
Add copyright and GPL v2 or later notices to Andy Piper's contributions, with
Jerry James <james@xemacs.org>
parents:
863
diff
changeset
|
1 ;;; Copyright (C) 1998 Andy Piper |
|
8a653fbe5c27
Add copyright and GPL v2 or later notices to Andy Piper's contributions, with
Jerry James <james@xemacs.org>
parents:
863
diff
changeset
|
2 |
|
8a653fbe5c27
Add copyright and GPL v2 or later notices to Andy Piper's contributions, with
Jerry James <james@xemacs.org>
parents:
863
diff
changeset
|
3 ;;; This file is part of XEmacs. |
|
8a653fbe5c27
Add copyright and GPL v2 or later notices to Andy Piper's contributions, with
Jerry James <james@xemacs.org>
parents:
863
diff
changeset
|
4 |
|
8a653fbe5c27
Add copyright and GPL v2 or later notices to Andy Piper's contributions, with
Jerry James <james@xemacs.org>
parents:
863
diff
changeset
|
5 ;;; XEmacs is free software; you can redistribute it and/or modify it |
|
8a653fbe5c27
Add copyright and GPL v2 or later notices to Andy Piper's contributions, with
Jerry James <james@xemacs.org>
parents:
863
diff
changeset
|
6 ;;; under the terms of the GNU General Public License as published by |
|
8a653fbe5c27
Add copyright and GPL v2 or later notices to Andy Piper's contributions, with
Jerry James <james@xemacs.org>
parents:
863
diff
changeset
|
7 ;;; the Free Software Foundation; either version 2, or (at your |
|
8a653fbe5c27
Add copyright and GPL v2 or later notices to Andy Piper's contributions, with
Jerry James <james@xemacs.org>
parents:
863
diff
changeset
|
8 ;;; option) any later version. |
|
8a653fbe5c27
Add copyright and GPL v2 or later notices to Andy Piper's contributions, with
Jerry James <james@xemacs.org>
parents:
863
diff
changeset
|
9 |
|
8a653fbe5c27
Add copyright and GPL v2 or later notices to Andy Piper's contributions, with
Jerry James <james@xemacs.org>
parents:
863
diff
changeset
|
10 ;;; XEmacs is distributed in the hope that it will be useful, but |
|
8a653fbe5c27
Add copyright and GPL v2 or later notices to Andy Piper's contributions, with
Jerry James <james@xemacs.org>
parents:
863
diff
changeset
|
11 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of |
|
8a653fbe5c27
Add copyright and GPL v2 or later notices to Andy Piper's contributions, with
Jerry James <james@xemacs.org>
parents:
863
diff
changeset
|
12 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
|
8a653fbe5c27
Add copyright and GPL v2 or later notices to Andy Piper's contributions, with
Jerry James <james@xemacs.org>
parents:
863
diff
changeset
|
13 ;;; General Public License for more details. |
|
8a653fbe5c27
Add copyright and GPL v2 or later notices to Andy Piper's contributions, with
Jerry James <james@xemacs.org>
parents:
863
diff
changeset
|
14 |
|
8a653fbe5c27
Add copyright and GPL v2 or later notices to Andy Piper's contributions, with
Jerry James <james@xemacs.org>
parents:
863
diff
changeset
|
15 ;;; You should have received a copy of the GNU General Public License |
|
8a653fbe5c27
Add copyright and GPL v2 or later notices to Andy Piper's contributions, with
Jerry James <james@xemacs.org>
parents:
863
diff
changeset
|
16 ;;; along with XEmacs; see the file COPYING. If not, write to the Free |
|
8a653fbe5c27
Add copyright and GPL v2 or later notices to Andy Piper's contributions, with
Jerry James <james@xemacs.org>
parents:
863
diff
changeset
|
17 ;;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
|
8a653fbe5c27
Add copyright and GPL v2 or later notices to Andy Piper's contributions, with
Jerry James <james@xemacs.org>
parents:
863
diff
changeset
|
18 ;;; Boston, MA 02110-1301, USA. |
|
8a653fbe5c27
Add copyright and GPL v2 or later notices to Andy Piper's contributions, with
Jerry James <james@xemacs.org>
parents:
863
diff
changeset
|
19 |
| 442 | 20 (setq str "Hello\nAgain") |
| 21 (setq str-ext (make-extent 0 5 str)) | |
| 398 | 22 (set-extent-begin-glyph |
| 442 | 23 str-ext |
| 398 | 24 (make-glyph [xpm :file "../etc/xemacs-icon.xpm"])) |
| 442 | 25 (set-extent-property str-ext 'mouse-face 'highlight) |
| 398 | 26 |
| 442 | 27 (setq str2 "Hello\n") |
| 28 (setq str2-ext (make-extent 0 1 str2)) | |
| 398 | 29 (set-extent-begin-glyph |
| 442 | 30 str2-ext |
| 398 | 31 (make-glyph |
| 32 [button :width 5 :height 1 | |
| 33 :face modeline-mousable | |
| 442 | 34 :callback (set-specifier bottom-gutter-visible-p '(str2)) |
| 398 | 35 :descriptor "ok" :selected t])) |
| 36 | |
| 442 | 37 (set-specifier bottom-gutter-height 'autodetect) |
| 38 (set-specifier bottom-gutter-border-width 2) | |
| 39 | |
| 40 (set-gutter-element | |
| 41 bottom-gutter 'str | |
| 42 (make-glyph | |
| 863 | 43 [layout :orientation vertical :margin-width 4 |
| 44 :vertically-justify center :horizontally-justify left | |
| 442 | 45 :items ([string :data "Fontifying glyphs.c..."] |
| 863 | 46 [layout :orientation horizontal |
| 442 | 47 :items |
| 48 ([progress-gauge :value 0 :pixel-height 24 | |
| 49 :pixel-width 250 :descriptor | |
| 50 "Progress"] | |
| 51 [button :pixel-height 24 | |
| 52 :descriptor " Stop " | |
| 53 :callback (quote quit)])])])) | |
| 54 | |
| 55 (set-gutter-element-visible-p bottom-gutter-visible-p 'str t) | |
| 863 | 56 (set-gutter-element left-gutter 'str2 str2) |
| 57 (set-gutter-element-visible-p left-gutter-visible-p 'str2 t) | |
| 442 | 58 |