… | |
… | |
47 | }; |
47 | }; |
48 | |
48 | |
49 | $button->("Login", sub { $self->login; }); |
49 | $button->("Login", sub { $self->login; }); |
50 | $button->("Roomlist", sub { $self->{roomlist}->show; }); |
50 | $button->("Roomlist", sub { $self->{roomlist}->show; }); |
51 | $button->("Save Config & Layout", \&util::save_config); |
51 | $button->("Save Config & Layout", \&util::save_config); |
|
|
52 | $button->("Logout", sub { $self->{conn}->send ("quit") if $self->{conn} }); |
52 | $button->("Quit", sub { main_quit Gtk2 }); |
53 | $button->("Quit", sub { main_quit Gtk2 }); |
53 | |
54 | |
54 | $vbox->pack_start ((my $hbox = new Gtk2::HBox), 0, 1, 0); |
55 | $vbox->pack_start ((my $hbox = new Gtk2::HBox), 0, 1, 0); |
55 | |
56 | |
56 | $hbox->add (new Gtk2::Label "Login"); |
57 | $hbox->add (new Gtk2::Label "Login"); |