| … | |
… | |
| 19 | my $new; |
19 | my $new; |
| 20 | |
20 | |
| 21 | my $name = $ws->{ns}->pl->ob->name; |
21 | my $name = $ws->{ns}->pl->ob->name; |
| 22 | |
22 | |
| 23 | while (my ($k, $v) = each %PLAYERINFO) { |
23 | while (my ($k, $v) = each %PLAYERINFO) { |
| 24 | my $label = $old->{$k} || do { |
24 | my $label = (delete $old->{$k}) || do { |
| 25 | my $label = $ws->new (Label => |
25 | my $label = $ws->new (Label => |
| 26 | text => $k, |
26 | text => $k, |
| 27 | fontsize => 0.2, |
27 | fontsize => 0.2, |
| 28 | c_halign => -.5, |
28 | c_halign => -.5, |
| 29 | c_valign => -1, |
29 | c_valign => -1, |
| … | |
… | |
| 41 | if $k eq $name; |
41 | if $k eq $name; |
| 42 | } |
42 | } |
| 43 | } |
43 | } |
| 44 | |
44 | |
| 45 | $ws->{labels} = $new; |
45 | $ws->{labels} = $new; |
|
|
46 | |
|
|
47 | #$_->destroy for values %$old;#d# |
| 46 | } |
48 | } |
| 47 | |
49 | |
| 48 | sub create_widgets { |
50 | sub create_widgets { |
| 49 | my ($ns) = @_; |
51 | my ($ns) = @_; |
| 50 | |
52 | |
