4 |
use strict; |
use strict; |
5 |
our $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
our $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
6 |
push our @ISA, 'Message::DOM::Node', 'Message::IF::Element', |
push our @ISA, 'Message::DOM::Node', 'Message::IF::Element', |
7 |
'Message::IF::ElementSelector'; # MUST in Selectors API spec. |
'Message::IF::ElementSelector', # MUST in Selectors API spec. |
8 |
|
'Message::IF::ElementCSSInlineStyle'; |
9 |
require Message::DOM::Document; |
require Message::DOM::Document; |
10 |
|
|
11 |
sub ____new ($$$$$) { |
sub ____new ($$$$$) { |
828 |
return; |
return; |
829 |
} # set_id_attribute_node |
} # set_id_attribute_node |
830 |
|
|
831 |
|
## |ElementCSSInlineStyle| attributes |
832 |
|
|
833 |
|
sub current_style ($) { |
834 |
|
## TODO: If not part of document tree |
835 |
|
|
836 |
|
## ISSUE: Neither |getComputedStyle| nor |currentStyle| represent |
837 |
|
## the set of computed values in the real world (in fact what is |
838 |
|
## represented by them disagree in browsers and even |getComputedStyle| |
839 |
|
## and |currentStyle| are different in the same Opera browser). |
840 |
|
|
841 |
|
my $self = shift; |
842 |
|
my $view = $self->owner_document->default_view; |
843 |
|
return undef unless defined $view; ## ISSUE: Not defined in the spec yet. |
844 |
|
|
845 |
|
return $view->get_computed_style ($self); |
846 |
|
} # current_style |
847 |
|
|
848 |
|
## TODO: |style|, |runtimeStyle| |
849 |
|
|
850 |
package Message::IF::Element; |
package Message::IF::Element; |
851 |
package Message::IF::ElementSelector; |
package Message::IF::ElementSelector; |
852 |
|
package Message::IF::ElementCSSInlineStyle; |
853 |
|
|
854 |
package Message::DOM::Document; |
package Message::DOM::Document; |
855 |
|
|