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.104 by root, Sun Jul 30 13:14:15 2006 UTC vs.
Revision 1.107 by root, Sun Aug 13 03:20:56 2006 UTC

… …
313 markup => "$conn->{stat}{$id} <span foreground='yellow'>$name</span>", 313 markup => "$conn->{stat}{$id} <span foreground='yellow'>$name</span>",
314 align => 0, 314 align => 0,
315 expand => 1, 315 expand => 1,
316 can_events => 1, 316 can_events => 1,
317 can_hover => 1, 317 can_hover => 1,
318 tooltip => $CFPlus::STAT_TOOLTIP{$name}, 318 tooltip => "#stat_$name",
319 ); 319 );
320 } 320 }
321 321
322 unshift @dialog, new CFPlus::UI::Label 322 unshift @dialog, new CFPlus::UI::Label
323 max_w => $::WIDTH * 0.4, 323 max_w => $::WIDTH * 0.4,
… …
721 ) { 721 ) {
722 my ($col, $row, $id, $label, $template) = @$_; 722 my ($col, $row, $id, $label, $template) = @$_;
723 723
724 $tbl->add ($col , $row, $STATWIDS->{$id} = new CFPlus::UI::Label 724 $tbl->add ($col , $row, $STATWIDS->{$id} = new CFPlus::UI::Label
725 font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0, 725 font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0,
726 align => +1, template => $template, tooltip => $CFPlus::STAT_TOOLTIP{$label}); 726 align => +1, template => $template, tooltip => "#stat_$label");
727 $tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFPlus::UI::Label 727 $tbl->add ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new CFPlus::UI::Label
728 font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0, 728 font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0,
729 align => -1, text => $label, tooltip => $CFPlus::STAT_TOOLTIP{$label}); 729 align => -1, text => $label, tooltip => "#stat_$label");
730 } 730 }
731 731
732 $vb->add (my $tbl2 = new CFPlus::UI::Table expand => 1); 732 $vb->add (my $tbl2 = new CFPlus::UI::Table expand => 1);
733 733
734 my $row = 0; 734 my $row = 0;
… …
1133 }; 1133 };
1134 1134
1135 $window 1135 $window
1136} 1136}
1137 1137
1138sub open_string_query {
1139 my $cb = $_[1];
1140 my $dialog = new CFPlus::UI::FancyFrame
1141 x => "center",
1142 y => "center",
1143 z => 50,
1144 force_w => $WIDTH * 4/5,
1145 title => $_[0];
1146
1147 $dialog->add (
1148 my $e = new CFPlus::UI::Entry
1149 on_activate => sub { $cb->(@_); $dialog->hide; 0 },
1150 on_key_down => sub { $_[1]->{sym} == 27 and $dialog->hide; 0 },
1151 );
1152
1153 $e->grab_focus;
1154 $dialog->show;
1155}
1156
1138sub open_quit_dialog { 1157sub open_quit_dialog {
1139 unless ($QUIT_DIALOG) { 1158 unless ($QUIT_DIALOG) {
1140 $QUIT_DIALOG = new CFPlus::UI::FancyFrame 1159 $QUIT_DIALOG = new CFPlus::UI::FancyFrame
1141 x => "center", 1160 x => "center",
1142 y => "center", 1161 y => "center",
… …
1519 ], 1538 ],
1520 on_changed => sub { 1539 on_changed => sub {
1521 my ($self, $pod) = @_; 1540 my ($self, $pod) = @_;
1522 1541
1523 $viewer->clear; 1542 $viewer->clear;
1524 $viewer->add_paragraph (@{ CFPlus::Pod::pod_paragraphs $pod }); 1543 $viewer->add_paragraph (CFPlus::Pod::section pod => $pod);
1525 $viewer->set_offset (0); 1544 $viewer->set_offset (0);
1526 1545
1527 0 1546 0
1528 }, 1547 },
1529 on_visibility_change => sub { 1548 on_visibility_change => sub {

Diff Legend

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