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

closes PR 11207

Browse Source
This commit is contained in:
Robby Findler 2010-09-13 16:40:21 -05:00
parent 76f55ad753
commit 5b54caebb0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/private/scheme.rkt
View File

@ -204,7 +204,8 @@
(let ([up-sexp (send text find-up-sexp click-pos)])
(when up-sexp
(let ([fwd (send text get-forward-sexp up-sexp)])
(make-collapse-item text up-sexp fwd menu))))]))))
(when fwd
(make-collapse-item text up-sexp fwd menu)))))]))))
;; make-expand-item : (instanceof text%) (instanceof sexp-snip<%>) (instanceof menu%) -> void
(define (make-expand-item text snip menu)