Mercurial > pub > Impl

comparison Lib/IMPL/Web/TT/Control.pm @ 108:c6fb6964de4c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removed absolute modules Updated DOM model, selectNodes can now select a complex path Web DOM model release candidate
author wizard
date Fri, 14 May 2010 16:06:06 +0400
parents 0e72ad99eef7
children ddf0f037d460
comparison
equal deleted inserted replaced
107:0e72ad99eef7 108:c6fb6964de4c
1 package IMPL::Web::TT::Control; 1 package IMPL::Web::TT::Control;
2 2
3 use base qw(IMPL::DOM::Node); 3 use base qw(IMPL::Web::TT::Collection);
4 4
5 use IMPL::Class::Property; 5 use IMPL::Class::Property;
6 6
7 __PACKAGE__->PassThroughArgs; 7 __PACKAGE__->PassThroughArgs;
8 8
9 BEGIN { 9 BEGIN {
10 public property controlClass => prop_all;
10 public property template => prop_all; 11 public property template => prop_all;
11 public property id => prop_all; 12 public property id => prop_all;
12 } 13 }
13 14
14 my $nextId = 1; 15 my $nextId = 1;
16 sub CTOR { 17 sub CTOR {
17 my ($this,%args) = @_; 18 my ($this,%args) = @_;
18 19
19 $this->template($args{template}) if $args{template}; 20 $this->template($args{template}) if $args{template};
20 $this->id($this->nodeName . '-' . $nextId++); 21 $this->id($this->nodeName . '-' . $nextId++);
22 $this->controlClass($args{controlClass} || 'Control');
21 } 23 }
22 24
23 sub Render { 25 sub Render {
24 my ($this) = @_; 26 my ($this) = @_;
25 27