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

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

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

revision 1.1 by wakaba, Mon Oct 8 07:17:18 2007 UTC revision 1.2 by wakaba, Sat Oct 27 13:07:27 2007 UTC
# Line 80  sub type ($); Line 80  sub type ($);
80  sub init_event ($$;$$) {  sub init_event ($$;$$) {
81    my $self = $_[0];    my $self = $_[0];
82    unless ($self->{manakai_dispatched}) {    unless ($self->{manakai_dispatched}) {
83        delete $self->{namespace_uri};
84      $self->{type} = ''.$_[1];      $self->{type} = ''.$_[1];
85      $self->{bubbles} = $_[2];      $self->{bubbles} = $_[2];
86      $self->{cancelable} = $_[3];      $self->{cancelable} = $_[3];
# Line 89  sub init_event ($$;$$) { Line 90  sub init_event ($$;$$) {
90  sub init_event_ns ($$;$$) {  sub init_event_ns ($$;$$) {
91    my $self = $_[0];    my $self = $_[0];
92    unless ($self->{manakai_dispatched}) {    unless ($self->{manakai_dispatched}) {
93      if (not defined $_[1] or $_[1] eq '') {      unless (not defined $_[1] or $_[1] eq '') {
94        $self->{namespace_uri} = $_[1];        $self->{namespace_uri} = $_[1];
95        } else {
96          delete $self->{namespace_uri};
97      }      }
98      $self->{type} = ''.$_[2];      $self->{type} = ''.$_[2];
99      $self->{bubbles} = $_[3];      $self->{bubbles} = $_[3];
# Line 125  sub detail ($); Line 128  sub detail ($);
128  sub init_custom_event_ns ($$$;$$$) {  sub init_custom_event_ns ($$$;$$$) {
129    my $self = $_[0];    my $self = $_[0];
130    unless ($self->{manakai_dispatched}) {    unless ($self->{manakai_dispatched}) {
131      if (not defined $_[1] or $_[1] eq '') {      unless (not defined $_[1] or $_[1] eq '') {
132        $self->{namespace_uri} = $_[1];        $self->{namespace_uri} = $_[1];
133        } else {
134          delete $self->{namespace_uri};
135      }      }
136      $self->{type} = ''.$_[2];      $self->{type} = ''.$_[2];
137      $self->{bubbles} = $_[3];      $self->{bubbles} = $_[3];
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24