| … | |
… | |
| 19 | $::self->{status}->pop ($context_id{$type}) if $context_id{$type}; |
19 | $::self->{status}->pop ($context_id{$type}) if $context_id{$type}; |
| 20 | $::self->{status}->push ($context_id{$type} ||= $::self->{status}->get_context_id ($type), $text) if $text; |
20 | $::self->{status}->push ($context_id{$type} ||= $::self->{status}->get_context_id ($type), $text) if $text; |
| 21 | } |
21 | } |
| 22 | |
22 | |
| 23 | sub new { |
23 | sub new { |
| 24 | my $self = shift; |
24 | my ($self, %arg) = @_; |
| 25 | $self = $self->Glib::Object::new; |
25 | $self = $self->Glib::Object::new; |
|
|
26 | $self->{$_} = delete $arg{$_} for keys %arg; |
| 26 | |
27 | |
| 27 | Scalar::Util::weaken ($::self = $self); # singleton... |
28 | Scalar::Util::weaken ($::self = $self); # singleton... |
| 28 | |
29 | |
| 29 | $self->{conn} = new KGS::Protocol::Client; |
30 | $self->{conn} = new KGS::Protocol::Client; |
| 30 | |
31 | |
