| 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; |