From 5a688b2200c0f91e36b791c375761c3158bbacda Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 3 May 2021 19:59:47 -0400
Subject: gui: Add enabled? flag to <widget>.

---
 starling/gui.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/starling/gui.scm b/starling/gui.scm
index 256cfd7..4698923 100644
--- a/starling/gui.scm
+++ b/starling/gui.scm
@@ -41,6 +41,7 @@
             current-theme
             <widget>
             apply-theme
+            enabled?
             focused?
             hover?
             left-pressed?
@@ -126,6 +127,7 @@
 (define current-theme (make-parameter #f))
 
 (define-class <widget> (<node-2d>)
+  (enabled? #:accessor enabled? #:init-value #t #:watch? #t)
   (focused? #:accessor focused? #:init-value #f #:watch? #t)
   (hover? #:accessor hover? #:init-value #f #:watch? #t)
   (left-pressed? #:accessor left-pressed? #:init-value #f #:watch? #t)
@@ -301,7 +303,8 @@
 
 (define-method (pick-widget (scene <gui-scene>) p)
   (pick scene p (lambda (node)
-                  (and (visible? node)
+                  (and (enabled? node)
+                       (visible? node)
                        (is-a? node <widget>)))))
 
 (define-method (on-mouse-move (scene <gui-scene>) x y x-rel y-rel buttons)
-- 
cgit v1.2.3