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

Comparing kgsueme/kgsueme/app.pl (file contents):
Revision 1.22 by root, Wed Jun 2 04:39:07 2004 UTC vs.
Revision 1.23 by root, Wed Jun 2 06:45:29 2004 UTC

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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines