suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add `set-padding' to text%

Browse Source
This commit is contained in:
Matthew Flatt 2010-12-29 13:38:24 -07:00
parent 98aeb91aa2
commit d3fd1ba013
5 changed files with 176 additions and 92 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mred/private/wxme/mline.rkt
View File

@ -1069,15 +1069,15 @@ Debugging tools:
;; ---------------------------------------- ;; ----------------------------------------
(define (update-graphics mline media dc) (define (update-graphics mline media dc padding-l padding-t)
(define (update-left) (define (update-left)
(and (bit-overlap? (mline-flags mline) CALC-LEFT) (and (bit-overlap? (mline-flags mline) CALC-LEFT)
(not (eq? (mline-left mline) NIL)) (not (eq? (mline-left mline) NIL))
(update-graphics (mline-left mline) media dc))) (update-graphics (mline-left mline) media dc padding-l padding-t)))
(define (update-here) (define (update-here)
(and (and
(bit-overlap? (mline-flags mline) CALC-HERE) (bit-overlap? (mline-flags mline) CALC-HERE)
(let ([y (get-location mline)] (let ([y (+ (get-location mline) padding-t)]
[nextsnip (snip->next (mline-last-snip mline))]) [nextsnip (snip->next (mline-last-snip mline))])
(let loop ([asnip (mline-snip mline)] (let loop ([asnip (mline-snip mline)]
[maxbase 0.0] [maxbase 0.0]
@ -1085,7 +1085,7 @@ Debugging tools:
[maxspace 0.0] [maxspace 0.0]
[maxantidescent 0.0] [maxantidescent 0.0]
[maxantispace 0.0] [maxantispace 0.0]
[totalwidth 0.0] [totalwidth padding-l]
[maxscroll 1] [maxscroll 1]
[scroll-snip #f] [scroll-snip #f]
[last-w 0.0] [last-w 0.0]
@ -1156,7 +1156,7 @@ Debugging tools:
(define (update-right) (define (update-right)
(and (bit-overlap? (mline-flags mline) CALC-RIGHT) (and (bit-overlap? (mline-flags mline) CALC-RIGHT)
(not (eq? (mline-right mline) NIL)) (not (eq? (mline-right mline) NIL))
(update-graphics (mline-right mline) media dc))) (update-graphics (mline-right mline) media dc padding-l padding-t)))
(let ([left? (update-left)] (let ([left? (update-left)]
[here? (update-here)] [here? (update-here)]

158
collects/mred/private/wxme/text.rkt
View File

@ -43,6 +43,10 @@
(define TAB-WIDTH 20.0) (define TAB-WIDTH 20.0)
;; Used when max-width is set, but padding takes up
;; all available space:
(define ZERO-LINE-WIDTH 0.1)
(define show-outline-for-inactive? (define show-outline-for-inactive?
(and (get-preference 'MrEd:outline-inactive-selection) #t)) (and (get-preference 'MrEd:outline-inactive-selection) #t))
@ -192,6 +196,13 @@
(define min-height 0.0) (define min-height 0.0)
(define wrap-bitmap-width 0.0) (define wrap-bitmap-width 0.0)
(define max-line-width 0.0)
(define padding-l 0.0) ; space conceptually at the left of each line,
(define padding-t 0.0) ; space conceptually added to the top of the first line,
(define padding-r 0.0) ; etc. --- locations in mline do not take this
(define padding-b 0.0) ; padding into account
(define auto-wrap-bitmap #f) (define auto-wrap-bitmap #f)
(define delay-refresh 0) (define delay-refresh 0)
@ -221,7 +232,7 @@
(define extra-line-h 0.0) (define extra-line-h 0.0)
(define total-height 0.0) ; total height/width in canvas units (define total-height 0.0) ; total height/width in canvas units, not including padding
(define total-width 0.0) (define total-width 0.0)
(define final-descent 0.0) ; descent of last line (define final-descent 0.0) ; descent of last line
(define initial-space 0.0) ; space from first line (define initial-space 0.0) ; space from first line
@ -937,7 +948,7 @@
(let-values ([(topx botx) (let-values ([(topx botx)
(if (botx . < . topx) (if (botx . < . topx)
;; when the end position is to the left of the start position ;; when the end position is to the left of the start position
(values 0 total-width) (values 0 (+ total-width padding-t padding-b))
(values topx botx))]) (values topx botx))])
(scroll-editor-to topx topy (- botx topx) (- boty topy) refresh? bias)))])))) (scroll-editor-to topx topy (- botx topx) (- boty topy) refresh? bias)))]))))
@ -2486,6 +2497,20 @@
(def/public (get-line-spacing) line-spacing) (def/public (get-line-spacing) line-spacing)
(def/public (get-padding)
(values padding-l padding-t padding-r padding-b))
(def/public (set-padding [nonnegative-real? l]
[nonnegative-real? t]
[nonnegative-real? r]
[nonnegative-real? b])
(set! padding-l (exact->inexact l))
(set! padding-t (exact->inexact t))
(set! padding-r (exact->inexact r))
(set! padding-b (exact->inexact b))
(unless (= 0.0 max-width)
(set! max-line-width (max (- max-width padding-t padding-r)
ZERO-LINE-WIDTH))))
(def/override (get-max-width) (def/override (get-max-width)
(if (max-width . <= . 0) (if (max-width . <= . 0)
'none 'none
@ -2515,6 +2540,10 @@
(+ CURSOR-WIDTH 1) (+ CURSOR-WIDTH 1)
w)]) w)])
(set! max-width w) (set! max-width w)
(set! max-line-width (if (= w 0.0)
0.0
(max (- w padding-t padding-r)
ZERO-LINE-WIDTH)))
(set! flow-invalid? #t) (set! flow-invalid? #t)
(set! graphic-maybe-invalid? #t) (set! graphic-maybe-invalid? #t)
(set! changed? #t) (set! changed? #t)
@ -2785,7 +2814,7 @@
[(i . >= . num-valid-lines) len] [(i . >= . num-valid-lines) len]
[else [else
(let* ([line (mline-find-line (unbox line-root-box) i)] (let* ([line (mline-find-line (unbox line-root-box) i)]
[x (- x (mline-get-left-location line max-width))]) [x (- x padding-l (mline-get-left-location line max-line-width))])
(if (x . <= . 0) (if (x . <= . 0)
(find-first-visible-position line) (find-first-visible-position line)
(let ([p (mline-get-position line)]) (let ([p (mline-get-position line)])
@ -2931,15 +2960,16 @@
(when onit? (when onit?
(set-box! onit? #f)) (set-box! onit? #f))
(cond (let ([y (- y padding-t)])
[(not (check-recalc #t #f)) 0] (cond
[(y . <= . 0) 0] [(not (check-recalc #t #f)) 0]
[(or (y . >= . total-height) (and extra-line? (y . >= . (- total-height extra-line-h)))) [(y . <= . 0) 0]
(- num-valid-lines (if extra-line? 0 1))] [(or (y . >= . total-height) (and extra-line? (y . >= . (- total-height extra-line-h))))
[else (- num-valid-lines (if extra-line? 0 1))]
(when onit? [else
(set-box! onit? #t)) (when onit?
(mline-get-line (mline-find-location (unbox line-root-box) y))])) (set-box! onit? #t))
(mline-get-line (mline-find-location (unbox line-root-box) y))])))
(def/public (find-position [real? x] [real? y] (def/public (find-position [real? x] [real? y]
[maybe-box? [ateol? #f]] [maybe-box? [ateol? #f]]
@ -3055,11 +3085,13 @@
(if whole-line? (if whole-line?
(begin (begin
(when (or tx bx) (when (or tx bx)
(let ([xl (mline-get-left-location first-line max-width)]) (let ([xl (+ (mline-get-left-location first-line max-line-width)
padding-l)])
(when tx (set-box! tx xl)) (when tx (set-box! tx xl))
(when bx (set-box! bx xl)))) (when bx (set-box! bx xl))))
(when (or ty by) (when (or ty by)
(let ([yl (mline-get-location first-line)]) (let ([yl (+ (mline-get-location first-line)
padding-t)])
(when ty (set-box! ty yl)) (when ty (set-box! ty yl))
(when by (set-box! by (+ yl (mline-h first-line)))))) (when by (set-box! by (+ yl (mline-h first-line))))))
#f) #f)
@ -3067,19 +3099,21 @@
[(start . >= . len) [(start . >= . len)
(if (and extra-line? (not eol?)) (if (and extra-line? (not eol?))
(begin (begin
(when ty (set-box! ty (- total-height extra-line-h))) (when ty (set-box! ty (+ (- total-height extra-line-h) padding-t)))
(when by (set-box! by total-height)) (when by (set-box! by (+ total-height padding-t)))
(when tx (set-box! tx 0)) (when tx (set-box! tx 0))
(when bx (set-box! bx 0)) (when bx (set-box! bx 0))
#f) #f)
(if (or whole-line? (zero? len)) (if (or whole-line? (zero? len))
(begin (begin
(when (or tx bx) (when (or tx bx)
(let ([xl (mline-get-right-location last-line max-width)]) (let ([xl (+ (mline-get-right-location last-line max-line-width)
padding-l)])
(when tx (set-box! tx xl)) (when tx (set-box! tx xl))
(when bx (set-box! bx xl)))) (when bx (set-box! bx xl))))
(when (or ty by) (when (or ty by)
(let ([yl (mline-get-location last-line)]) (let ([yl (+ (mline-get-location last-line)
padding-t)])
(when ty (set-box! ty yl)) (when ty (set-box! ty yl))
(when by (set-box! by (+ yl (mline-h last-line)))))) (when by (set-box! by (+ yl (mline-h last-line))))))
#f) #f)
@ -3089,7 +3123,7 @@
(if whole-line? (if whole-line?
(begin (begin
(when (or by ty) (when (or by ty)
(let ([yl (mline-get-location line)]) (let ([yl (+ (mline-get-location line) padding-t)])
(when ty (set-box! ty yl)) (when ty (set-box! ty yl))
(when by (set-box! by (+ yl (mline-h line)))))) (when by (set-box! by (+ yl (mline-h line))))))
(if (not (or tx bx)) (if (not (or tx bx))
@ -3102,8 +3136,8 @@
(set! write-locked? #t) (set! write-locked? #t)
(set! flow-locked? #t) (set! flow-locked? #t)
(let ([horiz (mline-get-left-location line max-width)] (let ([horiz (+ (mline-get-left-location line max-line-width) padding-l)]
[topy (mline-get-location line)] [topy (+ (mline-get-location line) padding-t)]
[start (- start (mline-get-position line))]) [start (- start (mline-get-position line))])
(let-values ([(snip horiz start dc) (let-values ([(snip horiz start dc)
(cond (cond
@ -3183,18 +3217,20 @@
[any? [top? #t]]) [any? [top? #t]])
(cond (cond
[(not (check-recalc #t #f)) 0.0] [(not (check-recalc #t #f)) 0.0]
[(i . < . 0) 0.0] [(i . < . 0) padding-t]
[(i . > . num-valid-lines) total-height] [(i . > . num-valid-lines) (+ padding-t total-height)]
[(= num-valid-lines i) [(= num-valid-lines i)
(if extra-line? (+ padding-t
(- total-height extra-line-h) (if extra-line?
total-height)] (- total-height extra-line-h)
total-height))]
[else [else
(let* ([line (mline-find-line (unbox line-root-box) i)] (let* ([line (mline-find-line (unbox line-root-box) i)]
[y (mline-get-location line)]) [y (mline-get-location line)])
(if top? (+ padding-t
y (if top?
(+ y (mline-h line))))])) y
(+ y (mline-h line)))))]))
(define/private (do-line-position start? i visible-only?) (define/private (do-line-position start? i visible-only?)
(cond (cond
@ -3340,41 +3376,42 @@
(def/override (get-extent [maybe-box? w] [maybe-box? h]) (def/override (get-extent [maybe-box? w] [maybe-box? h])
(check-recalc #t #f) (check-recalc #t #f)
(when w (set-box! w total-width)) (when w (set-box! w (+ total-width padding-l padding-r)))
(when h (set-box! h total-height))) (when h (set-box! h (+ total-height padding-t padding-b))))
(def/override (get-descent) (def/override (get-descent)
(check-recalc #t #f) (check-recalc #t #f)
final-descent) (+ final-descent padding-b))
(def/override (get-space) (def/override (get-space)
(check-recalc #t #f) (check-recalc #t #f)
initial-space) (+ initial-space padding-t))
(def/public (get-top-line-base) (def/public (get-top-line-base)
(check-recalc #t #f) (check-recalc #t #f)
initial-line-base) (+ initial-line-base padding-t))
(def/override (scroll-line-location [exact-nonnegative-integer? scroll]) (def/override (scroll-line-location [exact-nonnegative-integer? scroll])
(if read-locked? (if read-locked?
0.0 0.0
(begin (begin
(check-recalc #t #f) (check-recalc #t #f)
(let ([total (+ (mline-get-scroll last-line) (mline-numscrolls last-line))]) (+ padding-t
(cond (let ([total (+ (mline-get-scroll last-line) (mline-numscrolls last-line))])
[(= total scroll) (cond
(if extra-line? [(= total scroll)
(- total-height extra-line-h) (if extra-line?
total-height)] (- total-height extra-line-h)
[(scroll . > . total) (+ total-height padding-b))]
total-height] [(scroll . > . total)
[else (+ total-height padding-b)]
(let* ([line (mline-find-scroll (unbox line-root-box) scroll)] [else
[p (mline-get-scroll line)] (let* ([line (mline-find-scroll (unbox line-root-box) scroll)]
[y (mline-get-location line)]) [p (mline-get-scroll line)]
(if (p . < . scroll) [y (mline-get-location line)])
(+ y (mline-scroll-offset line (- scroll p))) (if (p . < . scroll)
y))]))))) (+ y (mline-scroll-offset line (- scroll p)))
y))]))))))
(def/override (num-scroll-lines) (def/override (num-scroll-lines)
(if read-locked? (if read-locked?
@ -3391,12 +3428,12 @@
(begin (begin
(check-recalc #t #f) (check-recalc #t #f)
(if (and extra-line? (if (and extra-line?
(p . >= . (- total-height extra-line-h))) (p . >= . (- total-height extra-line-h padding-t)))
(- (num-scroll-lines) 1) (- (num-scroll-lines) 1)
(let* ([line (mline-find-location (unbox line-root-box) p)] (let* ([line (mline-find-location (unbox line-root-box) (- p padding-t))]
[s (mline-get-scroll line)]) [s (mline-get-scroll line)])
(if ((mline-numscrolls line) . > . 1) (if ((mline-numscrolls line) . > . 1)
(let ([y (mline-get-location line)]) (let ([y (+ (mline-get-location line) padding-t)])
(+ s (mline-find-extra-scroll line (- p y)))) (+ s (mline-find-extra-scroll line (- p y))))
s)))))) s))))))
@ -3945,8 +3982,8 @@
[real? [y 0.0]] [real? [y 0.0]]
[(make-alts nonnegative-real? (symbol-in end display-end)) [w 'end]] [(make-alts nonnegative-real? (symbol-in end display-end)) [w 'end]]
[(make-alts nonnegative-real? (symbol-in end display-end)) [h 'end]]) [(make-alts nonnegative-real? (symbol-in end display-end)) [h 'end]])
(let ([w (if (eq? w 'end) (- total-width x) w)] (let ([w (if (eq? w 'end) (- (+ total-width padding-l padding-r) x) w)]
[h (if (eq? h 'end) (- total-height y) h)]) [h (if (eq? h 'end) (- (+ total-height padding-t padding-b) y) h)])
(refresh-box x y w h) (refresh-box x y w h)
(when (zero? delay-refresh) (when (zero? delay-refresh)
@ -4536,7 +4573,7 @@
(let loop ([snip start] (let loop ([snip start]
[p p] [p p]
[_total-width 0]) [_total-width padding-l])
(if (and snip (not (has-flag? (snip->flags snip) HARD-NEWLINE))) (if (and snip (not (has-flag? (snip->flags snip) HARD-NEWLINE)))
(begin (begin
(when (not checking-underflow?) (when (not checking-underflow?)
@ -4663,7 +4700,7 @@
(set! write-locked? #t) (set! write-locked? #t)
(set! flow-locked? #t) (set! flow-locked? #t)
(let ([w (- max-width CURSOR-WIDTH)]) (let ([w (- max-width padding-l padding-t CURSOR-WIDTH)])
(let loop ([-changed? #f]) (let loop ([-changed? #f])
(if (begin0 (if (begin0
(mline-update-flow (unbox line-root-box) line-root-box this w dc (mline-update-flow (unbox line-root-box) line-root-box this w dc
@ -4697,7 +4734,8 @@
(set! num-valid-lines (mline-number (unbox line-root-box)))) (set! num-valid-lines (mline-number (unbox line-root-box))))
(let ([-changed? (let ([-changed?
(or (mline-update-graphics (unbox line-root-box) this dc) (or (mline-update-graphics (unbox line-root-box) this dc
padding-l padding-t)
-changed?)]) -changed?)])
(if (and (not -changed?) (if (and (not -changed?)
@ -5075,7 +5113,7 @@
(send dc set-text-mode 'solid) (send dc set-text-mode 'solid)
(let ([line (mline-find-location (unbox line-root-box) starty)]) (let ([line (mline-find-location (unbox line-root-box) (- starty padding-t))])
(when (and bg-color (when (and bg-color
(not (pair? show-caret))) (not (pair? show-caret)))
@ -5133,7 +5171,7 @@
[tendy (+ endy dy)]) [tendy (+ endy dy)])
(let lloop ([line line] (let lloop ([line line]
[old-style #f] [old-style #f]
[ycounter (mline-get-location line)] [ycounter (+ (mline-get-location line) padding-t)]
[pcounter (mline-get-position line)] [pcounter (mline-get-position line)]
[prevwasfirst 0.0]) [prevwasfirst 0.0])
(cond (cond
@ -5162,7 +5200,7 @@
(define (process-snips draw? maybe-hilite? old-style) (define (process-snips draw? maybe-hilite? old-style)
(let sloop ([snip first] (let sloop ([snip first]
[p pcounter] [p pcounter]
[x (mline-get-left-location line max-width)] [x (+ (mline-get-left-location line max-line-width) padding-l)]
[hilite-some? #f] [hilite-some? #f]
[hsxs 0.0] [hsxs 0.0]
[hsxe 0.0] [hsxe 0.0]

20
collects/scribblings/gui/editor-intf.scrbl
View File

@ -622,6 +622,8 @@ Typically used (indirectly) by snip objects belonging to the
Returns the font descent for the editor. This method is primarily used Returns the font descent for the editor. This method is primarily used
when an editor is an @techlink{item} within another editor. when an editor is an @techlink{item} within another editor.
For a text editor, the reported descent includes the editor's
bottom padding (see @method[text% set-padding]).
@|OVD| @FCAME[] @|OVD| @FCAME[]
@ -634,6 +636,8 @@ Returns the font descent for the editor. This method is primarily used
Gets the current extent of the editor's graphical representation. Gets the current extent of the editor's graphical representation.
@boxisfillnull[(scheme w) @elem{the editor's width}] @boxisfillnull[(scheme w) @elem{the editor's width}]
@boxisfillnull[(scheme h) @elem{the editor's height}] @boxisfillnull[(scheme h) @elem{the editor's height}]
For a text editor, the reported extent includes the editor's
padding (see @method[text% set-padding]).
@|OVD| @FCAME[] @|OVD| @FCAME[]
@ -854,6 +858,8 @@ Obtaining the @techlink{location} if the bottom-right corner may
Returns the maximum font space for the editor. This method is Returns the maximum font space for the editor. This method is
primarily used when an editor is an @techlink{item} within another primarily used when an editor is an @techlink{item} within another
editor. editor.
For a text editor, the reported space includes the editor's
top padding (see @method[text% set-padding]).
@|OVD| @FCAME[] @|OVD| @FCAME[]
@ -2260,17 +2266,17 @@ Sets the maximum number of undoables that will be remembered by the
@defmethod[(set-max-width [width (or/c (and/c real? (not/c negative?)) 'none)]) @defmethod[(set-max-width [width (or/c (and/c real? (not/c negative?)) 'none)])
void?]{ void?]{
Sets the maximum display width for the contents of the editor; Sets the maximum display width for the contents of the editor; zero or
zero or @scheme['none] indicates that there is no maximum. In a @scheme['none] indicates that there is no maximum. In a text editor,
text editor, having no maximum disables automatic line breaking, having no maximum disables automatic line breaking, and the minimum
and the minimum (positive) maximum width depends on the width of the (positive) maximum width depends on the width of the autowrap
autowrap bitmap. bitmap. The maximum width of a text editor includes its left and
right padding (see @method[text% set-padding]) and its autowrap
bitmap (see @method[text% set-autowrap-bitmap]).
Setting the width is disallowed when the editor is internally locked Setting the width is disallowed when the editor is internally locked
for reflowing (see also @|lockdiscuss|). for reflowing (see also @|lockdiscuss|).
See also @method[text% set-autowrap-bitmap].
} }
@defmethod[(set-min-height [width (or/c (and/c real? (not/c negative?)) 'none)]) @defmethod[(set-min-height [width (or/c (and/c real? (not/c negative?)) 'none)])

30
collects/scribblings/gui/text-class.scrbl
View File

@ -816,6 +816,17 @@ Returns @scheme[#t] if the editor is in overwrite mode, @scheme[#f]
} }
@defmethod[(get-padding) (values nonnegative-real?
nonnegative-real?
nonnegative-real?
nonnegative-real?)]{
Returns the editor's padding for its left, top, right, and bottom
sides (in that order).
See also @method[text% set-padding].}
@defmethod[(get-position [start (or/c (box/c exact-nonnegative-integer?) #f)] @defmethod[(get-position [start (or/c (box/c exact-nonnegative-integer?) #f)]
[end (or/c (box/c exact-nonnegative-integer?) #f) #f]) [end (or/c (box/c exact-nonnegative-integer?) #f) #f])
void?]{ void?]{
@ -971,6 +982,8 @@ If @scheme[force-cr?] is not @scheme[#f] and @scheme[flattened?] is not
Returns the distance from the top of the editor to the alignment Returns the distance from the top of the editor to the alignment
baseline of the top line. This method is primarily used when an baseline of the top line. This method is primarily used when an
editor is an @techlink{item} within another editor. editor is an @techlink{item} within another editor.
The reported baseline distance includes the editor's
top padding (see @method[text% set-padding]).
@|OVD| @FCAME[] @|OVD| @FCAME[]
@ -1877,6 +1890,23 @@ Enables or disables overwrite mode. See @method[text%
} }
@defmethod[(set-padding [left nonnegative-real?]
[top nonnegative-real?]
[right nonnegative-real?]
[bottom nonnegative-real?])
void?]{
Sets padding that insets the editor's content when drawn within its
@techlink{display}.
Unlike any margin that may be applied by the editor's
@techlink{display}, padding is counted in @techlink{location}
information that is reported by methods such as @method[text%
position-location]. For example, with a @racket[left] padding of 17.0
and a @racket[top] padding of 9.0, the location of position 0 will be
(17.0, 9.0) rather than (0, 0). Padding also contributes to the
editor's size as reported by @method[editor<%> get-extent].}
@defmethod[(set-paragraph-alignment [paragraph exact-nonnegative-integer?] @defmethod[(set-paragraph-alignment [paragraph exact-nonnegative-integer?]
[alignment (or/c 'left 'center 'right)]) [alignment (or/c 'left 'center 'right)])

50
collects/tests/gracket/wxme.rkt
View File

@ -477,26 +477,36 @@
;; Every character is 10.0 high, 10.0 wide, 1.0 descent, 1.0 top space ;; Every character is 10.0 high, 10.0 wide, 1.0 descent, 1.0 top space
(send t set-admin (new test-editor-admin%)) (send t set-admin (new test-editor-admin%))
(expect (let ([x (box 0.0)] [y (box 0.0)]) (define (check-simple-locations pl pt pr pb)
(list (begin (list
(send t position-location 1 x y) (expect (let ([x (box 0.0)] [y (box 0.0)])
(list (unbox x) (unbox y))) (list (begin
(begin (send t position-location 1 x y)
(send t position-location 1 x y #f) (list (unbox x) (unbox y)))
(list (unbox x) (unbox y))))) (begin
'((10.0 0.0) (10.0 10.0))) (send t position-location 1 x y #f)
(expect (let ([x (box 0.0)] [y (box 0.0)]) (list (unbox x) (unbox y)))))
(list (begin (list (list (+ pl 10.0) (+ pt 0.0))
(send t position-location 14 x y) (list (+ pl 10.0) (+ pt 10.0))))
(list (unbox x) (unbox y))) (expect (let ([x (box 0.0)] [y (box 0.0)])
(begin (list (begin
(send t position-location 14 x y #f) (send t position-location 14 x y)
(list (unbox x) (unbox y))))) (list (unbox x) (unbox y)))
'((20.0 11.0) (20.0 21.0))) (begin
(expect (let ([w (box 0.0)] [h (box 0.0)]) (send t position-location 14 x y #f)
(send t get-extent w h) (list (unbox x) (unbox y)))))
(list (unbox w) (unbox h))) (list (list (+ pl 20.0) (+ pt 11.0))
'(192.0 22.0)) (list (+ pl 20.0) (+ pt 21.0))))
(expect (let ([w (box 0.0)] [h (box 0.0)])
(send t get-extent w h)
(list (unbox w) (unbox h)))
(list (+ 192.0 pl pr)
(+ 22.0 pt pb)))))
(check-simple-locations 0 0 0 0)
(send t set-padding 5.0 8.0 11.0 13.0)
(check-simple-locations 5 8 11 13)
(send t set-padding 0 0 0 0)
(expect (send t find-position 0.0 0.0) 0) (expect (send t find-position 0.0 0.0) 0)
(expect (send t find-position 0.0 3.0) 0) (expect (send t find-position 0.0 3.0) 0)