+
+sub leave_fullscreen {
+ my ($widget, $self) = @_;
+
+ return if !$self->{fullscreen};
+
+ $self->get_object('menubar1')->show;
+ $self->get_object('statusbar1')->show;
+ $self->get_object('slotcarman')->unfullscreen;
+
+ $self->{fullscreen} = undef;;
+ my $h = $self->get_object('image_car1')->allocation->height;
+ my $h1 = $self->get_object('slotcarman')->allocation->height;
+ print "h=$h, h1=$h1\n";
+}
+