User interface “打开文件”对话框中未显示文件夹图标

我试图用这些代码从对话框中打开文件

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

我得到了这个没有文件夹图标的打开文件对话框

如何更改以使对话框的外观如下图所示，其中显示文件夹图标

---

如果您只想使用

mrlib/path对话框，我认为这是不可能的

但是，下面是它的代码：。通过修改此文件，您可能可以获得所需的内容

（如果您使用Linux，可以在
/usr/share/racket/pkgs/gui-lib/mred/private/path-dialog.rkt
中找到该文件）