From e9f2d343ab8810ed90681f7a81ddc7bebec79d24 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 8 Apr 1999 16:01:01 +0000 Subject: [PATCH] . original commit: 3004e602ae72c90115d7a8158592a1b3fef4df6c --- src/mred/wrap/mred.ss | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss index 7fc170e0..d086c9e8 100644 --- a/src/mred/wrap/mred.ss +++ b/src/mred/wrap/mred.ss @@ -2876,8 +2876,7 @@ (check-string cwho label) (check-frame-parent/false cwho parent) (for-each (lambda (x) (check-dimension cwho x)) (list width height x y)) - (check-style cwho #f '(no-thick-border no-resize-border no-caption no-system-menu - iconize maximize mdi-parent mdi-child) + (check-style cwho #f '(no-resize-border no-caption no-system-menu mdi-parent mdi-child) style) (when (memq 'mdi-child style) (when (memq 'mdi-parent style) @@ -4553,8 +4552,8 @@ (and ok? (get-filename))))])]) sel)) -(define get-file (mk-file-selector 'get-file #f)) -(define put-file (mk-file-selector 'put-file #t)) +(define get-file (lambda x (apply (mk-file-selector 'get-file #f) x))) +(define put-file (lambda x (apply (mk-file-selector 'put-file #t) x))) (define get-color-from-user (if (not (eq? (system-type) 'unix))