836 |
|
|
837 |
## |ElementCSSInlineStyle| attributes |
## |ElementCSSInlineStyle| attributes |
838 |
|
|
839 |
sub current_style ($) { |
## TODO: documentation |
840 |
|
sub manakai_computed_style ($) { |
841 |
## TODO: If not part of document tree |
## TODO: If not part of document tree |
842 |
|
|
843 |
## ISSUE: Neither |getComputedStyle| nor |currentStyle| represent |
## ISSUE: Neither |getComputedStyle| nor |currentStyle| represent |
850 |
my $view = $self->owner_document->default_view; |
my $view = $self->owner_document->default_view; |
851 |
return undef unless defined $view; ## ISSUE: Not defined in the spec yet. |
return undef unless defined $view; ## ISSUE: Not defined in the spec yet. |
852 |
|
|
853 |
return $view->get_computed_style ($self); |
return $view->manakai_get_computed_style ($self); |
854 |
} # current_style |
} # manakai_computed_style |
855 |
|
|
856 |
## TODO: |style|, |runtimeStyle| |
## TODO: |current_style|, |style|, |runtime_style| |
857 |
|
|
858 |
package Message::IF::Element; |
package Message::IF::Element; |
859 |
package Message::IF::ElementSelector; |
package Message::IF::ElementSelector; |