From 81d51e68159e3fc7355f3b792f67723c5cd93523 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 5 Dec 2002 23:20:11 +0000 Subject: [PATCH] . original commit: d59be613b8406fc17c1e3ded0aa5372d206171ff --- collects/mred/mred-sig.ss | 1 + collects/mred/mred.ss | 11 ++++++++--- collects/mred/private/kernel.ss | 1 + 3 files changed, 10 insertions(+), 3 deletions(-) diff --git a/collects/mred/mred-sig.ss b/collects/mred/mred-sig.ss index 8456ad05..4bed0132 100644 --- a/collects/mred/mred-sig.ss +++ b/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% diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index e3f9288b..b50256b0 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -1990,8 +1990,7 @@ (set-min-height (inexact->exact (ceiling (+ tab-height 9 raise-h)))))) (define wx-tab-group% - (if -(eq? 'unix (system-type)) + (if (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 diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss index 1a858cf1..a0a6574f 100644 --- a/collects/mred/private/kernel.ss +++ b/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?)