ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/bin/cfplus
(Generate patch)

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents):
Revision 1.40 by root, Fri Jun 2 02:12:04 2006 UTC vs.
Revision 1.42 by root, Fri Jun 2 06:22:55 2006 UTC

710} 710}
711 711
712sub metaserver_dialog { 712sub 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
1063sub make_help_window { 1064sub 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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines