From 5bd49e5c91de767fce943655923117d12f7476cb Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 4 Dec 2002 21:59:28 +0000 Subject: [PATCH] . original commit: 33dff46abd85d1d8048ff0e827237bf9ec35ed4b --- collects/mred/mred.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index d543f467..1319295c 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -1983,14 +1983,15 @@ (define/override (handles-key-code code alpha? meta?) #f) - (super-instantiate (mred proxy parent -1 -1 -1 -1 null)) + (super-instantiate (mred proxy parent -1 -1 1 1 null)) (compute-sizes) (set-min-width (inexact->exact (ceiling (get-total-width)))) (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))))