From b311d7ed1bb987da750f41fa1424b1aae653abb2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 8 Apr 2009 13:16:51 +0000 Subject: [PATCH] pasteboard snip-sizing repairs svn: r14464 original commit: 0e7e85269d1cbee351831094d8c793d39b55b7d2 --- collects/mred/private/wxme/pasteboard.ss | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/mred/private/wxme/pasteboard.ss b/collects/mred/private/wxme/pasteboard.ss index 30eff379..2e119db4 100644 --- a/collects/mred/private/wxme/pasteboard.ss +++ b/collects/mred/private/wxme/pasteboard.ss @@ -337,7 +337,7 @@ [f? #f]) (set-box! f? (find-dot loc x y dx dy)) (set! sizedxm dx) - (set! sizedxm dy) + (set! sizedym dy) (when f? (set! resizing snip)) (init-dragging event))))) @@ -1102,11 +1102,11 @@ ;; ---------------------------------------- (define/private (find-dot loc x y dxm dym) - (define (check-y) + (define (check-y can-mid?) (cond [(inbox? (loc-y loc) y) (set-box! dym -1) #t] - [(inbox? (loc-vm loc) y) + [(and can-mid? (inbox? (loc-vm loc) y)) (set-box! dym 0) #t] [(inbox? (loc-b loc) y) (set-box! dym 1) #t] @@ -1114,13 +1114,13 @@ (cond [(inbox? (loc-x loc) x) (set-box! dxm -1) - (check-y)] + (check-y #t)] [(inbox? (loc-hm loc) x) (set-box! dxm 0) - (check-y)] + (check-y #f)] [(inbox? (loc-r loc) x) (set-box! dxm 1) - (check-y)] + (check-y #t)] [else #f])) (def/public (find-snip [real? x] [real? y] [(make-or-false snip%) [after #f]])