xemacs-beta: tests/gutter-test.el annotate

annotate tests/gutter-test.el @ 5612:2c20bc575989

Use the old #'labels implementation if #'lexical-let changes lambdas. lisp/ChangeLog addition: 2011-12-13 Aidan Kehoe <kehoea@parhasard.net> * bytecomp.el (byte-compile-initial-macro-environment): If lexical let has played with our lambas, give up on constructing the compiled functions at compiled time, that strategy doesn't work.

author	Aidan Kehoe <kehoea@parhasard.net>
date	Tue, 13 Dec 2011 20:28:32 +0000
parents	308d34e9f07d
children

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
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4781 diff changeset	3 ;; This file is part of XEmacs.
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4781 diff changeset	4 ;;
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4781 diff changeset	5 ;; XEmacs is free software: you can redistribute it and/or modify it
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4781 diff changeset	6 ;; under the terms of the GNU General Public License as published by the
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4781 diff changeset	7 ;; Free Software Foundation, either version 3 of the License, or (at your
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4781 diff changeset	8 ;; option) any later version.
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4781 diff changeset	9 ;;
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4781 diff changeset	10 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4781 diff changeset	11 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4781 diff changeset	12 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4781 diff changeset	13 ;; for more details.
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4781 diff changeset	14 ;;
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4781 diff changeset	15 ;; You should have received a copy of the GNU General Public License
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4781 diff changeset	16 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>.
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	17
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	18 (setq str "Hello\nAgain")
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	19 (setq str-ext (make-extent 0 5 str))
398 74fd4e045ea6 Import from CVS: tag r21-2-29 cvs parents: diff changeset	20 (set-extent-begin-glyph
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	21 str-ext
398 74fd4e045ea6 Import from CVS: tag r21-2-29 cvs parents: diff changeset	22 (make-glyph [xpm :file "../etc/xemacs-icon.xpm"]))
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	23 (set-extent-property str-ext 'mouse-face 'highlight)
398 74fd4e045ea6 Import from CVS: tag r21-2-29 cvs parents: diff changeset	24
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	25 (setq str2 "Hello\n")
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	26 (setq str2-ext (make-extent 0 1 str2))
398 74fd4e045ea6 Import from CVS: tag r21-2-29 cvs parents: diff changeset	27 (set-extent-begin-glyph
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	28 str2-ext
398 74fd4e045ea6 Import from CVS: tag r21-2-29 cvs parents: diff changeset	29 (make-glyph
74fd4e045ea6 Import from CVS: tag r21-2-29 cvs parents: diff changeset	30 [button :width 5 :height 1
74fd4e045ea6 Import from CVS: tag r21-2-29 cvs parents: diff changeset	31 :face modeline-mousable
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	32 :callback (set-specifier bottom-gutter-visible-p '(str2))
398 74fd4e045ea6 Import from CVS: tag r21-2-29 cvs parents: diff changeset	33 :descriptor "ok" :selected t]))
74fd4e045ea6 Import from CVS: tag r21-2-29 cvs parents: diff changeset	34
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	35 (set-specifier bottom-gutter-height 'autodetect)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	36 (set-specifier bottom-gutter-border-width 2)
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	37
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	38 (set-gutter-element
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	39 bottom-gutter 'str
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	40 (make-glyph
863 42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp] andyp parents: 442 diff changeset	41 [layout :orientation vertical :margin-width 4
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp] andyp parents: 442 diff changeset	42 :vertically-justify center :horizontally-justify left
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	43 :items ([string :data "Fontifying glyphs.c..."]
863 42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp] andyp parents: 442 diff changeset	44 [layout :orientation horizontal
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	45 :items
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	46 ([progress-gauge :value 0 :pixel-height 24
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	47 :pixel-width 250 :descriptor
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	48 "Progress"]
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	49 [button :pixel-height 24
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	50 :descriptor " Stop "
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	51 :callback (quote quit)])])]))
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	52
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	53 (set-gutter-element-visible-p bottom-gutter-visible-p 'str t)
863 42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp] andyp parents: 442 diff changeset	54 (set-gutter-element left-gutter 'str2 str2)
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp] andyp parents: 442 diff changeset	55 (set-gutter-element-visible-p left-gutter-visible-p 'str2 t)
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 398 diff changeset	56

Mercurial > hg > xemacs-beta

annotate tests/gutter-test.el @ 5612:2c20bc575989