cvsuser 02/03/12 08:56:00
Modified: P5EEx/Blue/P5EEx/Blue/Widget/HTML Stylizable.pm
Log:
added support for UserAgent-sensitive styles
Revision Changes Path
1.2 +9 -4 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/Stylizable.pm
Index: Stylizable.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/Stylizable.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- Stylizable.pm 5 Feb 2002 22:16:05 -0000 1.1
+++ Stylizable.pm 12 Mar 2002 16:56:00 -0000 1.2
@@ -1,10 +1,10 @@
######################################################################
-## $Id: Stylizable.pm,v 1.1 2002/02/05 22:16:05 spadkins Exp $
+## $Id: Stylizable.pm,v 1.2 2002/03/12 16:56:00 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::Stylizable;
-$VERSION = do { my @r=(q$Revision: 1.1 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.2 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::Widget::HTML;
@ISA = ( "P5EEx::Blue::Widget::HTML" );
@@ -94,9 +94,14 @@
my $self = shift;
my ($html);
- my ($var, $value, $stylevar, @style, $options, $class);
+ my ($var, $value, $stylevar, @style, $options, $class, $user_agent);
+
+ $html = $self->unstyled_html();
+ return($html) if ($self->{nostyle});
+
+ $user_agent = $self->{context}->user_agent();
+ return($html) if (! $user_agent->supports("widget.Stylizable.style"));
- $html = $self->unstyled_html;
$class = $self->get("styleClass");
$options = (defined $class && $class ne "") ? " class='$class'" : "";
foreach $var (@style_attrib) {
