/[suikacvs]/messaging/manakai/lib/Message/DOM/CSSStyleDeclaration.pm
Suika

Diff of /messaging/manakai/lib/Message/DOM/CSSStyleDeclaration.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by wakaba, Tue Jan 1 09:09:16 2008 UTC revision 1.6 by wakaba, Fri Jan 4 14:45:29 2008 UTC
# Line 84  sub css_text ($;$) { Line 84  sub css_text ($;$) {
84    ## TODO: ordering    ## TODO: ordering
85    ## TODO: any spec?    ## TODO: any spec?
86    my $r = '';    my $r = '';
87    for my $prop_def (grep {$_->{compute}} values %$Whatpm::CSS::Parser::Prop) {    for my $prop_def (sort {$a->{css} cmp $b->{css}}
88                        grep {$_->{compute} or $_->{compute_multiple}}
89                        values %$Whatpm::CSS::Parser::Prop) {
90      my $prop_value = $$self->{cascade}->get_computed_value      my $prop_value = $$self->{cascade}->get_computed_value
91          ($$self->{element}, $prop_def->{css});          ($$self->{element}, $prop_def->{css});
92      my $s = $prop_def->{serialize}->($self, $prop_def->{css}, $prop_value);      my $s = $prop_def->{serialize}->($self, $prop_def->{css}, $prop_value);
# Line 96  sub css_text ($;$) { Line 98  sub css_text ($;$) {
98        $r .= "  /* $prop_def->{css}: ???; */\n";        $r .= "  /* $prop_def->{css}: ???; */\n";
99      }      }
100    }    }
101    
102      ## ISSUE: Should we include CSS properties that are not supported?
103    
104    return $r;    return $r;
105  } # css_text  } # css_text
106    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24