From 51134b4b832294d36a65058a1983d4ae4c5b36ef Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 4 Dec 2002 21:34:57 +0000 Subject: [PATCH] . original commit: 9656fc0335a9b5c2da568fceae094f7c711abf5b --- collects/mred/mred.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index 4f0345a8..d543f467 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -1728,7 +1728,7 @@ (define canvas-based-tab-group% (class wx-canvas% - (init mred proxy parent call-back label tab-labels) + (init mred proxy style parent call-back label tab-labels style-again) (define callback call-back) @@ -1983,7 +1983,7 @@ (define/override (handles-key-code code alpha? meta?) #f) - (super-instantiate (mred proxy parent)) + (super-instantiate (mred proxy parent -1 -1 -1 -1 null)) (compute-sizes) (set-min-width (inexact->exact (ceiling (get-total-width)))) @@ -4803,7 +4803,7 @@ (check-callback cwho callback) (check-container-parent cwho parent) (check-style cwho #f '(inactive) style)) - (super-init parent null)) + (super-init parent style)) (private-field [tabs (make-object tab-group% #f choices this (lambda (c e) (callback this e)))])