<& 'container.mc', widget => $widget, element => $element &> <%once> my $widget = 'container_prof'; my $find_subelement; $find_subelement = sub { my ($element, $id) = @_; return $element if $element->get_id == $id; foreach my $container ($element->get_containers) { my $subelement = $find_subelement->($container, $id); return $subelement if $subelement; } }; <%init> my $element = get_state_data($widget, 'element'); my $container_id = $ARGS{"container_id"}; $element = $find_subelement->($element, $container_id) if $container_id; <%flags> inherit => undef