| … | |
… | |
| 838 | } |
838 | } |
| 839 | |
839 | |
| 840 | sub open_quit_dialog { |
840 | sub open_quit_dialog { |
| 841 | unless ($QUIT_DIALOG) { |
841 | unless ($QUIT_DIALOG) { |
| 842 | |
842 | |
| 843 | my $QUIT_DIALOG = new CFClient::UI::FancyFrame title => "Really Quit?"; |
843 | $QUIT_DIALOG = new CFClient::UI::FancyFrame title => "Really Quit?"; |
| 844 | |
844 | |
| 845 | $QUIT_DIALOG->add (my $vb = new CFClient::UI::VBox expand => 1); |
845 | $QUIT_DIALOG->add (my $vb = new CFClient::UI::VBox expand => 1); |
| 846 | |
846 | |
| 847 | $vb->add (new CFClient::UI::Label |
847 | $vb->add (new CFClient::UI::Label |
| 848 | text => "You should find a savebed and apply it first!", |
848 | text => "You should find a savebed and apply it first!", |
| … | |
… | |
| 859 | connect_activate => sub { exit 1 }, |
859 | connect_activate => sub { exit 1 }, |
| 860 | expand => 1 |
860 | expand => 1 |
| 861 | ); |
861 | ); |
| 862 | $hb->add (new CFClient::UI::Label "You should find a savebed and apply it first!"); |
862 | $hb->add (new CFClient::UI::Label "You should find a savebed and apply it first!"); |
| 863 | |
863 | |
| 864 | $QUIT_DIALOG->show; |
864 | $QUIT_DIALOG->show_centered; |
| 865 | } else { |
865 | } else { |
| 866 | $QUIT_DIALOG->show; |
866 | $QUIT_DIALOG->show_centered; |
| 867 | } |
867 | } |
| 868 | } |
868 | } |
| 869 | |
869 | |
| 870 | sub make_inventory_window { |
870 | sub make_inventory_window { |
| 871 | my $invwin = new CFClient::UI::FancyFrame |
871 | my $invwin = new CFClient::UI::FancyFrame |
| … | |
… | |
| 1532 | ); |
1532 | ); |
| 1533 | |
1533 | |
| 1534 | $entry->focus_in; |
1534 | $entry->focus_in; |
| 1535 | } |
1535 | } |
| 1536 | |
1536 | |
| 1537 | $dialog->show; |
1537 | $dialog->show_centered; |
| 1538 | } |
1538 | } |
| 1539 | |
1539 | |
| 1540 | sub conn::drawinfo { |
1540 | sub conn::drawinfo { |
| 1541 | my ($self, $color, $text) = @_; |
1541 | my ($self, $color, $text) = @_; |
| 1542 | |
1542 | |
