--- a/Lib/IMPL/Web/View/TTDocument.pm	Tue Feb 19 03:05:10 2013 +0400
+++ b/Lib/IMPL/Web/View/TTDocument.pm	Tue Feb 19 19:58:27 2013 +0400
@@ -3,7 +3,9 @@
 
 use Scalar::Util qw(weaken);
 use IMPL::Const qw(:prop);
-use IMPL::lang qw(:hash);
+use IMPL::lang qw(:hash is);
+use Carp qw(carp);
+use mro;
 
 use IMPL::declare {
     require => {
@@ -14,27 +16,17 @@
     base => [
         'IMPL::Web::View::TTControl' => sub {
             my ($template,$ctx) = @_;
-            'document',
-            $template, # template
-            $ctx || Template::Context->new()  # context
+            $ctx ||= Template::Context->new();
+            return 'document', $template, $ctx;  # context
         }
     ],
     props => [
         layout => PROP_RW,
         loader => PROP_RW,
         controls => PROP_RO,
-        creationArgs => PROP_RO,
-        
-        # store the stash separately to make require() method to work correctly
-        # even when a stash of the context is modified during the processing 
-        stash => PROP_RO
     ]
 };
 
-BEGIN {
- 
-}
-
 sub CTOR {
     my ($this,$template,$ctx,$loader,$vars) = @_;
     
@@ -43,49 +35,34 @@
     
     $this->layout( $template->layout ) unless $this->layout;
     
-    $this->stash($this->context->stash);
-    $this->creationArgs($vars);
-    
-    my $self = $this;
-    weaken($self);
+    $this->context->stash->update($vars)
+        if ref $vars eq 'HASH';
     
-    $this->templateVars(require => sub {
-        my $doc = $self;
-        die new IMPL::Exception("A document is destroyed or invalid") unless $doc;
-        $doc->RequireControl(@_);
-    });
-    
-    $this->templateVars(document => sub { $self } );
-    $this->InitInstance($vars);
+    $this->InitInstance();
 }
 
 sub templateVars {
     my $this = shift;
     my $name = shift;
-    
     if (@_) {
-        return $this->stash->set($name, shift);        
+        return $this->context->stash->set($name, shift);        
     } else {
-        return $this->stash->get($name);
+        return $this->context->stash->get($name);
     }
 }
 
 sub RequireControl {
-    my ($this, $control) = @_;
+    my ($this, $control, $ctx) = @_;
+    
+    $ctx ||= $this->context;
     
     if (my $factory = $this->controls->{$control}) {
         return $factory;
     } else {
-    
         my $path = $control;
         
         if ( my $template = $this->loader->template($path) ) {
-
-            # factory will create a clone of the stash 
-            # $opts->{STASH} = $this->stash->clone();
- 
-            my $ctx = Template::Context->new({%{$this->context}, STASH => $this->stash });#new Template::Context($opts);
-            
+           
             $factory = new IMPL::Web::View::TTFactory(
                 $template->class || TTControl,
                 $template,
@@ -109,54 +86,89 @@
 
 sub Render {
     my ($this,$args) = @_;
-    
+
     $args ||= {};
+
+    $this->context->localise();
     
-    my $newArgs = hashMerge($this->creationArgs, $args);
+    my $documentContext;
+    my %controls;
+    my $require;
+    $require = sub {
+        my $control = shift;
+        if (my $factory = $controls{$control}) {
+            return $factory;
+        } else {
+            my $path = $control;
+            
+            if ( my $template = $this->loader->template($path) ) {
+               
+                $factory = new IMPL::Web::View::TTFactory(
+                    $template->class || TTControl,
+                    $template,
+                    $documentContext,
+                    join( '/', splice( @{[split(/\//,$path)]}, 0, -1 ) ),
+                    $require
+                );
+                
+                if ($template->class) {
+                    Loader->safe->Require($template->class);
+                }
+                
+                $controls{$control} = $factory;
+                            
+                return $factory;
     
-    if ($this->layout) {
-        my $text = eval {
-            #$this->context->localise();
+            } else {
+                die new IMPL::KeyNotFoundException($control);
+            }
+        }
+    };
+    
+    $this->context->stash->set(require => $require);
+    $this->context->stash->set(document => $this);
+    $documentContext = Template::Context->new( { %{$this->context} } );
+    
+    my $text = eval {
+    
+        if ($this->layout) {
         	my $tlayout = $this->loader->layout($this->layout);
         	if(my $init = $tlayout->blocks->{INIT}) {
         		$this->context->process(
                     $init,
                     hashMerge(
-                        $newArgs,
+                        $args,
                         {
-                        	template => $this->template
+                           	template => $this->template
                         }
                     )
                 );
         	}
+        	my $content = $this->next::method($args);
             return $this->context->include(
                 $tlayout,
                 {
-                	%{$newArgs},
-                    content => $this->RenderContent($newArgs),
+                	%{$args},
+                    content => $content,
                     this => $this,
                     template => $this->template
                 }
             );
-        };
-        my $e = $@;
-        
-        #$this->context->delocalise();
-        
-        if ($e) {
-            die $e;
-        } else {
-            return $text;
-        }
-        
+	    } else {
+	        return $this->next::method($args);
+	    }
+    };
+    
+    $this->context->delocalise();
+    
+    my $e = $@;
+    if ($e) {
+        die $e;
     } else {
-        return $this->RenderContent($newArgs);
+        return $text;
     }
-}
-
-sub RenderContent {
-    my $this = shift;
-    return $this->SUPER::Render(@_);
+    
+    
 }
 
 1;