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

get-filename might return #f; check for that properly

Browse Source
This commit is contained in:
Robby Findler 2014-04-24 07:01:26 -05:00
parent 7a435b154c
commit 846342db9f
1 changed files with 24 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
pkgs/drracket-pkgs/drracket/drracket/private/module-browser.rkt
View File

@ -647,8 +647,9 @@
(let loop ([snip (send pasteboard find-first-snip)])
(when snip
(when (is-a? snip boxed-word-snip<%>)
(define fn (send snip get-filename))
(define found?
(and reg (regexp-match reg (path->string (send snip get-filename)))))
(and reg fn (regexp-match reg (path->string fn))))
(when (or (not reg) found?)
(for ([phase (in-list (send snip get-require-phases))])
(set! phases (set-add phases phase)))
@ -1098,28 +1099,28 @@
(is-a? snip boxed-word-snip<%>)
canvas
(send snip get-filename))
(instantiate menu-item% ()
(label
(trim-string
(format open-file-format
(path->string (send snip get-filename)))
200))
(parent right-button-menu)
(callback
(λ (x y)
(handler:edit-file
(send snip get-filename))))))
(instantiate menu-item% ()
(label (string-constant module-browser-open-all))
(parent right-button-menu)
(callback
(λ (x y)
(let loop ([snip (find-first-snip)])
(when snip
(when (is-a? snip boxed-word-snip<%>)
(let ([filename (send snip get-filename)])
(handler:edit-file filename)))
(loop (send snip next)))))))
(new menu-item%
[label
(trim-string
(format open-file-format
(path->string (send snip get-filename)))
200)]
[parent right-button-menu]
[callback
(λ (x y)
(handler:edit-file
(send snip get-filename)))]))
(new menu-item%
[label (string-constant module-browser-open-all)]
[parent right-button-menu]
[callback
(λ (x y)
(let loop ([snip (find-first-snip)])
(when snip
(when (is-a? snip boxed-word-snip<%>)
(let ([filename (send snip get-filename)])
(handler:edit-file filename)))
(loop (send snip next)))))])
(send canvas popup-menu
right-button-menu
(+ (send evt get-x) 1)