;; Find widget in one of three places in order
(defun find-widget (name)
  (or [%widget-hash% name]
      (lookup-local-widget name)
      (lookup-global-widget name)))