From 355e9dcafbf4b9022ffd8470a7dea79e47760aa7 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 1 Nov 2004 20:10:42 +0000 Subject: [PATCH] . original commit: b92792f3e6d182ff8b5c058aee02d96f47e4019f --- collects/mred/mred.ss | 8 ++++++-- collects/mred/private/kernel.ss | 1 + 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index 4b928b29..679a58f1 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -4837,7 +4837,8 @@ min-client-width min-client-height on-char on-event on-paint on-scroll on-tab-in warp-pointer get-dc - set-canvas-background get-canvas-background)) + set-canvas-background get-canvas-background + set-resize-corner)) (define-keywords canvas%-keywords window%-keywords @@ -4875,7 +4876,10 @@ [get-canvas-background (entry-point (lambda () - (send wx get-canvas-background)))]) + (send wx get-canvas-background)))] + + [set-resize-corner (lambda (on?) + (send wx set-resize-corner))]) (private-field [wx #f]) (sequence diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss index f8cee39d..0cb13cba 100644 --- a/collects/mred/private/kernel.ss +++ b/collects/mred/private/kernel.ss @@ -356,6 +356,7 @@ scroll warp-pointer view-start + set-resize-corner show-scrollbars set-scrollbars get-virtual-size