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

closes PR 11207

Browse Source 
original commit: 5b54caebb066920e2585244a5ee444a3f121c966
This commit is contained in:
Robby Findler 2010-09-13 16:40:21 -05:00
parent b808f9045d
commit a717919298
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)