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

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

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

revision 1.2 by wakaba, Sat Dec 22 06:57:46 2007 UTC revision 1.3 by wakaba, Sun Dec 23 08:18:59 2007 UTC
# Line 5  push our @ISA, 'Message::IF::CSSStyleShe Line 5  push our @ISA, 'Message::IF::CSSStyleShe
5  require Message::DOM::DOMException;  require Message::DOM::DOMException;
6  require Scalar::Util;  require Scalar::Util;
7    
8  sub new ($;%) {  sub ____new ($;%) {
9    my $class = shift;    my $class = shift;
10    my $self = bless \{@_}, $class;    my $self = bless \{@_}, $class;
11    for (@{$$self->{css_rules}}) {    for (@{$$self->{css_rules}}) {
# Line 13  sub new ($;%) { Line 13  sub new ($;%) {
13      Scalar::Util::weaken (${$_}->{parent_style_sheet});      Scalar::Util::weaken (${$_}->{parent_style_sheet});
14    }    }
15    return $self;    return $self;
16  } # new  } # ____new
17    
18  sub AUTOLOAD {  sub AUTOLOAD {
19    my $method_name = our $AUTOLOAD;    my $method_name = our $AUTOLOAD;
# Line 88  sub css_rules ($) { Line 88  sub css_rules ($) {
88    return bless \\($_[0]), 'Message::DOM::CSSRuleList';    return bless \\($_[0]), 'Message::DOM::CSSRuleList';
89  } # css_rules  } # css_rules
90    
91    ## NOTE: This is a manakai extension.
92    sub css_text ($;$) {
93      ## TODO: setter
94    
95      my $r = '';
96      local $Error::Depth = $Error::Depth + 1;
97      for my $rule (@{$_[0]->css_rules}) {
98        $r .= $rule->css_text;
99      }
100      return $r;
101    } # css_text
102    
103  sub owner_rule ($);  sub owner_rule ($);
104    
105  ## |CSSStyleSheet| methods  ## |CSSStyleSheet| methods
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24