[ViewVC] Diff of: cvs/kgsueme/kgsueme/user.pl

Comparing kgsueme/kgsueme/user.pl (file contents):
Revision 1.4 by pcg, Mon Aug 4 00:30:10 2003 UTC vs.
Revision 1.5 by pcg, Mon Aug 4 02:14:44 2003 UTC

    my $self = shift;
    $self = $self->SUPER::new(@_);
    $self->listen($self->{conn});
-   $self->send (notify_add => name => $self->{name});
+   $self->send (notify_add => name => $self->{name})
+      unless (lc $self->{name}) eq (lc $self->{app}{name});
    $self->{window} = new Gtk2::Window 'toplevel';
-   $self->{window}->set_title("KGS User $self->{name}");
+   $self->event_name;
    gtk::state $self->{window}, "user::window", undef, window_size => [400, 300];
    $self->{window}->signal_connect(delete_event => sub { $self->destroy; 1 });
    my $notebook = new Gtk2::Notebook;
 sub join {
    my ($self) = @_;
    $self->{window}->show_all;
+}
+sub event_name {
+   my ($self) = @_;
+   $self->{window}->set_title("KGS User $self->{name}");
 }
 sub event_userinfo {
    my ($self) = @_;
 }
 sub destroy {
    my ($self) = @_;
-   $self->send (notify_del => name => $self->{name});
+   $self->send (notify_del => name => $self->{name})
+      unless (lc $self->{name}) eq (lc $self->{app}{name});
    $self->SUPER::destroy;
 }
 1;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines