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

Added logic to treat embedded editors differently when computing tail call arrow positions in Check Syntax.

Browse Source 
svn: r10634
This commit is contained in:
Danny Yoo 2008-07-06 21:47:54 +00:00
parent d837a0e74c
commit 7816a6899c
1 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
collects/drscheme/syncheck.ss
View File

@ -353,20 +353,32 @@ If the namespace does not, they are colored the unbound color.
(set-arrow-end-x! arrow end-x) (set-arrow-end-x! arrow end-x)
(set-arrow-end-y! arrow end-y))) (set-arrow-end-y! arrow end-y)))
(define/private (update-tail-arrow-poss arrow) (define/private (update-tail-arrow-poss arrow)
(let-values ([(start-x start-y) (find-poss ;; If the item is an embedded editor snip, redirect
;; the arrow to point at the left edge rather than the
;; midpoint.
(define (find-poss/embedded text pos)
(let* ([snip (send text find-snip pos 'after)])
(cond
[(and snip
(is-a? snip editor-snip%)
(= pos (send text get-snip-position snip)))
(find-poss text pos pos)]
[else
(find-poss text pos (+ pos 1))])))
(let-values ([(start-x start-y) (find-poss/embedded
(tail-arrow-from-text arrow) (tail-arrow-from-text arrow)
(tail-arrow-from-pos arrow) (tail-arrow-from-pos arrow))]
(+ (tail-arrow-from-pos arrow) 1))] [(end-x end-y) (find-poss/embedded
[(end-x end-y) (find-poss
(tail-arrow-to-text arrow) (tail-arrow-to-text arrow)
(tail-arrow-to-pos arrow) (tail-arrow-to-pos arrow))])
(+ (tail-arrow-to-pos arrow) 1))])
(set-arrow-start-x! arrow start-x) (set-arrow-start-x! arrow start-x)
(set-arrow-start-y! arrow start-y) (set-arrow-start-y! arrow start-y)
(set-arrow-end-x! arrow end-x) (set-arrow-end-x! arrow end-x)
(set-arrow-end-y! arrow end-y))) (set-arrow-end-y! arrow end-y)))
;; syncheck:init-arrows : -> void ;; syncheck:init-arrows : -> void
(define/public (syncheck:init-arrows) (define/public (syncheck:init-arrows)
(set! tacked-hash-table (make-hasheq)) (set! tacked-hash-table (make-hasheq))