From 61f691b25725359841921023dc7b9b7c7d960d7d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 10 Jun 2002 22:27:55 +0000 Subject: [PATCH] . original commit: c93306028083b9e583ff3dfe8a2c4fb2b9f54c85 --- collects/framework/private/panel.ss | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/collects/framework/private/panel.ss b/collects/framework/private/panel.ss index 5066875b..27dab358 100644 --- a/collects/framework/private/panel.ss +++ b/collects/framework/private/panel.ss @@ -295,8 +295,9 @@ cursor-gaps)]) (set-cursor (and (or gap resizing-dim) - (send (icon:get-up/down-cursor) ok?) - (get-gap-cursor))) + (let ([c (get-gap-cursor)]) + (and (send c ok?) + c)))) (cond [(and gap (send evt button-down? 'left)) (set! resizing-dim (event-get-dim evt)) @@ -322,7 +323,9 @@ (set! resizing-dim (event-get-dim evt)) (container-flow-modified))))] [else (super-on-subwindow-event receiver evt)])) - (super-on-subwindow-event receiver evt))) + (begin + (set-cursor #f) + (super-on-subwindow-event receiver evt)))) (define cursor-gaps null)