Mercurial > pub > Impl
comparison Lib/IMPL/DOM/Navigator/Builder.pm @ 112:0ed8e2541b1c
Form processing mechanism
author | wizard |
---|---|
date | Tue, 18 May 2010 17:59:31 +0400 |
parents | 83e356614c1e |
children | 7b14e0122b79 |
comparison
equal
deleted
inserted
replaced
111:6c25ea91c985 | 112:0ed8e2541b1c |
---|---|
15 public _direct property BuildErrors => prop_get | prop_list; | 15 public _direct property BuildErrors => prop_get | prop_list; |
16 public _direct property Document => prop_get | owner_set; | 16 public _direct property Document => prop_get | owner_set; |
17 } | 17 } |
18 | 18 |
19 our %CTOR = ( | 19 our %CTOR = ( |
20 'IMPL::DOM::Navigator' => sub { IMPL::DOM::Document::Empty; } | 20 'IMPL::DOM::Navigator' => sub { IMPL::DOM::Document->Empty; } |
21 ); | 21 ); |
22 | 22 |
23 sub CTOR { | 23 sub CTOR { |
24 my ($this,$docClass,$schema) = @_; | 24 my ($this,$docClass,$schema) = @_; |
25 | 25 |
106 | 106 |
107 $this->{$_schemaNavi}->SchemaBack(); | 107 $this->{$_schemaNavi}->SchemaBack(); |
108 $this->SUPER::Back(); | 108 $this->SUPER::Back(); |
109 } | 109 } |
110 | 110 |
111 sub saveState { | |
112 my ($this) = @_; | |
113 | |
114 $this->{$_schemaNavi}->saveState; | |
115 $this->SUPER::saveState; | |
116 } | |
117 | |
118 sub restoreState { | |
119 my ($this) = @_; | |
120 | |
121 $this->{$_schemaNavi}->restoreState; | |
122 $this->SUPER::restoreState; | |
123 } | |
124 | |
111 1; | 125 1; |
112 | 126 |
113 __END__ | 127 __END__ |
114 | 128 |
115 =pod | 129 =pod |