… | … | ||
---|---|---|---|
266 | my ($self) = @_; | 266 | my ($self) = @_; |
267 | 267 | ||
268 | $self->hide; | 268 | $self->hide; |
269 | $self->emit ("destroy"); | 269 | $self->emit ("destroy"); |
270 | %$self = (); | 270 | %$self = (); |
271 | } | ||
272 | |||
273 | sub TO_JSON { | ||
274 | { __widget_ref__ => $_[0]{s_id} } | ||
271 | } | 275 | } |
272 | 276 | ||
273 | sub show { | 277 | sub show { |
274 | my ($self) = @_; | 278 | my ($self) = @_; |
275 | 279 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |