폴더 아이콘 파일 열기 대화 상자

나는이 코드를 사용하여 대화 상자에서 파일을 열려고하고

#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))))]))

등장하지 않습니다 그리고 폴더 아이콘없이 파일 열기 대화 상자를 얻을 수