diff options
| author | David Thompson <dthompson2@worcester.edu> | 2021-05-03 20:59:52 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2021-05-03 20:59:52 -0400 |
| commit | 5fc2705ea64563e7bbdcab303e83fa97aeb9e02d (patch) | |
| tree | 53b7efa299ad2523d69f1c1648c615a08ea5dc9e | |
| parent | 7d2e2ac3ae9b394b47b87455ca106b9250165cbe (diff) | |
gui: Fix pick-widget.
| -rw-r--r-- | starling/gui.scm | 6 |
1 files 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)) |