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

macro-stepper: untack arrows on navigation

Browse Source 
Closes PR 11485
This commit is contained in:
Ryan Culpepper 2010-12-09 02:41:54 -07:00
parent a90338eddd
commit 6acf9b6e00
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/macro-debugger/syntax-browser/text.rkt
View File

@ -32,8 +32,8 @@
(define white (send the-color-database find-color "white")) (define white (send the-color-database find-color "white"))
;; A Drawing is (make-drawing number number (??? -> void) (box boolean)) ;; A Drawing is (make-drawing (??? -> void) (box boolean))
(define-struct drawing (start end draw tacked?)) (define-struct drawing (draw tacked?))
(define-struct idloc (start end id)) (define-struct idloc (start end id))
@ -101,12 +101,12 @@
(define/augment (after-delete start len) (define/augment (after-delete start len)
(for ([im (in-hash-values table)]) (for ([im (in-hash-values table)])
(interval-map-contract! im start (+ start len))) (interval-map-contract! im start (+ start len)))
(inner (void) after-delete)) (inner (void) after-delete start len))
(define/augment (after-insert start len) (define/augment (after-insert start len)
(for ([im (in-hash-values table)]) (for ([im (in-hash-values table)])
(interval-map-expand! im start (+ start len))) (interval-map-expand! im start (+ start len)))
(inner (void) after-insert)) (inner (void) after-insert start len))
(super-new))) (super-new)))
@ -153,7 +153,7 @@
(invalidate-bitmap-cache 0.0 0.0 +inf.0 +inf.0))) (invalidate-bitmap-cache 0.0 0.0 +inf.0 +inf.0)))
(define/public (add-hover-drawing start end draw [tack-box (box #f)]) (define/public (add-hover-drawing start end draw [tack-box (box #f)])
(let ([drawing (make-drawing start end draw tack-box)]) (let ([drawing (make-drawing draw tack-box)])
(interval-map-cons*! drawings-list (interval-map-cons*! drawings-list
start (add1 end) start (add1 end)
drawing drawing
@ -195,6 +195,15 @@
(else (else
(super on-local-event ev)))) (super on-local-event ev))))
;; Clear tacked-table on any modification.
;; FIXME: possible to be more precise? (but not needed for macro stepper)
(define/augment (after-delete start len)
(set! tacked-table (make-hasheq))
(inner (void) after-delete start len))
(define/augment (after-insert start len)
(set! tacked-table (make-hasheq))
(inner (void) after-insert start len))
(define/override (on-paint before? dc left top right bottom dx dy draw-caret) (define/override (on-paint before? dc left top right bottom dx dy draw-caret)
(super on-paint before? dc left top right bottom dx dy draw-caret) (super on-paint before? dc left top right bottom dx dy draw-caret)
(unless before? (unless before?