| … | |
… | |
| 395 | status "logging in..."; |
395 | status "logging in..."; |
| 396 | |
396 | |
| 397 | $LOGIN_BUTTON->set_text ("Logout"); |
397 | $LOGIN_BUTTON->set_text ("Logout"); |
| 398 | $SETUP_DIALOG->hide; |
398 | $SETUP_DIALOG->hide; |
| 399 | |
399 | |
| 400 | my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / ::T; |
400 | my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32; |
| 401 | |
401 | |
| 402 | my ($host, $port) = split /:/, $PROFILE->{host}; |
402 | my ($host, $port) = split /:/, $PROFILE->{host}; |
| 403 | |
403 | |
| 404 | $MAP = new CFPlus::Map; |
404 | $MAP = new CFPlus::Map; |
| 405 | |
405 | |
