From 9000a1472fda89b4e1f1d4aed6a61087c1711d17 Mon Sep 17 00:00:00 2001 From: Bill Robinson Date: Sat, 28 May 2011 15:50:57 +0100 Subject: [PATCH] bug fixes for the tabbing support --- src/cowl-container.lisp | 2 +- src/cowl.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/cowl-container.lisp b/src/cowl-container.lisp index f940556..06530ff 100644 --- a/src/cowl-container.lisp +++ b/src/cowl-container.lisp @@ -283,7 +283,7 @@ Depth-first search" (let (found) (contents-iterate-forwards (contents-of parent) w (if found - (when (and w (setf w (find-focusable w))) + (when (and w (setf w (find-first-focusable w))) (return-from next-widget w)) ;;Found our own widget in the container, from now on, search for something focusable (when (eql w widget) diff --git a/src/cowl.lisp b/src/cowl.lisp index 7d0def1..0d3a6d4 100644 --- a/src/cowl.lisp +++ b/src/cowl.lisp @@ -154,7 +154,7 @@ Action should either be T for a press or NIL for a release." (setf w (find-first-focusable *root-widget*)))))) (when w (focus w))))) - (:otherwise + (otherwise (when *focused-widget* (handle-key *focused-widget* key press))))))) -- 2.11.4.GIT