void tscroll_label::set_label(const t_string& label)
{
    // Inherit.
    tcontrol::set_label(label);

    if(content_grid()) {
        tlabel* widget
                = find_widget<tlabel>(content_grid(), "_label", false, true);
        widget->set_label(label);

        tpoint best_size = content_grid()->recalculate_best_size();

        if(content_visible_area().h < best_size.y) {
            content_resize_request(0, (best_size.y - content_visible_area().h));
        } else {
            content_resize_request(0, -(best_size.y - content_visible_area().h));
        }
    }
}