ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/kgsueme/kgsueme/roomlist.pl
(Generate patch)

Comparing kgsueme/kgsueme/roomlist.pl (file contents):
Revision 1.10 by root, Wed Jun 2 04:39:07 2004 UTC vs.
Revision 1.11 by root, Wed Jun 2 04:54:48 2004 UTC

… …
6 6
7use Glib::Object::Subclass 7use Glib::Object::Subclass
8 Gtk2::Window; 8 Gtk2::Window;
9 9
10sub new { 10sub new {
11 my $self = shift; 11 my ($self, %arg) = @_;
12
12 $self = $self->Glib::Object::new; 13 $self = $self->Glib::Object::new;
14 $self->{$_} = delete $arg{$_} for keys %arg;
13 gtk::state $self, "roomlist::window", undef, window_size => [400, 300]; 15 gtk::state $self, "roomlist::window", undef, window_size => [400, 300];
14 16
15 $self->listen ($self->{conn}); 17 $self->listen ($self->{conn});
16 18
17 $self->set_title('KGS Rooms'); 19 $self->set_title('KGS Rooms');

Diff Legend

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