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

eliminate some dead code (showuld have been removed in an earlier commit)

Browse Source
This commit is contained in:
Robby Findler 2012-09-19 06:08:03 -05:00
parent f1dd6be88b
commit ae87169d7e
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/drracket/private/syncheck/gui.rkt
View File

@ -993,8 +993,6 @@ If the namespace does not, they are colored the unbound color.
;; need to check this first so syncheck:clear-arrows will work ;; need to check this first so syncheck:clear-arrows will work
[(not arrow-records) [(not arrow-records)
(values #f #f #f #f)] (values #f #f #f #f)]
[(and popup-menu (send popup-menu get-popup-target))
(values latent-pos latent-text latent-eles latent-tooltip)]
[(and x y) [(and x y)
(define-values (pos text) (get-pos/text-dc-location x y)) (define-values (pos text) (get-pos/text-dc-location x y))
(define arrow-record (and text pos (hash-ref arrow-records text #f))) (define arrow-record (and text pos (hash-ref arrow-records text #f)))
@ -1025,7 +1023,6 @@ If the namespace does not, they are colored the unbound color.
(invalidate-bitmap-cache)) (invalidate-bitmap-cache))
(define popup-menu #f)
(define mouse-admin #f) ; editor admin for the last mouse move (define mouse-admin #f) ; editor admin for the last mouse move
(define mouse-x #f) ; last known mouse position (define mouse-x #f) ; last known mouse position
(define mouse-y #f) (define mouse-y #f)