… | |
… | |
223 | |
223 | |
224 | $self = $self->Glib::Object::new; |
224 | $self = $self->Glib::Object::new; |
225 | $self->{$_} = delete $arg{$_} for keys %arg; |
225 | $self->{$_} = delete $arg{$_} for keys %arg; |
226 | |
226 | |
227 | gtk::state $self, "game::window", undef, window_size => [620, 460]; |
227 | gtk::state $self, "game::window", undef, window_size => [620, 460]; |
|
|
228 | $self->set (allow_shrink => 1); |
228 | |
229 | |
229 | $self->signal_connect (destroy => sub { |
230 | $self->signal_connect (destroy => sub { |
230 | $self->unlisten; |
231 | $self->unlisten; |
231 | delete $self->{app}{game}{$self->{channel}}; |
232 | delete $self->{app}{game}{$self->{channel}}; |
232 | %{$_[0]} = (); |
233 | %{$_[0]} = (); |