… | |
… | |
32 | $self->listen ($self->{conn}, qw(login userpic idle_warn msg_chat chal_defaults)); |
32 | $self->listen ($self->{conn}, qw(login userpic idle_warn msg_chat chal_defaults)); |
33 | |
33 | |
34 | $self->{roomlist} = new roomlist conn => $self->{conn}, app => $self; |
34 | $self->{roomlist} = new roomlist conn => $self->{conn}, app => $self; |
35 | |
35 | |
36 | $self->set_title ('kgsueme'); |
36 | $self->set_title ('kgsueme'); |
37 | gtk::state $self, "main::window", undef, window_size => [400, 500]; |
37 | gtk::state $self, "main::window", undef, window_size => [400, 580]; |
38 | $self->signal_connect (destroy => sub { %{$_[0]} = () }); |
38 | $self->signal_connect (destroy => sub { %{$_[0]} = () }); |
39 | $self->signal_connect (delete_event => sub { main_quit Gtk2; 1 }); |
39 | $self->signal_connect (delete_event => sub { main_quit Gtk2; 1 }); |
40 | |
40 | |
41 | $self->add (my $vbox = new Gtk2::VBox); |
41 | $self->add (my $vbox = new Gtk2::VBox); |
42 | |
42 | |
… | |
… | |
65 | $self->{password}->set (visibility => 0, is_focus => 1); |
65 | $self->{password}->set (visibility => 0, is_focus => 1); |
66 | $self->{password}->signal_connect (activate => sub { $self->login }); |
66 | $self->{password}->signal_connect (activate => sub { $self->login }); |
67 | |
67 | |
68 | $vbox->pack_start ((my $vpane = new Gtk2::VPaned), 1, 1, 0); |
68 | $vbox->pack_start ((my $vpane = new Gtk2::VPaned), 1, 1, 0); |
69 | $vpane->set (position_set => 1); |
69 | $vpane->set (position_set => 1); |
70 | gtk::state $vpane, "main::vpane", undef, position => 250; |
70 | gtk::state $vpane, "main::vpane", undef, position => 400; |
71 | |
71 | |
72 | $vbox->pack_start(($self->{status} = new Gtk2::Statusbar), 0, 1, 0); |
72 | $vbox->pack_start(($self->{status} = new Gtk2::Statusbar), 0, 1, 0); |
73 | |
73 | |
74 | $self->{gamelist} = new gamelist conn => $self->{conn}, app => $self; |
74 | $self->{gamelist} = new gamelist conn => $self->{conn}, app => $self; |
75 | $vpane->pack1 ($self->{gamelist}, 1, 1); |
75 | $vpane->pack1 ($self->{gamelist}, 1, 1); |