From 33f517e62edfdbca8c0d2db88030592e006d4eb3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 21 Jul 2008 18:54:09 +0000
Subject: [PATCH] allow duplicate struct properties if the values are eq?; add
 position-locations to text%

svn: r10849

original commit: 5ff75bac42ac9303370d974eeb9f7870685200ba
---
 collects/scribblings/gui/text-class.scrbl | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/collects/scribblings/gui/text-class.scrbl b/collects/scribblings/gui/text-class.scrbl
index 587d1afc..48c191c2 100644
--- a/collects/scribblings/gui/text-class.scrbl
+++ b/collects/scribblings/gui/text-class.scrbl
@@ -1611,7 +1611,7 @@ See @|ateoldiscuss| for a discussion of @scheme[at-eol?].
                               [whole-line? any/c #f])
            void?]{
 
-Returns the @techlink{location} of a given @techlink{position}. 
+Returns the @techlink{location} of a given @techlink{position}. See also @method[text% position-locations].
 
 @boxisfillnull[(scheme x) @elem{the x-@techlink{location} of the @techlink{position} @scheme[start] in editor
 coordinates} ]
@@ -1634,6 +1634,22 @@ maximum bottom @techlink{location} for the whole line is returned in @scheme[y].
 }
 
 
+@defmethod[(position-locations [start nonnegative-exact-integer?]
+                               [top-x (or/c (box/c real?) false/c) #f]
+                               [top-y (or/c (box/c real?) false/c) #f]
+                               [bottom-x (or/c (box/c real?) false/c) #f]
+                               [bottom-y (or/c (box/c real?) false/c) #f]
+                               [at-eol? any/c #f]
+                               [whole-line? any/c #f])
+           void?]{
+
+Like @method[text% position-location], but returns both the ``top''
+and ``bottom'' results at once.
+
+@|OVD| @|FCA|
+
+}
+
 @defmethod[(position-paragraph [start nonnegative-exact-integer?]
                                [at-eol? any/c #f])
            nonnegative-exact-integer?]{