From 6b3b6b77f875df2463b6eb6ca2ac4092b66cefbf Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 2 Aug 2012 06:44:11 -0500 Subject: [PATCH] adjust the filename filter for the insert-images menu item closes PR 12963 original commit: 9b39fc37f8559ab2e1f760af754f1b15620e0542 --- collects/framework/private/frame.rkt | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/frame.rkt b/collects/framework/private/frame.rkt index aa8cf8bd..758a9b7d 100644 --- a/collects/framework/private/frame.rkt +++ b/collects/framework/private/frame.rkt @@ -106,11 +106,20 @@ [callback (λ (x y) (insert-comment-box))] [demand-callback on-demand])]) (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 (new c% [label (string-constant insert-image-item)] [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])]) (func item)) (void))))