… | |
… | |
190 | ); |
190 | ); |
191 | |
191 | |
192 | $dialog->grab_focus; |
192 | $dialog->grab_focus; |
193 | |
193 | |
194 | } elsif ($flags & CS_QUERY_SINGLECHAR) { |
194 | } elsif ($flags & CS_QUERY_SINGLECHAR) { |
195 | $dialog->{tooltip} = "Press a key (click on the entry to make sure it has keyboard focus)"; |
195 | $dialog->{tooltip} = "#charcreation_focus"; |
196 | |
196 | |
197 | if ($prompt =~ /Now choose a character|Press any key for the next race/i) { |
197 | if ($prompt =~ /Now choose a character|Press any key for the next race/i) { |
198 | $MESSAGE_WINDOW->show; |
198 | $MESSAGE_WINDOW->show; |
199 | |
199 | |
200 | unshift @dialog, new CFPlus::UI::Label |
200 | unshift @dialog, new CFPlus::UI::Label |
… | |
… | |
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; |
… | |
… | |
1538 | ], |
1538 | ], |
1539 | on_changed => sub { |
1539 | on_changed => sub { |
1540 | my ($self, $pod) = @_; |
1540 | my ($self, $pod) = @_; |
1541 | |
1541 | |
1542 | $viewer->clear; |
1542 | $viewer->clear; |
1543 | $viewer->add_paragraph (@{ CFPlus::Pod::pod_paragraphs $pod }); |
1543 | $viewer->add_paragraph (CFPlus::Pod::section pod => $pod); |
1544 | $viewer->set_offset (0); |
1544 | $viewer->set_offset (0); |
1545 | |
1545 | |
1546 | 0 |
1546 | 0 |
1547 | }, |
1547 | }, |
1548 | on_visibility_change => sub { |
1548 | on_visibility_change => sub { |