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.113 by root, Sun Aug 13 21:46:10 2006 UTC vs.
Revision 1.114 by root, Mon Aug 14 01:21:02 2006 UTC

… …
155 155
156# server query dialog 156# server query dialog
157sub server_query { 157sub server_query {
158 my ($conn, $flags, $prompt) = @_; 158 my ($conn, $flags, $prompt) = @_;
159 159
160 $conn->{query_dialog} = my $dialog = new CFPlus::UI::FancyFrame 160 $conn->{query_dialog} = my $dialog = new CFPlus::UI::Toplevel
161 x => "center", 161 x => "center",
162 y => "center", 162 y => "center",
163 title => "Server Query", 163 title => "Server Query",
164 child => my $vbox = new CFPlus::UI::VBox, 164 child => my $vbox = new CFPlus::UI::VBox,
165 ; 165 ;
… …
663 expand => 1, 663 expand => 1,
664 scroll_y => 1 664 scroll_y => 1
665 ); 665 );
666 $r->add (my $vb = new CFPlus::UI::VBox); 666 $r->add (my $vb = new CFPlus::UI::VBox);
667 667
668 $vb->add (new CFPlus::UI::FancyFrame
669 label => "Player",
670 child => (my $pi = new CFPlus::UI::VBox),
671 );
672
668 $vb->add ($STATWIDS->{title} = new CFPlus::UI::Label valign => 0, align => -1, text => "Title:", expand => 1, 673 $pi->add ($STATWIDS->{title} = new CFPlus::UI::Label valign => 0, align => -1, text => "Title:", expand => 1,
669 can_hover => 1, can_events => 1, 674 can_hover => 1, can_events => 1,
670 tooltip => "Your name and title. You can change your title by using the <b>title</b> command, if supported by the server."); 675 tooltip => "Your name and title. You can change your title by using the <b>title</b> command, if supported by the server.");
671 $vb->add ($STATWIDS->{map} = new CFPlus::UI::Label valign => 0, align => -1, text => "Map:", expand => 1, 676 $pi->add ($STATWIDS->{map} = new CFPlus::UI::Label valign => 0, align => -1, text => "Map:", expand => 1,
672 can_hover => 1, can_events => 1, 677 can_hover => 1, can_events => 1,
673 tooltip => "The map you are currently on (if supported by the server)."); 678 tooltip => "The map you are currently on (if supported by the server).");
674 679
675 $vb->add (my $hb0 = new CFPlus::UI::HBox); 680 $pi->add (my $hb0 = new CFPlus::UI::HBox);
676 $hb0->add ($STATWIDS->{weight} = new CFPlus::UI::Label valign => 0, align => -1, text => "Weight:", expand => 1, 681 $hb0->add ($STATWIDS->{weight} = new CFPlus::UI::Label valign => 0, align => -1, text => "Weight:", expand => 1,
677 can_hover => 1, can_events => 1, 682 can_hover => 1, can_events => 1,
678 tooltip => "The weight of the player including all inventory items."); 683 tooltip => "The weight of the player including all inventory items.");
679 $hb0->add ($STATWIDS->{m_weight} = new CFPlus::UI::Label valign => 0, align => -1, text => "Max weight:", expand => 1, 684 $hb0->add ($STATWIDS->{m_weight} = new CFPlus::UI::Label valign => 0, align => -1, text => "Max weight:", expand => 1,
680 can_hover => 1, can_events => 1, 685 can_hover => 1, can_events => 1,
681 tooltip => "The weight limit: you cannot carry more than this."); 686 tooltip => "The weight limit: you cannot carry more than this.");
682 687
688 $vb->add (new CFPlus::UI::FancyFrame
689 label => "Primary/Secondary Statistics",
683 $vb->add (my $hb = new CFPlus::UI::HBox expand => 1); 690 child => (my $hb = new CFPlus::UI::HBox expand => 1),
691 );
684 $hb->add (my $tbl = new CFPlus::UI::Table expand => 1); 692 $hb->add (my $tbl = new CFPlus::UI::Table expand => 1);
685 693
686 my $color2 = [1, 1, 0]; 694 my $color2 = [1, 1, 0];
687 695
688 for ( 696 for (
… …
709 $tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFPlus::UI::Label 717 $tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFPlus::UI::Label
710 font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0, 718 font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0,
711 align => -1, text => $label, tooltip => "#stat_$label"); 719 align => -1, text => $label, tooltip => "#stat_$label");
712 } 720 }
713 721
722 $vb->add (new CFPlus::UI::FancyFrame
723 label => "Resistancies",
714 $vb->add (my $tbl2 = new CFPlus::UI::Table expand => 1); 724 child => (my $tbl2 = new CFPlus::UI::Table expand => 1),
725 );
715 726
716 my $row = 0; 727 my $row = 0;
717 my $col = 0; 728 my $col = 0;
718 729
719 my %resist_names = ( 730 my %resist_names = (
… …
913sub metaserver_dialog { 924sub metaserver_dialog {
914 my $vbox = new CFPlus::UI::VBox; 925 my $vbox = new CFPlus::UI::VBox;
915 my $table = new CFPlus::UI::Table; 926 my $table = new CFPlus::UI::Table;
916 $vbox->add (new CFPlus::UI::ScrolledWindow expand => 1, child => $table); 927 $vbox->add (new CFPlus::UI::ScrolledWindow expand => 1, child => $table);
917 928
918 my $dialog = new CFPlus::UI::FancyFrame 929 my $dialog = new CFPlus::UI::Toplevel
919 title => "Server List", 930 title => "Server List",
920 name => 'metaserver_dialog', 931 name => 'metaserver_dialog',
921 x => 'center', 932 x => 'center',
922 y => 'center', 933 y => 'center',
923 z => 3, 934 z => 3,
… …
935} 946}
936 947
937sub server_setup { 948sub server_setup {
938 my $vbox = new CFPlus::UI::VBox; 949 my $vbox = new CFPlus::UI::VBox;
939 950
951 $vbox->add (new CFPlus::UI::FancyFrame
952 label => "Connection Settings",
940 $vbox->add (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]); 953 child => (my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]),
954 );
941 $table->add (0, 2, new CFPlus::UI::Label valign => 0, align => 1, text => "Host:Port"); 955 $table->add (0, 2, new CFPlus::UI::Label valign => 0, align => 1, text => "Host:Port");
942 956
943 { 957 {
944 $table->add (1, 2, my $vbox = new CFPlus::UI::VBox); 958 $table->add (1, 2, my $vbox = new CFPlus::UI::VBox);
945 959
… …
1040 $CFG->{say_command} = $value; 1054 $CFG->{say_command} = $value;
1041 0 1055 0
1042 } 1056 }
1043 ); 1057 );
1044 1058
1045 $vbox->add (new CFPlus::UI::Label 1059 $vbox->add (new CFPlus::UI::FancyFrame
1046 text => "Server Info", 1060 label => "Server Info",
1047 fontsize => 1.2,
1048 padding_y => 8,
1049 fg => [1, 1, 0, 1],
1050 );
1051
1052 $vbox->add ($SERVER_INFO = new CFPlus::UI::Label ellipsise => 0); 1061 child => ($SERVER_INFO = new CFPlus::UI::Label ellipsise => 0),
1062 );
1053 1063
1054 $vbox 1064 $vbox
1055} 1065}
1056 1066
1057sub message_window { 1067sub message_window {
1058 my $window = new CFPlus::UI::FancyFrame 1068 my $window = new CFPlus::UI::Toplevel
1059 name => "message_window", 1069 name => "message_window",
1060 title => "Messages", 1070 title => "Messages",
1061 border_bg => [1, 1, 1, 1], 1071 border_bg => [1, 1, 1, 1],
1062 x => "max", 1072 x => "max",
1063 y => 0, 1073 y => 0,
… …
1117 $window 1127 $window
1118} 1128}
1119 1129
1120sub open_string_query { 1130sub open_string_query {
1121 my $cb = $_[1]; 1131 my $cb = $_[1];
1122 my $dialog = new CFPlus::UI::FancyFrame 1132 my $dialog = new CFPlus::UI::Toplevel
1123 x => "center", 1133 x => "center",
1124 y => "center", 1134 y => "center",
1125 z => 50, 1135 z => 50,
1126 force_w => $WIDTH * 4/5, 1136 force_w => $WIDTH * 4/5,
1127 title => $_[0]; 1137 title => $_[0];
… …
1136 $dialog->show; 1146 $dialog->show;
1137} 1147}
1138 1148
1139sub open_quit_dialog { 1149sub open_quit_dialog {
1140 unless ($QUIT_DIALOG) { 1150 unless ($QUIT_DIALOG) {
1141 $QUIT_DIALOG = new CFPlus::UI::FancyFrame 1151 $QUIT_DIALOG = new CFPlus::UI::Toplevel
1142 x => "center", 1152 x => "center",
1143 y => "center", 1153 y => "center",
1144 z => 50, 1154 z => 50,
1145 title => "Really Quit?", 1155 title => "Really Quit?",
1146 on_key_down => sub { 1156 on_key_down => sub {
… …
1335 $PL_WINDOW->show; 1345 $PL_WINDOW->show;
1336 } 1346 }
1337} 1347}
1338 1348
1339sub player_window { 1349sub player_window {
1340 my $plwin = $PL_WINDOW = new CFPlus::UI::FancyFrame 1350 my $plwin = $PL_WINDOW = new CFPlus::UI::Toplevel
1341 x => "center", 1351 x => "center",
1342 y => "center", 1352 y => "center",
1343 force_w => $WIDTH * 9/10, 1353 force_w => $WIDTH * 9/10,
1344 force_h => $HEIGHT * 9/10, 1354 force_h => $HEIGHT * 9/10,
1345 title => "Player", 1355 title => "Player",
… …
1434 } 1444 }
1435 } 1445 }
1436 }; 1446 };
1437 1447
1438 my $vb = new CFPlus::UI::VBox; 1448 my $vb = new CFPlus::UI::VBox;
1449 $vb->add (new CFPlus::UI::FancyFrame
1450 label => "Options",
1439 $vb->add (my $hb = new CFPlus::UI::HBox); 1451 child => (my $hb = new CFPlus::UI::HBox),
1452 );
1440 $hb->add (new CFPlus::UI::Label text => "only shift-up stops fire"); 1453 $hb->add (new CFPlus::UI::Label text => "only shift-up stops fire");
1441 $hb->add (new CFPlus::UI::CheckBox 1454 $hb->add (new CFPlus::UI::CheckBox
1442 expand => 1, 1455 expand => 1,
1443 state => $CFG->{shift_fire_stop}, 1456 state => $CFG->{shift_fire_stop},
1444 tooltip => "If this checkbox is enabled you will stop fire only if you stop pressing shift", 1457 tooltip => "If this checkbox is enabled you will stop fire only if you stop pressing shift",
… …
1446 my ($cbox, $value) = @_; 1459 my ($cbox, $value) = @_;
1447 $CFG->{shift_fire_stop} = $value; 1460 $CFG->{shift_fire_stop} = $value;
1448 0 1461 0
1449 }); 1462 });
1450 1463
1451 $vb->add ($binding_list); 1464 $vb->add (new CFPlus::UI::FancyFrame
1465 label => "Bindings",
1466 child => $binding_list);
1452 $vb->add (my $hb = new CFPlus::UI::HBox); 1467 $vb->add (my $hb = new CFPlus::UI::HBox);
1453 1468
1454 $hb->add (new CFPlus::UI::Button 1469 $hb->add (new CFPlus::UI::Button
1455 text => "record new", 1470 text => "record new",
1456 expand => 1, 1471 expand => 1,
… …
1489 1504
1490 $vb 1505 $vb
1491} 1506}
1492 1507
1493sub help_window { 1508sub help_window {
1494 my $win = new CFPlus::UI::FancyFrame 1509 my $win = new CFPlus::UI::Toplevel
1495 x => 'center', 1510 x => 'center',
1496 y => 'center', 1511 y => 'center',
1497 z => 2, 1512 z => 2,
1498 name => 'doc_browser', 1513 name => 'doc_browser',
1499 force_w => int $WIDTH * 7/8, 1514 force_w => int $WIDTH * 7/8,
… …
1501 title => "Help Browser", 1516 title => "Help Browser",
1502 has_close_button => 1; 1517 has_close_button => 1;
1503 1518
1504 $win->add (my $vbox = new CFPlus::UI::VBox); 1519 $win->add (my $vbox = new CFPlus::UI::VBox);
1505 1520
1521 $vbox->add (new CFPlus::UI::FancyFrame
1522 label => "Navigation",
1506 $vbox->add (my $buttons = new CFPlus::UI::HBox); 1523 child => (my $buttons = new CFPlus::UI::HBox),
1524 );
1507 $vbox->add (my $viewer = new CFPlus::UI::TextScroller 1525 $vbox->add (my $viewer = new CFPlus::UI::TextScroller
1508 expand => 1, fontsize => 0.8, padding_x => 4); 1526 expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4);
1509 1527
1510 my @history; 1528 my @history;
1511 my @future; 1529 my @future;
1512 my $curnode; 1530 my $curnode;
1513 1531
… …
1553 }, 1571 },
1554 ); 1572 );
1555 $buttons->add (new CFPlus::UI::Label text => "/"); 1573 $buttons->add (new CFPlus::UI::Label text => "/");
1556 } 1574 }
1557 1575
1558 $buttons->add (new CFPlus::UI::Label text => $node->{kw}[0]); 1576 $buttons->add (new CFPlus::UI::Label text => $node->{kw}[0], padding_x => 4, padding_y => 4);
1559 1577
1560 $curnode = $node; 1578 $curnode = $node;
1561 1579
1562 $viewer->clear; 1580 $viewer->clear;
1563 $viewer->add_paragraph (CFPlus::Pod::as_paragraphs CFPlus::Pod::section_of $curnode); 1581 $viewer->add_paragraph (CFPlus::Pod::as_paragraphs CFPlus::Pod::section_of $curnode);
… …
1630 force_x => 0, 1648 force_x => 0,
1631 force_y => "max", 1649 force_y => "max",
1632 child => $STATUSBOX, 1650 child => $STATUSBOX,
1633 )->show; 1651 )->show;
1634 1652
1635 CFPlus::UI::FancyFrame->new ( 1653 CFPlus::UI::Toplevel->new (
1636 title => "Map", 1654 title => "Map",
1637 name => "mapmap", 1655 name => "mapmap",
1638 x => 0, 1656 x => 0,
1639 y => $FONTSIZE + 8, 1657 y => $FONTSIZE + 8,
1640 border_bg => [1, 1, 1, 192/255], 1658 border_bg => [1, 1, 1, 192/255],
… …
1668 can_hover => 1, 1686 can_hover => 1,
1669 can_events => 1, 1687 can_events => 1,
1670 tooltip => "<b>Server Log</b>. This text viewer contains all the messages sent by the server.", 1688 tooltip => "<b>Server Log</b>. This text viewer contains all the messages sent by the server.",
1671 ; 1689 ;
1672 1690
1673 $SETUP_DIALOG = new CFPlus::UI::FancyFrame 1691 $SETUP_DIALOG = new CFPlus::UI::Toplevel
1674 title => "Setup", 1692 title => "Setup",
1675 name => "setup_dialog", 1693 name => "setup_dialog",
1676 x => 'center', 1694 x => 'center',
1677 y => 'center', 1695 y => 'center',
1678 z => 2, 1696 z => 2,

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines