repo: rxvt-unicode-sixel
action: commit
revision: 
path_from: 
revision_from: db948706483e309284bdd5fce4c1dd563d77764b:
path_to: 
revision_to: 

commit db948706483e309284bdd5fce4c1dd563d77764b
Author: Marc Lehmann 
Date:   Thu Jun 7 10:19:23 2012 +0000

    *** empty log message ***

diff --git a/src/perl/background b/src/perl/background

--- a/src/perl/background
+++ b/src/perl/background
@@ -4,7 +4,7 @@
 #:META:X_RESOURCE:%.enable:boolean:some boolean
 #:META:X_RESOURCE:%.extra.:value:extra config

-our $EXPR = 'clip -50, -50, 150, 100, move X, Y, load "MagnoliaAlpha.png"';
+our $EXPR = 'clip move X, Y, load "MagnoliaAlpha.png"';
 #$EXPR = '
 #   rotate W, H, 50, 50, counter 1/59.95, repeat_mirror,
 #   clip X, Y, W, H, repeat_mirror,
@@ -203,6 +203,8 @@ sub recalculate {
    ($l, $t, $w, $h) =
       $self->get_geometry;

+      warn "$l,$t,$w,$h\n";#d#
+
    # evaluate user expression

    my $img = eval { $self->{expr}->() };
diff --git a/src/rxvtimg.C b/src/rxvtimg.C

--- a/src/rxvtimg.C
+++ b/src/rxvtimg.C
@@ -428,7 +428,9 @@ rxvt_img::sub_rect (int x, int y, int width, int height)
       img->w = width;
       img->h = height;

-      img->reify ();
+      rxvt_img *img2 = img->reify ();
+      delete img;
+      img = img2;
     }

   return img;

-----END OF PAGE-----