sub scene_in_session {
    my ($self) = @_;
    $self->{debug}->prt(9, "DISPWINDOW SCENE In Session ", 'DISPWINDOW SCENE');
    $self->{image}->set_from_file("$self->{display}->{root}$self->{display}->{in_session}");
}