sub scene_startup {
    my ($self) = @_;
    $self->{debug}->prt(9, "DISPWINDOW SCENE Startup ", 'DISPWINDOW SCENE');
    $self->{image}->set_from_file("$self->{display}->{root}$self->{display}->{startup}");
}