| … | |
… | |
| 562 | } |
562 | } |
| 563 | |
563 | |
| 564 | $sktbl->add_at (@add); |
564 | $sktbl->add_at (@add); |
| 565 | } |
565 | } |
| 566 | |
566 | |
| 567 | for (grep exists $stats->{$_}, @skills) { |
567 | for (@order) { |
|
|
568 | my ($idx, $name) = @$_; |
|
|
569 | my $val = $stats->{$idx}; |
|
|
570 | |
| 568 | next if $prev->{$_} == $stats->{$_}; |
571 | next if $prev->{$idx}[1] == $val->[1]; |
| 569 | |
572 | |
| 570 | my $sw = $self->{skillwid}{$_}; |
573 | my $sw = $self->{skillwid}{$idx}; |
| 571 | $sw->[0]->set_text (::formsep ($stats->{$_}[1])); |
574 | $sw->[0]->set_text (::formsep ($val->[1])); |
| 572 | $sw->[1]->set_text ($stats->{$_}[0] * 1); |
575 | $sw->[1]->set_text ($val->[0] * 1); |
| 573 | $sw->[2]->set_value (@{$stats->{$_}}); |
576 | $sw->[2]->set_value (@$val); |
|
|
577 | |
|
|
578 | #$::GAUGES->{sklprg}->set_label ($name); |
|
|
579 | $::GAUGES->{sklprg}->set_value (@$val); |
| 574 | } |
580 | } |
| 575 | } |
581 | } |
| 576 | |
582 | |
| 577 | sub macro_send { |
583 | sub macro_send { |
| 578 | my ($self, $macro) = @_; |
584 | my ($self, $macro) = @_; |
