… | |
… | |
25 | |
25 | |
26 | $self = $self->Glib::Object::new; |
26 | $self = $self->Glib::Object::new; |
27 | $self->{$_} = delete $arg{$_} for keys %arg; |
27 | $self->{$_} = delete $arg{$_} for keys %arg; |
28 | gtk::state $self, "main::window", undef, window_size => [700, 580]; |
28 | gtk::state $self, "main::window", undef, window_size => [700, 580]; |
29 | |
29 | |
30 | # $self->set (allow_shrink => 1); |
30 | $self->set (allow_shrink => 1); |
31 | |
31 | |
32 | Scalar::Util::weaken ($::self = $self); # singleton... |
32 | Scalar::Util::weaken ($::self = $self); # singleton... |
33 | |
33 | |
34 | $self->{protocol} = new KGS::Protocol::Client; |
34 | $self->{protocol} = new KGS::Protocol::Client; |
35 | |
35 | |