35 |
|
|
36 |
## |ViewCSS| methods |
## |ViewCSS| methods |
37 |
|
|
38 |
sub get_computed_style ($$;$) { |
## TODO: implement other methods |
39 |
|
|
40 |
|
## TODO: Documentation. |
41 |
|
sub manakai_get_computed_style ($$;$) { |
42 |
my $css = ${$_[0]}->{___css}; |
my $css = ${$_[0]}->{___css}; |
43 |
|
|
44 |
## TODO: pseudo element |
## TODO: pseudo element |
47 |
|
|
48 |
require Message::DOM::CSSStyleDeclaration; |
require Message::DOM::CSSStyleDeclaration; |
49 |
return Message::DOM::CSSComputedStyleDeclaration->____new ($css, $_[1]); |
return Message::DOM::CSSComputedStyleDeclaration->____new ($css, $_[1]); |
50 |
} # get_computed_style |
} # manakai_get_computed_style |
51 |
|
|
52 |
sub ___set_css_options ($$) { |
sub ___set_css_options ($$) { |
53 |
${$_[0]}->{___css_options} = $_[1]; |
${$_[0]}->{___css_options} = $_[1]; |