minor reflector changes and start of widget port

[catagits/Reaction.git] / lib / Reaction / UI / View.pm

diff --git a/lib/Reaction/UI/View.pm b/lib/Reaction/UI/View.pm
index 4fc40c6..fa98030 100644 (file)
--- a/lib/Reaction/UI/View.pm
+++ b/lib/Reaction/UI/View.pm
@@ -24,6 +24,14 @@ class View which {
     return $class->new(%{$args||{}}, app => $app);
   };
 
+  sub BUILD{
+    my $self = shift;
+    my $skin_name = $self->skin_name;
+    my $skin_path = $app->path_to('share','skin',$skin_name);
+    confess("'${skin_path}' is not a valid path for skin '${skin_name}'")
+      unless -d $skin_path;
+  }
+
   implements 'render_window' => as {
     my ($self, $window) = @_;
     my $root_vp = $window->focus_stack->vp_head;