X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FReaction%2FUI%2FController%2FRoot.pm;h=eb0e3b50e7222efb172c51451a6f5331548f0fc9;hb=9446e1cd17441b0e3ce7102cfca38de2b7869f24;hp=7ab40b4bbaeb68b7bc7bd2a01a624644d6183bf2;hpb=13312031c567552b3f18b650a49b83bb2f125576;p=catagits%2FReaction.git

diff --git a/lib/Reaction/UI/Controller/Root.pm b/lib/Reaction/UI/Controller/Root.pm
index 7ab40b4..eb0e3b5 100644
--- a/lib/Reaction/UI/Controller/Root.pm
+++ b/lib/Reaction/UI/Controller/Root.pm
@@ -19,15 +19,17 @@ sub begin :Private {
   my ($self, $ctx) = @_;
   $ctx->stash(
     window => Reaction::UI::Window->new(
-                ctx => $ctx,
-                view_name => $self->view_name,
-                content_type => $self->content_type,
-                ($self->has_window_title
-                  ? (title => $self->window_title)
-                  : ()),
-              )
+      ctx => $ctx,
+      view_name => $self->view_name,
+      content_type => $self->content_type,
+      ($self->has_window_title
+         ? (title => $self->window_title)
+           : ()),
+    )
   );
-  $ctx->stash(focus_stack => $ctx->stash->{window}->focus_stack);
+  my $focus_stack = $ctx->stash->{window}->focus_stack;
+  $focus_stack->loc_prefix('r-vp');
+  $ctx->stash(focus_stack => $focus_stack);
 }
 
 sub end :Private {