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

adjust the filename filter for the insert-images menu item

Browse Source 
closes PR 12963

original commit: 9b39fc37f8559ab2e1f760af754f1b15620e0542
This commit is contained in:
Robby Findler 2012-08-02 06:44:11 -05:00
parent 4fa52a1a4b
commit 6b3b6b77f8
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/framework/private/frame.rkt
View File

@ -106,11 +106,20 @@
[callback (λ (x y) (insert-comment-box))] [callback (λ (x y) (insert-comment-box))]
[demand-callback on-demand])]) [demand-callback on-demand])])
(func item)) (func item))
(define plain-insert-callback (edit-menu:do 'insert-image))
(define lowercase-imgs "*.png;*.jpg;*.jpeg;*.gif;*.xpm;*.bmp")
(define imgs (string-append
lowercase-imgs ";"
(string-upcase lowercase-imgs)))
(let ([item (let ([item
(new c% (new c%
[label (string-constant insert-image-item)] [label (string-constant insert-image-item)]
[parent edit-menu] [parent edit-menu]
[callback (edit-menu:do 'insert-image)] [callback (λ (menu evt)
(parameterize ([finder:default-filters
`(["Image" ,imgs]
["Any" "*.*"])])
(plain-insert-callback menu evt)))]
[demand-callback on-demand])]) [demand-callback on-demand])])
(func item)) (func item))
(void)))) (void))))