| … | |
… | |
| 625 | &set_gauge_window_fontsize; |
625 | &set_gauge_window_fontsize; |
| 626 | |
626 | |
| 627 | $win |
627 | $win |
| 628 | } |
628 | } |
| 629 | |
629 | |
|
|
630 | sub debug_setup { |
|
|
631 | my $table = new CFClient::UI::Table; |
|
|
632 | |
|
|
633 | $table->add (0, 0, new CFClient::UI::Label text => "Widget Borders"); |
|
|
634 | $table->add (1, 0, new CFClient::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 1 }); |
|
|
635 | $table->add (0, 1, new CFClient::UI::Label text => "Tooltip Widget Info"); |
|
|
636 | $table->add (1, 1, new CFClient::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 2 }); |
|
|
637 | $table->add (0, 2, new CFClient::UI::Label text => "Show FPS"); |
|
|
638 | $table->add (1, 2, new CFClient::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 4 }); |
|
|
639 | $table->add (0, 3, new CFClient::UI::Label text => "Suppress Tooltips"); |
|
|
640 | $table->add (1, 3, new CFClient::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 8 }); |
|
|
641 | |
|
|
642 | my @default_smooth = (0.05, 0.13, 0.05, 0.13, 0.30, 0.13, 0.05, 0.13, 0.05); |
|
|
643 | |
|
|
644 | for my $x (0..2) { |
|
|
645 | for my $y (0 .. 2) { |
|
|
646 | $table->add ($x + 3, $y, |
|
|
647 | new CFClient::UI::Entry |
|
|
648 | text => $default_smooth[$x * 3 + $y], |
|
|
649 | on_changed => sub { $MAP->{smooth_matrix}[$x * 3 + $y] = $_[1] if $MAP; 0 }, |
|
|
650 | ); |
|
|
651 | } |
|
|
652 | } |
|
|
653 | |
|
|
654 | |
|
|
655 | $table |
|
|
656 | } |
| 630 | |
657 | |
| 631 | sub stats_window { |
658 | sub stats_window { |
| 632 | my $tgw = new CFClient::UI::FancyFrame |
659 | my $tgw = new CFClient::UI::FancyFrame |
| 633 | y => $HEIGHT * (2/8), |
660 | y => $HEIGHT * (2/8), |
| 634 | x => "max", |
661 | x => "max", |
| … | |
… | |
| 1508 | . "want to record press <b>Insert</b> and you will be asked to press a key-combo. " |
1535 | . "want to record press <b>Insert</b> and you will be asked to press a key-combo. " |
| 1509 | . "After pressing the combo the binding will be saved automatically and the " |
1536 | . "After pressing the combo the binding will be saved automatically and the " |
| 1510 | . "binding editor closes"); |
1537 | . "binding editor closes"); |
| 1511 | $SETUP_NOTEBOOK->add (Spells => $SETUP_SPELLS = spell_setup, |
1538 | $SETUP_NOTEBOOK->add (Spells => $SETUP_SPELLS = spell_setup, |
| 1512 | "Displays all spells you have and lets you edit keyboard shortcuts for them."); |
1539 | "Displays all spells you have and lets you edit keyboard shortcuts for them."); |
|
|
1540 | $SETUP_NOTEBOOK->add (Debug => debug_setup, |
|
|
1541 | "Some debuggign options. Do not ask."); |
| 1513 | |
1542 | |
| 1514 | $BUTTONBAR = new CFClient::UI::Buttonbar x => 0, y => 0, z => 200; # put on top |
1543 | $BUTTONBAR = new CFClient::UI::Buttonbar x => 0, y => 0, z => 200; # put on top |
| 1515 | |
1544 | |
| 1516 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Setup", other => $SETUP_DIALOG, |
1545 | $BUTTONBAR->add (new CFClient::UI::Flopper text => "Setup", other => $SETUP_DIALOG, |
| 1517 | tooltip => "Toggles a dialog where you can configure all aspects of this client."); |
1546 | tooltip => "Toggles a dialog where you can configure all aspects of this client."); |
