From c8b4a42666efdc9e555aa8a67481ca8a95a7b856 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 11 Jan 2005 20:55:03 +0000 Subject: [PATCH] . original commit: 250b4f6f55bab73aa3d972ea90d3fa75661fc473 --- collects/mred/mred.ss | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index 8a627c90..efdde87d 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -360,7 +360,7 @@ (let-values ([(x y) (double-boxed 0 0 (lambda (x y) (send o client-to-screen x y)))] [(w h) (double-boxed 0 0 (lambda (x y) (send o get-client-size x y)))]) (if (is-a? o wx-tab-group%) - (send o tab-group-position x y) + (send o tab-group-position x y w) (list o x y w h)))) (define (container->children f except must-focus?) @@ -1979,7 +1979,7 @@ (setup-regions))) (define/override (gets-focus?) #t) - (define/public (tab-group-position x y) + (define/public (tab-group-position x y w) (list this (+ x (get-init-x)) y (get-total-width) tab-height)) (define/public (number) (length tabs)) @@ -2155,6 +2155,10 @@ canvas-based-tab-group% (class (make-window-glue% (make-control% wx:tab-group% 0 0 #t #t)) + (inherit min-height) + (define/public (tab-group-position x y w) + (list this x y w (min-height))) + (define/override (handles-key-code code alpha? meta?) #f) (super-instantiate ())))) (define group-right-inset 4)