… | |
… | |
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 | |