From 5fc2705ea64563e7bbdcab303e83fa97aeb9e02d Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 3 May 2021 20:59:52 -0400
Subject: gui: Fix pick-widget.

---
 starling/gui.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/starling/gui.scm b/starling/gui.scm
index 4698923..3a93f36 100644
--- a/starling/gui.scm
+++ b/starling/gui.scm
@@ -303,9 +303,9 @@
 
 (define-method (pick-widget (scene <gui-scene>) p)
   (pick scene p (lambda (node)
-                  (and (enabled? node)
-                       (visible? node)
-                       (is-a? node <widget>)))))
+                  (and (visible? node)
+                       (is-a? node <widget>)
+                       (enabled? node)))))
 
 (define-method (on-mouse-move (scene <gui-scene>) x y x-rel y-rel buttons)
   (let ((focused (mouse-focus scene))
-- 
cgit v1.2.3