cvs commit: p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML AppFrame.pm

[spadkins]

cvsuser     02/05/09 15:19:38

  Modified:    P5EEx/Blue/P5EEx/Blue/Widget/HTML AppFrame.pm
  Log:
  displays correct title in title bar
  
  Revision  Changes    Path
  1.6       +4 -4      p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/AppFrame.pm
  
  Index: AppFrame.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/AppFrame.pm,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -w -r1.5 -r1.6
  --- AppFrame.pm       19 Apr 2002 14:45:23 -0000      1.5
  +++ AppFrame.pm       9 May 2002 22:19:38 -0000       1.6
  @@ -1,10 +1,10 @@
   
   ######################################################################
  -## $Id: AppFrame.pm,v 1.5 2002/04/19 14:45:23 spadkins Exp $
  +## $Id: AppFrame.pm,v 1.6 2002/05/09 22:19:38 spadkins Exp $
   ######################################################################
   
   package P5EEx::Blue::Widget::HTML::AppFrame;
  -$VERSION = do { my @r=(q$Revision: 1.5 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
  +$VERSION = do { my @r=(q$Revision: 1.6 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
   
   use P5EEx::Blue::P5EE;
   use P5EEx::Blue::Widget::HTML;
  @@ -159,8 +159,8 @@
   
           if ($screen_wname) {
               $screen_widget     = $context->widget($screen_wname);
  -            $screentitle_value = $screen_widget->label();
  -            $screentitle_value = $selector_widget->get_selected("value") if 
(!$screentitle_value);
  +            $screentitle_value = $selector_widget->get_selected("value");
  +            $screentitle_value = $screen_widget->label() if (!$screentitle_value);
               $screen            = $screen_widget->display();
               $screen_bgcolor    = $screen_widget->get("bgcolor");
               $screen_bgcolor    = "#ffffff" if (!defined $screen_bgcolor);