フォルダのアイコンは、ファイルを開く]ダイアログボックス

私はこれらのコードを使用して、ダイアログボックスからファイルを開くしようとしています

#lang racket/gui 
(require racket/gui/base 
     framework 
     mrlib/path-dialog) 

(define top-frame (new frame% 
        [label "The Frame"] 
        [min-width 200] 
        [min-height 100] 
        [alignment (list 'center 'center)])) 
(send top-frame show #t) 

(define open (new path-dialog% 
        [existing? #t] 
        [filters (list (list "My Documents" "*.docx") 
           (list "Text Files" "*.txt"))])) 

(define open-button 
    (new button% 
     [label "Open File"] 
     [parent top-frame] 
     [callback (lambda (b e) 
        (define input-port-or-not (send open run)) 
        (when input-port-or-not 
        (message-box "open dialog" (format "Dialog box is open.") #f '(ok no-icon))))]))

に登場していないと私はフォルダアイコンなしでこのファイルを開くダイアログを取得