From c1bda99fbf5c1a7026454b756dcce0d5afc5eb02 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 7 Jul 1999 19:33:31 +0000 Subject: [PATCH] . original commit: 62454db9603df14663c32d483ceee1766af410bf --- src/mred/wrap/mred.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss index 8f7bc0f9..d1708a9b 100644 --- a/src/mred/wrap/mred.ss +++ b/src/mred/wrap/mred.ss @@ -2938,7 +2938,9 @@ [has-status-line? (lambda () status-line?)] [iconize (entry-point-1 (lambda (on?) (send wx iconize on?)))] [is-iconized? (entry-point (lambda () (send wx iconized?)))] - [set-icon (entry-point-1 (lambda (i) (send wx set-icon i)))] + [set-icon (entry-point-1-2 (case-lambda + [(i) (send wx set-icon i)] + [(i b) (send wx set-icon i b)]))] [maximize (entry-point-1 (lambda (on?) (send wx maximize on?)))] [get-menu-bar (entry-point (lambda () (let ([mb (ivar wx menu-bar)]) (and mb (wx->mred mb)))))])