Method: (TEMPLATE-COMPONENT-ENVIRONMENT NCONC TABBED-PANE)

Source

(defmethod template-component-environment nconc ((tabbed-pane tabbed-pane))
  (make-standard-environment
   (list
    (cons 'panes
          (iterate
            (with current = (container.current-component tabbed-pane))
            (for (label . component) in (container.contents tabbed-pane))
            (collect (tal-env 'pane-label label
                              'pane-component component
                              'selected (eql current component)))))
    (cons 'selected-component (container.current-component tabbed-pane)))))