… | |
… | |
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); |