… | |
… | |
207 | my ($self, $face) = @_; |
207 | my ($self, $face) = @_; |
208 | |
208 | |
209 | $FACECACHE->{"$face->{chksum},$face->{name}"} = $face->{image}; |
209 | $FACECACHE->{"$face->{chksum},$face->{name}"} = $face->{image}; |
210 | |
210 | |
211 | $face->{texture} = new_from_image Crossfire::Client::Texture delete $face->{image}; |
211 | $face->{texture} = new_from_image Crossfire::Client::Texture delete $face->{image}; |
|
|
212 | } |
|
|
213 | |
|
|
214 | sub conn::query { |
|
|
215 | my ($self, $flags, $prompt) = @_; |
|
|
216 | |
|
|
217 | warn "<<<<QUERY:$flags:$prompt>>>\n";#d# |
212 | } |
218 | } |
213 | |
219 | |
214 | sub gtk_add_cfg_field { |
220 | sub gtk_add_cfg_field { |
215 | my ($tbl, $cfg, $klbl, $key, $value) = @_; |
221 | my ($tbl, $cfg, $klbl, $key, $value) = @_; |
216 | my $i = $cfg->{_i}++; |
222 | my $i = $cfg->{_i}++; |