It is starting to look like this may actually work after all. Listview is the only...

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

diff --git a/lib/Reaction/UI/LayoutSet.pm b/lib/Reaction/UI/LayoutSet.pm
index 60d68d9..1cdb0e9 100644 (file)
--- a/lib/Reaction/UI/LayoutSet.pm
+++ b/lib/Reaction/UI/LayoutSet.pm
@@ -18,6 +18,7 @@ class LayoutSet which {
     my $found;
     SEARCH: foreach my $path (@path) {
       my $cand = $path->file($self->name);
+      print STDERR $cand,"\n";
       if ($cand->stat) {
         $self->_load_file($cand);
         $found = 1;
@@ -44,7 +45,12 @@ class LayoutSet which {
 
   implements 'widget_type' => as {
     my ($self) = @_;
-    return join('', map { ucfirst($_) } split('_', $self->name));
+    my $widget = join('',   map { ucfirst($_) } split('_', $self->name));
+    $widget    = join('::', map { ucfirst($_) } split('/', $widget));
+
+    print STDERR "--- ", $self->name, " maps to widget $widget \n";
+
+    return $widget;
   };
 
 };