Mercurial > pub > Impl

comparison Lib/IMPL/DOM/Navigator.pm @ 194:4d0e1962161c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replaced tabs with spaces IMPL::Web::View - fixed document model, new features (control classes, document constructor parameters)
author cin
date Tue, 10 Apr 2012 20:08:29 +0400
parents d1676be8afcc
children a4d9126edcbb
comparison
equal deleted inserted replaced
193:8e8401c0aea4 194:4d0e1962161c
153 153
154 join($delim,map $_->{alternatives}[$_->{current}]->nodeName, $this->{$_path} ? (@{$this->{$_path}}, $this->{$_state}) : $this->{$_state}); 154 join($delim,map $_->{alternatives}[$_->{current}]->nodeName, $this->{$_path} ? (@{$this->{$_path}}, $this->{$_state}) : $this->{$_state});
155 } 155 }
156 156
157 sub pathLength { 157 sub pathLength {
158 my ($this) = @_; 158 my ($this) = @_;
159 $this->{$_path} ? scalar @{$this->{$_path}} : 0; 159 $this->{$_path} ? scalar @{$this->{$_path}} : 0;
160 } 160 }
161 161
162 sub GetNodeFromHistory { 162 sub GetNodeFromHistory {
163 my ($this,$index) = @_; 163 my ($this,$index) = @_;
164 164
165 if (my $state = $this->{$_path} ? $this->{$_path}->[$index] : undef ) { 165 if (my $state = $this->{$_path} ? $this->{$_path}->[$index] : undef ) {
166 return $state->{alternatives}[$state->{current}] 166 return $state->{alternatives}[$state->{current}]
167 } else { 167 } else {
168 return undef; 168 return undef;
169 } 169 }
170 } 170 }
171 171
172 sub clone { 172 sub clone {
173 my ($this) = @_; 173 my ($this) = @_;
174 174