From 5f64485b4f0c9972a20cb07b7bce5c0cd7670895 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 2 Mar 2003 14:30:50 +0000 Subject: [PATCH] . original commit: 7f6ee49c943843e57fdfd192cdb98ce13f2649b0 --- collects/mred/mred.ss | 10 ++++++++-- collects/mred/private/kernel.ss | 1 + 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index 3fad277f..41fd8739 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -1821,7 +1821,8 @@ (inherit get-dc get-client-size get-mred set-min-width set-min-height - set-tab-focus) + set-tab-focus + set-background-to-gray) (rename [super-on-size on-size]) (define selected 0) @@ -2069,6 +2070,8 @@ (super-instantiate (mred proxy parent -1 -1 -1 -1 null)) + (set-background-to-gray) + (compute-sizes) (set-min-width (inexact->exact (ceiling (get-total-width)))) (set-min-height (inexact->exact (ceiling (+ tab-height 9 raise-h)))))) @@ -2089,7 +2092,8 @@ (inherit get-dc get-client-size get-mred set-min-width set-min-height - set-tab-focus) + set-tab-focus + set-background-to-gray) (rename [super-on-size on-size]) (define lbl label) @@ -2146,6 +2150,8 @@ (super-instantiate (mred proxy parent -1 -1 -1 -1 null)) + (set-background-to-gray) + (compute-sizes) (set-min-width (inexact->exact (ceiling (+ lbl-w group-right-inset 4)))) (set-min-height (inexact->exact (ceiling (+ lbl-h 6)))))) diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss index b3cae1b9..9d4bfc1e 100644 --- a/collects/mred/private/kernel.ss +++ b/collects/mred/private/kernel.ss @@ -335,6 +335,7 @@ on-size on-set-focus on-kill-focus + set-background-to-gray this-context-current swap-buffers on-scroll