| … | |
… | |
| 2196 | } |
2196 | } |
| 2197 | |
2197 | |
| 2198 | sub STORABLE_freeze { |
2198 | sub STORABLE_freeze { |
| 2199 | my ($self, $cloning) = @_; |
2199 | my ($self, $cloning) = @_; |
| 2200 | |
2200 | |
| 2201 | warn "freeze<$self>\n";#d# |
|
|
| 2202 | |
|
|
| 2203 | $self->{path} |
2201 | $self->{path} |
| 2204 | or die "cannot serialise CFClient::UI::Image on non-loadable images\n"; |
2202 | or die "cannot serialise CFClient::UI::Image on non-loadable images\n"; |
| 2205 | |
2203 | |
| 2206 | $self->{path} |
2204 | $self->{path} |
| 2207 | } |
2205 | } |
| 2208 | |
2206 | |
| 2209 | sub STORABLE_attach { |
2207 | sub STORABLE_attach { |
| 2210 | my ($self, $cloning, $path) = @_; |
2208 | my ($self, $cloning, $path) = @_; |
| 2211 | warn "attach<@_>\n";#d# |
|
|
| 2212 | |
2209 | |
| 2213 | $self->new (path => $path) |
2210 | $self->new (path => $path) |
| 2214 | } |
2211 | } |
| 2215 | |
2212 | |
| 2216 | sub size_request { |
2213 | sub size_request { |
