… | … | ||
---|---|---|---|
646 | my ($self) = @_; | 646 | my ($self) = @_; |
647 | 647 | ||
648 | warn "no draw defined for $self\n"; | 648 | warn "no draw defined for $self\n"; |
649 | } | 649 | } |
650 | 650 | ||
651 | my $cntx;#d# | ||
652 | sub DESTROY { | 651 | sub DESTROY { |
653 | my ($self) = @_; | 652 | my ($self) = @_; |
654 | 653 | ||
655 | return if CFPlus::in_destruct; | 654 | return if CFPlus::in_destruct; |
656 | 655 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |