annotate Lib/IMPL/Web/TT/Control.pm @ 117:0475eb382085

Controls support (RC1)
author wizard
date Thu, 03 Jun 2010 02:41:44 +0400
parents ddf0f037d460
children a7efb3117295
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
78
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
1 package IMPL::Web::TT::Control;
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
2
108
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
3 use base qw(IMPL::Web::TT::Collection);
78
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
4
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
5 use IMPL::Class::Property;
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
6
107
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
7 __PACKAGE__->PassThroughArgs;
78
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
8
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
9 BEGIN {
108
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
10 public property controlClass => prop_all;
78
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
11 public property template => prop_all;
107
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
12 public property id => prop_all;
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
13 }
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
14
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
15 my $nextId = 1;
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
16
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
17 sub CTOR {
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
18 my ($this,%args) = @_;
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
19
109
ddf0f037d460 IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT)
wizard
parents: 108
diff changeset
20 if ($this->document) {
ddf0f037d460 IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT)
wizard
parents: 108
diff changeset
21 # load a template
117
0475eb382085 Controls support (RC1)
wizard
parents: 109
diff changeset
22 $args{template} = $this->document->context->template($args{template}) if ($args{template} and not ref $args{template});
109
ddf0f037d460 IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT)
wizard
parents: 108
diff changeset
23 }
107
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
24 $this->template($args{template}) if $args{template};
109
ddf0f037d460 IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT)
wizard
parents: 108
diff changeset
25
107
0e72ad99eef7 Updated Web::TT
wizard
parents: 78
diff changeset
26 $this->id($this->nodeName . '-' . $nextId++);
108
c6fb6964de4c Removed absolute modules
wizard
parents: 107
diff changeset
27 $this->controlClass($args{controlClass} || 'Control');
78
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
28 }
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
29
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
30 sub Render {
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
31 my ($this) = @_;
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
32
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
33 if ($this->document) {
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
34 if ($this->template) {
117
0475eb382085 Controls support (RC1)
wizard
parents: 109
diff changeset
35 return $this->document->context->include($this->template,{ this => $this }) ;
78
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
36 } elsif ($this->document->presenter) {
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
37 return $this->document->presenter->print($this);
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
38 } else {
117
0475eb382085 Controls support (RC1)
wizard
parents: 109
diff changeset
39 return $this->toString().": ".$this->controlClass() . ": ".$this->path;
78
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
40 }
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
41 }
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
42 }
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
43
a5cb84374d40 TT::Control in work
wizard
parents:
diff changeset
44 1;