… | |
… | |
710 | } |
710 | } |
711 | |
711 | |
712 | sub metaserver_dialog { |
712 | sub metaserver_dialog { |
713 | my $dialog = new CFClient::UI::FancyFrame |
713 | my $dialog = new CFClient::UI::FancyFrame |
714 | title => "Server List", |
714 | title => "Server List", |
|
|
715 | name => 'metaserver_dialog', |
715 | x => 'center', |
716 | x => 'center', |
716 | y => 'center', |
717 | y => 'center', |
717 | child => (my $vbox = new CFClient::UI::VBox), |
718 | child => (my $vbox = new CFClient::UI::VBox), |
718 | on_visibility_change => sub { |
719 | on_visibility_change => sub { |
719 | update_metaserver if $_[1]; |
720 | update_metaserver if $_[1]; |
… | |
… | |
1060 | $BIND_WINDOW |
1061 | $BIND_WINDOW |
1061 | } |
1062 | } |
1062 | |
1063 | |
1063 | sub make_help_window { |
1064 | sub make_help_window { |
1064 | my $win = new CFClient::UI::FancyFrame |
1065 | my $win = new CFClient::UI::FancyFrame |
|
|
1066 | x => 'center', |
|
|
1067 | y => 'center', |
|
|
1068 | name => 'doc_browser', |
1065 | def_w => int $WIDTH * 7/8, |
1069 | force_w => int $WIDTH * 7/8, |
1066 | def_h => int $HEIGHT * 7/8, |
1070 | force_h => int $HEIGHT * 7/8, |
1067 | title => "Documentation"; |
1071 | title => "Documentation"; |
1068 | |
1072 | |
1069 | $win->add (my $vbox = new CFClient::UI::VBox); |
1073 | $win->add (my $vbox = new CFClient::UI::VBox); |
1070 | |
1074 | |
1071 | $vbox->add (my $buttons = new CFClient::UI::HBox); |
1075 | $vbox->add (my $buttons = new CFClient::UI::HBox); |
1072 | $vbox->add (my $viewer = new CFClient::UI::TextView expand => 1, fontsize => 0.8); |
1076 | $vbox->add (my $viewer = new CFClient::UI::TextView expand => 1, fontsize => 0.8); |
… | |
… | |
1153 | force_y => "max", |
1157 | force_y => "max", |
1154 | child => $STATUSBOX, |
1158 | child => $STATUSBOX, |
1155 | )->show; |
1159 | )->show; |
1156 | |
1160 | |
1157 | CFClient::UI::FancyFrame->new ( |
1161 | CFClient::UI::FancyFrame->new ( |
|
|
1162 | title => "Mini Map", |
|
|
1163 | name => "mapmap", |
1158 | x => 0, |
1164 | x => 0, |
1159 | y => $FONTSIZE + 8, |
1165 | y => $FONTSIZE + 8, |
1160 | border_bg => [1, 1, 1, 192/255], |
1166 | border_bg => [1, 1, 1, 192/255], |
1161 | bg => [1, 1, 1, 0], |
1167 | bg => [1, 1, 1, 0], |
1162 | child => ($MAPMAP = new CFClient::MapWidget::MapMap |
1168 | child => ($MAPMAP = new CFClient::MapWidget::MapMap |