cvsuser 02/04/05 14:25:18
Modified: P5EEx/Blue/P5EEx/Blue/Widget/HTML AppFrame.pm
Log:
add font configuration for the message display box
Revision Changes Path
1.4 +20 -5 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.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- AppFrame.pm 2 Mar 2002 03:07:47 -0000 1.3
+++ AppFrame.pm 5 Apr 2002 22:25:18 -0000 1.4
@@ -1,10 +1,10 @@
######################################################################
-## $Id: AppFrame.pm,v 1.3 2002/03/02 03:07:47 spadkins Exp $
+## $Id: AppFrame.pm,v 1.4 2002/04/05 22:25:18 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::AppFrame;
-$VERSION = do { my @r=(q$Revision: 1.3 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.4 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::P5EE;
use P5EEx::Blue::Widget::HTML;
@@ -205,17 +205,32 @@
$messages = $wc->{messages};
$messagebox = "";
if (defined $messages && $messages ne "") {
+ my ($elem_begin, $elem_end, $fontFace, $fontSize, $fontColor);
+ $fontFace = $self->{fontFace} || "verdana,geneva,arial,sans-serif";
+ $fontSize = $self->{fontSize} || "+1";
+ $fontColor = $self->{fontColor};
+ $elem_begin = "";
+ $elem_end = "";
+ if ($fontFace || $fontSize || $fontColor) {
+ $elem_begin = "<font";
+ $elem_begin .= " face=\"$fontFace\"" if ($fontFace);
+ $elem_begin .= " size=\"" . ($fontSize+1) . "\"" if ($fontSize);
+ $elem_begin .= " color=\"$fontColor\"" if ($fontColor);
+ $elem_begin .= ">";
+ $elem_end = "</font>";
+ }
+
$messagebox = <<EOF;
-<table width=100% border=0 cellspacing=0 cellpadding=6>
+<table width=100% border=0 cellspacing=0 cellpadding=4>
<TR>
<TD>
<table width=100% border=0 cellspacing=0 cellpadding=4>
<TR>
- <TD class=body_sub1 valign=top align=left
bgcolor=#ffcccc><B>Messages</B></TD>
+ <TD class=body_sub1 valign=top align=left
bgcolor=#ffaaaa>$elem_begin<B>Messages</B>$elem_end</TD>
</TR>
<TR>
<TD valign=top align=left class=body_sub2>
- $messages
+ $elem_begin$messages$elem_end
</TD>
</TR>
<TR>
