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