[svn:p5ee] r10070 - p5ee/trunk/App-Widget/lib/App/Widget

[spadkins]

Author: spadkins
Date: Wed Oct 10 11:55:12 2007
New Revision: 10070

Modified:
   p5ee/trunk/App-Widget/lib/App/Widget/HierSelector.pm

Log:
Added the ability to call a navigate method for a widget in the select method

Modified: p5ee/trunk/App-Widget/lib/App/Widget/HierSelector.pm
==============================================================================
--- p5ee/trunk/App-Widget/lib/App/Widget/HierSelector.pm        (original)
+++ p5ee/trunk/App-Widget/lib/App/Widget/HierSelector.pm        Wed Oct 10 
11:55:12 2007
@@ -177,7 +177,17 @@
     my $success = 0;
     foreach my $nodenumber (keys %$node) {
         if ($node->{$nodenumber}{$nodeattrib} eq $value) {
+            my $prev_nodenumber = $self->{selected} || "";
+            my $prev_wname = $node->{$prev_nodenumber}{wname};
             $self->set("selected", $nodenumber);
+            if ($node->{$nodenumber}{wname}) {
+                my $context = $self->{context};
+                my $widget_name = $node->{$nodenumber}{wname};
+                my $w = $context->widget($widget_name);
+                if ($w->can("navigate")) {
+                    $w->navigate($prev_wname, $prev_nodenumber);
+                }
+            }
             $success = 1;
             last;
         }