--- deliantra/Deliantra-Client/DC/Protocol.pm 2007/07/14 13:08:40 1.121 +++ deliantra/Deliantra-Client/DC/Protocol.pm 2007/07/15 22:07:48 1.122 @@ -776,6 +776,20 @@ $self->{map}->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}}); $self->{map_widget}->update; + + $_->() for @{(delete $self->{face_cb}{$id}) || []}; +} + +sub connect_face_update { + my ($self, $id, $cb) = @_; + + push @{$self->{face_cb}{$id}}, $cb; + + CFPlus::guard { + @{$self->{face_cb}{$id}} + = grep $_ != $cb, + @{$self->{face_cb}{$id}}; + } } sub sound_play {