+(define-method (add-file-open-dialog! (gui-environment <gui-environment>) . rest)
+ (let-keywords rest #f
+ ((title "")
+ (modal #t)
+ (parent (make <gui-element>))
+ (id -1)
+ (restore-cwd #f)
+ (start-dir ""))
+ (let* ((addFileOpenDialog (get-irrlicht-proc "addFileOpenDialog" gui-environment parent))
+ (dialog (addFileOpenDialog gui-environment title modal parent id restore-cwd start-dir)))
+ (mem-wrapped dialog))))
+