From 01af402aaad30c2763564ba1b9a83ec87c78fd21 Mon Sep 17 00:00:00 2001
From: Henry Harrington <henry.harrington@gmail.com>
Date: Sun, 9 Apr 2017 08:21:43 +0100
Subject: [PATCH] Reset the mouse cursor when it's over the close button.

---
 gui/widgets.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/gui/widgets.lisp b/gui/widgets.lisp
index c970e73cc..504e3de56 100644
--- a/gui/widgets.lisp
+++ b/gui/widgets.lisp
@@ -296,6 +296,8 @@
   (cond ((in-frame-close-button frame
                                 (mouse-x-position event)
                                 (mouse-y-position event))
+         (when (resizablep frame)
+           (funcall (set-cursor-function frame) :default))
          (when (not (close-button-hover frame))
            (setf (close-button-hover frame) t)
            (draw-frame frame)