ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/background
(Generate patch)

Comparing rxvt-unicode/src/perl/background (file contents):
Revision 1.16 by root, Wed Jun 6 11:46:11 2012 UTC vs.
Revision 1.18 by root, Wed Jun 6 15:06:41 2012 UTC

1#! perl 1#! perl
2 2
3#:META:X_RESOURCE:%.expr:string:background expression 3#:META:X_RESOURCE:%.expr:string:background expression
4#:META:X_RESOURCE:%.enable:boolean:some boolean 4#:META:X_RESOURCE:%.enable:boolean:some boolean
5#:META:X_RESOURCE:%.extra.*:value:extra config 5#:META:X_RESOURCE:%.extra.:value:extra config
6 6
7our $EXPR = 'move load "/root/pix/das_fette_schwein.jpg", repeat_wrap, X, Y'; 7our $EXPR = 'move load "/root/pix/das_fette_schwein.jpg", repeat_wrap, X, Y';
8$EXPR = ' 8$EXPR = '
9 rotate W, H, 50, 50, counter 1/59.95, repeat_mirror, 9 rotate W, H, 50, 50, counter 1/59.95, repeat_mirror,
10 clip X, Y, W, H, repeat_mirror, 10 clip X, Y, W, H, repeat_mirror,
… …
24our $MIN_INTERVAL = 1/100; 24our $MIN_INTERVAL = 1/100;
25 25
26{ 26{
27 package urxvt::bgdsl; # background language 27 package urxvt::bgdsl; # background language
28 28
29 *repeat_black = \&urxvt::RepeatNone; #TODO wtf 29 *repeat_empty = \&urxvt::RepeatNone;
30 *repeat_wrap = \&urxvt::RepeatNormal; 30 *repeat_tile = \&urxvt::RepeatNormal;
31 *repeat_pad = \&urxvt::RepeatPad; 31 *repeat_pad = \&urxvt::RepeatPad;
32 *repeat_mirror = \&urxvt::RepeatReflect; 32 *repeat_mirror = \&urxvt::RepeatReflect;
33 33
34=head2 PROVIDERS/GENERATORS 34=head2 PROVIDERS/GENERATORS
35 35
… …
252} 252}
253 253
254sub on_start { 254sub on_start {
255 my ($self) = @_; 255 my ($self) = @_;
256 256
257 warn $self->x_resource ("background.enable");
258
259 $self->set_expr (parse_expr $EXPR); 257 $self->set_expr (parse_expr $EXPR);
260 258
261 () 259 ()
262} 260}
263 261

Diff Legend

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