[ViewVC] Diff of: cvs/rxvt-unicode/src/perl/background

Comparing rxvt-unicode/src/perl/background (file contents):
Revision 1.92 by sf-exg, Thu Jul 14 05:33:26 2016 UTC vs.
Revision 1.93 by sf-exg, Thu Jul 14 13:57:51 2016 UTC

    my $expr;
    my $bg_opts = $self->{bg_opts};
-   if ($bg_opts->{root}) {
+   if ($bg_opts->{root} =~ /^\s*(?:true|yes|on|1)\s*$/i) {
       $expr .= "tile (";
       my $shade = $bg_opts->{shade};
       if ($shade) {
    1
 }
 sub find_resource {
-   my ($self, $a, $b) = @_;
+   my ($self, $res, $opt) = @_;
-   my $v = $self->x_resource ($a);
+   my $v = $self->x_resource ($opt);
-   $v = $self->x_resource ($b) unless defined $v;
+   $v = $self->x_resource ($res) unless defined $v;
    $v
 }
 sub on_start {
                            h_align => 50, v_align => 50 };
       $self->{bg_opts}->{shade} = $self->find_resource ("shading", "sh");
       $self->{bg_opts}->{tint} = $self->find_resource ("tintColor", "tint");
       $self->{bg_opts}->{blur} = $self->find_resource ("blurRadius", "blr");
-      if ($self->x_resource_boolean ("transparent")
+      $self->{bg_opts}->{root} = $self->find_resource ("transparent", "tr");
-          or $self->x_resource_boolean ("tr")) {
-         $self->{bg_opts}->{root} = 1;
-      }
       $self->old_bg_opts ($self->find_resource ("backgroundPixmap", "pixmap"));
       $expr = $self->old_bg_expr;
    }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines