sub UpdatePanels {
    my $self = shift;

    my $net = $self->network;
    my @sensors = $net->sensors;

    my @display_objects = ( @{$self->display_objects} );

    foreach my $display ( @display_objects ) {
        eval {
            $display->UpdatePanel( $self->session_state, @sensors );
        };
        warn $@ if $@;
    }

} # END UpdatePanels