Reset the mouse cursor when it's over the close button.

froggey · Apr 9, 2017 · 01af402 · 01af402
1 parent 7659c92
commit 01af402
Showing 1 changed file with 2 additions and 0 deletions.
diff --git 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)