annotate tests/gutter-test.el @ 4844:91b3d00e717f

Various cleanups for Dynarr code, from Unicode-internal ws dynarr.c: Add comment explaining Dynarr_largest() use. dynarr.c: In Dynarr_insert_many(), don't call Dynarr_resize() unless we actually need to resize, and note that an assert() that we are inserting at or below the current end could be wrong if code wants to access stuff between `len' and `largest'. dynarr.c: Don't just Dynarr_resize() to the right size; instead use Dynarr_reset() then Dynarr_add_many(), so that the 'len' and 'largest' and such get set properly. dynarr.c, faces.c, gutter.c, lisp.h, lread.c, lrecord.h, redisplay-output.c, redisplay.c: Rename Dynarr member 'cur' to 'len' since it's the length of the dynarr, not really a pointer to a "current insertion point". Use type_checking_assert() instead of just assert() in some places. Add additional assertions (Dynarr_verify*()) to check that we're being given positions within range. Use them in Dynarr_at, Dynarr_atp, etc. New Dynarr_atp_allow_end() for retrieving a pointer to a position that might be the element past the last one. New Dynarr_past_lastp() to retrieve a pointer to the position past the last one, using Dynarr_atp_allow_end(). Change code appropriately to use it. Rename Dynarr_end() to Dynarr_lastp() (pointer to the last element) for clarity, and change code appropriately to use it. Change code appropriately to use Dynarr_begin(). Rewrite Dynarr_add_many(). New version can accept a NULL pointer to mean "reserve space but don't put anything in it". Used by stack_like_malloc().
author Ben Wing <ben@xemacs.org>
date Wed, 13 Jan 2010 04:07:42 -0600
parents 8a653fbe5c27
children 308d34e9f07d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
20 (setq str "Hello\nAgain")
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
21 (setq str-ext (make-extent 0 5 str))
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
22 (set-extent-begin-glyph
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
23 str-ext
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
24 (make-glyph [xpm :file "../etc/xemacs-icon.xpm"]))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
25 (set-extent-property str-ext 'mouse-face 'highlight)
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
26
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
27 (setq str2 "Hello\n")
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
28 (setq str2-ext (make-extent 0 1 str2))
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
29 (set-extent-begin-glyph
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
30 str2-ext
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
31 (make-glyph
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
32 [button :width 5 :height 1
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
33 :face modeline-mousable
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
34 :callback (set-specifier bottom-gutter-visible-p '(str2))
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
35 :descriptor "ok" :selected t]))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
36
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
37 (set-specifier bottom-gutter-height 'autodetect)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
38 (set-specifier bottom-gutter-border-width 2)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
39
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
40 (set-gutter-element
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
41 bottom-gutter 'str
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
42 (make-glyph
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 442
diff changeset
43 [layout :orientation vertical :margin-width 4
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 442
diff changeset
44 :vertically-justify center :horizontally-justify left
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
45 :items ([string :data "Fontifying glyphs.c..."]
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 442
diff changeset
46 [layout :orientation horizontal
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
47 :items
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
48 ([progress-gauge :value 0 :pixel-height 24
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
49 :pixel-width 250 :descriptor
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
50 "Progress"]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
51 [button :pixel-height 24
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
52 :descriptor " Stop "
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
53 :callback (quote quit)])])]))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
54
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
55 (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
56 (set-gutter-element left-gutter 'str2 str2)
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 442
diff changeset
57 (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
58