.

original commit: d59be613b8406fc17c1e3ded0aa5372d206171ff

collects/mred/mred-sig.ss

@@ -63,6 +63,7 @@
      event-dispatch-handler
      eventspace-shutdown?
      eventspace?
+     file-creator-and-type
      find-graphical-system-path
      flush-display
      font%

collects/mred/mred.ss

@@ -1990,8 +1990,7 @@
     (set-min-height (inexact->exact (ceiling (+ tab-height 9 raise-h))))))
 
 (define wx-tab-group% 
-  (if 
+  (if (eq? 'unix (system-type))
-(eq? 'unix (system-type))
       canvas-based-tab-group%
       (make-window-glue%
        (make-control% wx:tab-group% 0 0 #t #t))))
@@ -7279,6 +7278,11 @@
 (define the-style-list (wx:get-the-style-list))
 (define the-editor-wordbreak-map (wx:get-the-editor-wordbreak-map))
 
+(define file-creator-and-type
+  (case-lambda
+   [(fn) (wx:file-creator-and-type fn)]
+   [(fn c t) (wx:file-creator-and-type fn c t)]))
+
 (provide button%
 	canvas%
 	check-box%
@@ -7368,7 +7372,8 @@
 	application-about-handler
 	application-preferences-handler
 	current-eventspace-has-standard-menus?
-	make-namespace-with-mred)
+	make-namespace-with-mred
+	file-creator-and-type)
 
 
 ) ;; end of module

collects/mred/private/kernel.ss

@@ -1432,6 +1432,7 @@
     set-executer
     current-gl-context
     send-event
+    file-creator-and-type
     set-snip-class-getter
     set-editor-data-class-getter
     main-eventspace?)