/[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.15 by wakaba, Sat Feb 2 13:58:02 2008 UTC revision 1.16 by wakaba, Sun Feb 3 06:01:20 2008 UTC
# Line 15  my $serialize_value = sub ($$$) { Line 15  my $serialize_value = sub ($$$) {
15      return $value->[1] . $value->[2]; ## NOTE: This is what browsers do.      return $value->[1] . $value->[2]; ## NOTE: This is what browsers do.
16    } elsif ($value->[0] eq 'PERCENTAGE') {    } elsif ($value->[0] eq 'PERCENTAGE') {
17      return $value->[1] . '%';      return $value->[1] . '%';
18    } elsif ($value->[0] eq 'KEYWORD') {    } elsif ($value->[0] eq 'KEYWORD' or $value->[0] eq 'PAGE') {
19      return $value->[1];      return $value->[1];
20    } elsif ($value->[0] eq 'URI') {    } elsif ($value->[0] eq 'URI') {
21      ## NOTE: This is what browsers do.      ## NOTE: This is what browsers do.
# Line 86  my $serialize_value = sub ($$$) { Line 86  my $serialize_value = sub ($$$) {
86          '""';          '""';
87        }        }
88      } @$value[1..$#$value];      } @$value[1..$#$value];
89      } elsif ($value->[0] eq 'MARKS') {
90        if ($value->[1]) {
91          if ($value->[2]) {
92            return 'crop cross';
93          } else {
94            return 'crop';
95          }
96        } elsif ($value->[2]) {
97          return 'cross';
98        } else {
99          return 'none';
100        }
101      } elsif ($value->[0] eq 'SIZE') {
102        my $s1 = $value->[1]->[1] . $value->[1]->[2]; ## NOTE: They should be
103        my $s2 = $value->[2]->[1] . $value->[2]->[2]; ## 'DIMENSION's.
104        if ($s1 eq $s2) {
105          return $s1;
106        } else {
107          return $s1 . ' ' . $s2;
108        }
109    } else {    } else {
110      return '';      return '';
111    }    }
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24