… | |
… | |
36 | |
36 | |
37 | use CFClient; |
37 | use CFClient; |
38 | use CFClient::OpenGL (); |
38 | use CFClient::OpenGL (); |
39 | use CFClient::Protocol; |
39 | use CFClient::Protocol; |
40 | use CFClient::UI; |
40 | use CFClient::UI; |
|
|
41 | use CFClient::BindingEditor; |
41 | use CFClient::MapWidget; |
42 | use CFClient::MapWidget; |
42 | |
43 | |
43 | $SIG{QUIT} = sub { Carp::cluck "QUIT" }; |
44 | $SIG{QUIT} = sub { Carp::cluck "QUIT" }; |
44 | |
45 | |
45 | $Event::DIED = sub { |
46 | $Event::DIED = sub { |
… | |
… | |
946 | x => 'center', |
947 | x => 'center', |
947 | y => 'center', |
948 | y => 'center', |
948 | z => 3, |
949 | z => 3, |
949 | force_h => $::HEIGHT * 0.4, |
950 | force_h => $::HEIGHT * 0.4, |
950 | child => (my $vbox = new CFClient::UI::VBox), |
951 | child => (my $vbox = new CFClient::UI::VBox), |
|
|
952 | has_close_button => 1, |
951 | on_visibility_change => sub { |
953 | on_visibility_change => sub { |
952 | update_metaserver if $_[1]; |
954 | update_metaserver if $_[1]; |
953 | 0 |
955 | 0 |
954 | }, |
956 | }, |
955 | ; |
957 | ; |
… | |
… | |
1515 | z => 100, |
1517 | z => 100, |
1516 | force_x => "max", |
1518 | force_x => "max", |
1517 | force_y => 0; |
1519 | force_y => 0; |
1518 | $DEBUG_STATUS->show; |
1520 | $DEBUG_STATUS->show; |
1519 | |
1521 | |
1520 | $BIND_EDITOR = new CFClient::UI::BindEditor (x => "max", y => 0); |
1522 | $BIND_EDITOR = new CFClient::BindingEditor (x => "max", y => 0); |
1521 | |
1523 | |
1522 | $STATUSBOX = new CFClient::UI::Statusbox; |
1524 | $STATUSBOX = new CFClient::UI::Statusbox; |
1523 | $STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", timeout => 864000, pri => -100, color => [1, 1, 1, 0.8]); |
1525 | $STATUSBOX->add ("Use <b>Alt-Enter</b> to toggle fullscreen mode", timeout => 864000, pri => -100, color => [1, 1, 1, 0.8]); |
1524 | |
1526 | |
1525 | (new CFClient::UI::Frame |
1527 | (new CFClient::UI::Frame |