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.39 by root, Fri Jun 8 22:19:03 2012 UTC vs.
Revision 1.48 by root, Sun Jun 10 15:01:14 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:%.border.:boolean:respect the terminal border 4#:META:X_RESOURCE:%.border:boolean:respect the terminal border
5#:META:X_RESOURCE:%.interval:seconds:minimum time between updates
5 6
6#TODO: once, rootalign 7#TODO: once, rootalign
7 8
9=head1 NAME
10
8=head1 background - manage terminal background 11 background - manage terminal background
9 12
10=head2 SYNOPSIS 13=head1 SYNOPSIS
11 14
12 urxvt --background-expr 'background expression' 15 urxvt --background-expr 'background expression'
13 --background-border 16 --background-border
17 --background-interval seconds
14 18
15=head2 DESCRIPTION 19=head1 DESCRIPTION
16 20
17This extension manages the terminal background by creating a picture that 21This extension manages the terminal background by creating a picture that
18is behind the text, replacing the normal background colour. 22is behind the text, replacing the normal background colour.
19 23
20It does so by evaluating a Perl expression that I<calculates> the image on 24It does so by evaluating a Perl expression that I<calculates> the image on
… …
30 34
31Or specified as a X resource: 35Or specified as a X resource:
32 36
33 URxvt.background-expr: scale load "/path/to/mybg.png" 37 URxvt.background-expr: scale load "/path/to/mybg.png"
34 38
35=head2 THEORY OF OPERATION 39=head1 THEORY OF OPERATION
36 40
37At startup, just before the window is mapped for the first time, the 41At startup, just before the window is mapped for the first time, the
38expression is evaluated and must yield an image. The image is then 42expression is evaluated and must yield an image. The image is then
39extended as necessary to cover the whole terminal window, and is set as a 43extended as necessary to cover the whole terminal window, and is set as a
40background pixmap. 44background pixmap.
… …
57image to the window size, so it relies on the window size and will 61image to the window size, so it relies on the window size and will
58be reevaluated each time it is changed, but not when it moves for 62be reevaluated each time it is changed, but not when it moves for
59example. That ensures that the picture always fills the terminal, even 63example. That ensures that the picture always fills the terminal, even
60after it's size changes. 64after it's size changes.
61 65
62=head3 EXPRESSIONS 66=head2 EXPRESSIONS
63 67
64Expressions are normal Perl expressions, in fact, they are Perl blocks - 68Expressions are normal Perl expressions, in fact, they are Perl blocks -
65which means you could use multiple lines and statements: 69which means you could use multiple lines and statements:
66 70
67 again 3600; 71 again 3600;
… …
97its result becomes the argument to the C<scale> function. 101its result becomes the argument to the C<scale> function.
98 102
99Many operators also allow some parameters preceding the input image 103Many operators also allow some parameters preceding the input image
100that modify its behaviour. For example, C<scale> without any additional 104that modify its behaviour. For example, C<scale> without any additional
101arguments scales the image to size of the terminal window. If you specify 105arguments scales the image to size of the terminal window. If you specify
102an additional argument, it uses it as a percentage: 106an additional argument, it uses it as a scale factor (multiply by 100 to
107get a percentage):
103 108
104 scale 200, load "$HOME/mypic.png" 109 scale 2, load "$HOME/mypic.png"
105 110
106This enlarges the image by a factor of 2 (200%). As you can see, C<scale> 111This enlarges the image by a factor of 2 (200%). As you can see, C<scale>
107has now two arguments, the C<200> and the C<load> expression, while 112has now two arguments, the C<200> and the C<load> expression, while
108C<load> only has one argument. Arguments are separated from each other by 113C<load> only has one argument. Arguments are separated from each other by
109commas. 114commas.
110 115
111Scale also accepts two arguments, which are then separate factors for both 116Scale also accepts two arguments, which are then separate factors for both
112horizontal and vertical dimensions. For example, this halves the image 117horizontal and vertical dimensions. For example, this halves the image
113width and doubles the image height: 118width and doubles the image height:
114 119
115 scale 50, 200, load "$HOME/mypic.png" 120 scale 0.5, 2, load "$HOME/mypic.png"
116 121
117Other effects than scalign are also readily available, for exmaple, you can 122Other effects than scalign are also readily available, for exmaple, you can
118tile the image to fill the whole window, instead of resizing it: 123tile the image to fill the whole window, instead of resizing it:
119 124
120 tile load "$HOME/mypic.png" 125 tile load "$HOME/mypic.png"
… …
133It first takes a snapshot of the screen background image, and then 138It first takes a snapshot of the screen background image, and then
134moves it to the upper left corner of the screen - the result is 139moves it to the upper left corner of the screen - the result is
135pseudo-transparency, as the image seems to be static while the window is 140pseudo-transparency, as the image seems to be static while the window is
136moved around. 141moved around.
137 142
138=head3 CYCLES AND CACHING 143=head2 CYCLES AND CACHING
139 144
140As has been mentioned before, the expression might be evaluated multiple 145As has been mentioned before, the expression might be evaluated multiple
141times. Each time the expression is reevaluated, a new cycle is said to 146times. Each time the expression is reevaluated, a new cycle is said to
142have begun. Many operators cache their results till the next cycle. 147have begun. Many operators cache their results till the next cycle.
143 148
… …
168 173
169Here, a path is selected randomly, and load is only called for one image, 174Here, a path is selected randomly, and load is only called for one image,
170so keeps only one image in memory. If, on the next evaluation, luck 175so keeps only one image in memory. If, on the next evaluation, luck
171decides to use the other path, then it will have to load that image again. 176decides to use the other path, then it will have to load that image again.
172 177
173=head2 REFERENCE 178=head1 REFERENCE
174 179
175=head3 COMMAND LINE SWITCHES 180=head2 COMMAND LINE SWITCHES
176 181
177=over 4 182=over 4
178 183
179=item --background-expr perl-expression 184=item --background-expr perl-expression
180 185
… …
185By default, the expression creates an image that fills the full window, 190By default, the expression creates an image that fills the full window,
186overwriting borders and any other areas, such as the scrollbar. 191overwriting borders and any other areas, such as the scrollbar.
187 192
188Specifying this flag changes the behaviour, so that the image only 193Specifying this flag changes the behaviour, so that the image only
189replaces the background of the character area. 194replaces the background of the character area.
195
196=item --background-interval seconds
197
198Since some operations in the underlying XRender extension can effetively
199freeze your X-server for prolonged time, this extension enforces a minimum
200time between updates, which is normally about 0.1 seconds.
201
202If you want to do updates more often, you can decrease this safety
203interval with this switch.
190 204
191=back 205=back
192 206
193=cut 207=cut
194 208
195our $HOME; 209our $HOME;
196our ($self, $old, $new); 210our ($self, $old, $new);
197our ($x, $y, $w, $h); 211our ($x, $y, $w, $h);
198 212
199# enforce at least this interval between updates 213# enforce at least this interval between updates
200our $MIN_INTERVAL = 1/100; 214our $MIN_INTERVAL = 6/59.951;
201 215
202{ 216{
203 package urxvt::bgdsl; # background language 217 package urxvt::bgdsl; # background language
218
219 use List::Util qw(min max sum shuffle);
204 220
205=head2 PROVIDERS/GENERATORS 221=head2 PROVIDERS/GENERATORS
206 222
207These functions provide an image, by loading it from disk, grabbing it 223These functions provide an image, by loading it from disk, grabbing it
208from the root screen or by simply generating it. They are used as starting 224from the root screen or by simply generating it. They are used as starting
… …
245=item solid $width, $height, $colour 261=item solid $width, $height, $colour
246 262
247Creates a new image and completely fills it with the given colour. The 263Creates a new image and completely fills it with the given colour. The
248image is set to tiling mode. 264image is set to tiling mode.
249 265
250If <$width> and C<$height> are omitted, it creates a 1x1 image, which is 266If C<$width> and C<$height> are omitted, it creates a 1x1 image, which is
251useful for solid backgrounds or for use in filtering effects. 267useful for solid backgrounds or for use in filtering effects.
252 268
253=cut 269=cut
254 270
255 sub solid($$;$) { 271 sub solid($;$$) {
256 my $colour = pop; 272 my $colour = pop;
257 273
258 my $img = $self->new_img (urxvt::PictStandardARGB32, $_[0] || 1, $_[1] || 1); 274 my $img = $self->new_img (urxvt::PictStandardARGB32, $_[0] || 1, $_[1] || 1);
259 $img->fill ($colour); 275 $img->fill ($colour);
260 $img 276 $img
261 } 277 }
262 278
279=item clone $img
280
281Returns an exact copy of the image. This is useful if you want to have
282multiple copies of the same image to apply different effects to.
283
284=cut
285
286 sub clone($) {
287 $_[0]->clone
288 }
289
263=back 290=back
264 291
292=head2 TILING MODES
293
294The following operators modify the tiling mode of an image, that is, the
295way that pixels outside the image area are painted when the image is used.
296
297=over 4
298
299=item tile $img
300
301Tiles the whole plane with the image and returns this new image - or in
302other words, it returns a copy of the image in plane tiling mode.
303
304Example: load an image and tile it over the background, without
305resizing. The C<tile> call is superfluous because C<load> already defaults
306to tiling mode.
307
308 tile load "mybg.png"
309
310=item mirror $img
311
312Similar to tile, but reflects the image each time it uses a new copy, so
313that top edges always touch top edges, right edges always touch right
314edges and so on (with normal tiling, left edges always touch right edges
315and top always touch bottom edges).
316
317Example: load an image and mirror it over the background, avoiding sharp
318edges at the image borders at the expense of mirroring the image itself
319
320 mirror load "mybg.png"
321
322=item pad $img
323
324Takes an image and modifies it so that all pixels outside the image area
325become transparent. This mode is most useful when you want to place an
326image over another image or the background colour while leaving all
327background pixels outside the image unchanged.
328
329Example: load an image and display it in the upper left corner. The rest
330of the space is left "empty" (transparent or wahtever your compisotr does
331in alpha mode, else background colour).
332
333 pad load "mybg.png"
334
335=item extend $img
336
337Extends the image over the whole plane, using the closest pixel in the
338area outside the image. This mode is mostly useful when you more complex
339filtering operations and want the pixels outside the image to have the
340same values as the pixels near the edge.
341
342Example: just for curiosity, how does this pixel extension stuff work?
343
344 extend move 50, 50, load "mybg.png"
345
346=cut
347
348 sub pad($) {
349 my $img = $_[0]->clone;
350 $img->repeat_mode (urxvt::RepeatNone);
351 $img
352 }
353
354 sub tile($) {
355 my $img = $_[0]->clone;
356 $img->repeat_mode (urxvt::RepeatNormal);
357 $img
358 }
359
360 sub mirror($) {
361 my $img = $_[0]->clone;
362 $img->repeat_mode (urxvt::RepeatReflect);
363 $img
364 }
365
366 sub extend($) {
367 my $img = $_[0]->clone;
368 $img->repeat_mode (urxvt::RepeatPad);
369 $img
370 }
371
372=back
373
265=head2 VARIABLES 374=head2 VARIABLE VALUES
266 375
267The following functions provide variable data such as the terminal 376The following functions provide variable data such as the terminal window
377dimensions. They are not (Perl-) variables, they just return stuff that
268window dimensions. Most of them make your expression sensitive to some 378varies. Most of them make your expression sensitive to some events, for
269events, for example using C<TW> (terminal width) means your expression is 379example using C<TW> (terminal width) means your expression is evaluated
270evaluated again when the terminal is resized. 380again when the terminal is resized.
271 381
272=over 4 382=over 4
273 383
274=item TX 384=item TX
275 385
… …
346 $self->{counter} + 0 456 $self->{counter} + 0
347 } 457 }
348 458
349=back 459=back
350 460
351=head2 TILING MODES 461=head2 SHAPE CHANGING OPERATORS
352 462
353The following operators modify the tiling mode of an image, that is, the 463The following operators modify the shape, size or position of the image.
354way that pixels outside the image area are painted when the image is used.
355 464
356=over 4 465=over 4
357
358=item tile $img
359
360Tiles the whole plane with the image and returns this new image - or in
361other words, it returns a copy of the image in plane tiling mode.
362
363Example: load an image and tile it over the background, without
364resizing. The C<tile> call is superfluous because C<load> already defaults
365to tiling mode.
366
367 tile load "mybg.png"
368
369=item mirror $img
370
371Similar to tile, but reflects the image each time it uses a new copy, so
372that top edges always touch top edges, right edges always touch right
373edges and so on (with normal tiling, left edges always touch right edges
374and top always touch bottom edges).
375
376Example: load an image and mirror it over the background, avoiding sharp
377edges at the image borders at the expense of mirroring the image itself
378
379 mirror load "mybg.png"
380
381=item pad $img
382
383Takes an image and modifies it so that all pixels outside the image area
384become transparent. This mode is most useful when you want to place an
385image over another image or the background colour while leaving all
386background pixels outside the image unchanged.
387
388Example: load an image and display it in the upper left corner. The rest
389of the space is left "empty" (transparent or wahtever your compisotr does
390in alpha mode, else background colour).
391
392 pad load "mybg.png"
393
394=item extend $img
395
396Extends the image over the whole plane, using the closest pixel in the
397area outside the image. This mode is mostly useful when you more complex
398filtering operations and want the pixels outside the image to have the
399same values as the pixels near the edge.
400
401Example: just for curiosity, how does this pixel extension stuff work?
402
403 extend move 50, 50, load "mybg.png"
404
405=cut
406
407 sub pad($) {
408 my $img = $_[0]->clone;
409 $img->repeat_mode (urxvt::RepeatNone);
410 $img
411 }
412
413 sub tile($) {
414 my $img = $_[0]->clone;
415 $img->repeat_mode (urxvt::RepeatNormal);
416 $img
417 }
418
419 sub mirror($) {
420 my $img = $_[0]->clone;
421 $img->repeat_mode (urxvt::RepeatReflect);
422 $img
423 }
424
425 sub extend($) {
426 my $img = $_[0]->clone;
427 $img->repeat_mode (urxvt::RepeatPad);
428 $img
429 }
430
431=back
432
433=head2 PIXEL OPERATORS
434
435The following operators modify the image pixels in various ways.
436
437=over 4
438
439=item clone $img
440
441Returns an exact copy of the image.
442
443=cut
444
445 sub clone($) {
446 $_[0]->clone
447 }
448 466
449=item clip $img 467=item clip $img
450 468
451=item clip $width, $height, $img 469=item clip $width, $height, $img
452 470
… …
476 $img->sub_rect ($_[0], $_[1], $w, $h) 494 $img->sub_rect ($_[0], $_[1], $w, $h)
477 } 495 }
478 496
479=item scale $img 497=item scale $img
480 498
481=item scale $size_percent, $img 499=item scale $size_factor, $img
482 500
483=item scale $width_percent, $height_percent, $img 501=item scale $width_factor, $height_factor, $img
484 502
485Scales the image by the given percentages in horizontal 503Scales the image by the given factors in horizontal
486(C<$width_percent>) and vertical (C<$height_percent>) direction. 504(C<$width>) and vertical (C<$height>) direction.
487 505
488If only one percentage is give, it is used for both directions. 506If only one factor is give, it is used for both directions.
489 507
490If no percentages are given, scales the image to the window size without 508If no factors are given, scales the image to the window size without
491keeping aspect. 509keeping aspect.
492 510
493=item resize $width, $height, $img 511=item resize $width, $height, $img
494 512
495Resizes the image to exactly C<$width> times C<$height> pixels. 513Resizes the image to exactly C<$width> times C<$height> pixels.
496 514
497=cut 515=item fit $img
498 516
499#TODO: maximise, maximise_fill? 517=item fit $width, $height, $img
518
519Fits the image into the given C<$width> and C<$height> without changing
520aspect, or the terminal size. That means it will be shrunk or grown until
521the whole image fits into the given area, possibly leaving borders.
522
523=item cover $img
524
525=item cover $width, $height, $img
526
527Similar to C<fit>, but shrinks or grows until all of the area is covered
528by the image, so instead of potentially leaving borders, it will cut off
529image data that doesn't fit.
530
531=cut
500 532
501 sub scale($;$;$) { 533 sub scale($;$;$) {
502 my $img = pop; 534 my $img = pop;
503 535
504 @_ == 2 ? $img->scale ($_[0] * $img->w * 0.01, $_[1] * $img->h * 0.01) 536 @_ == 2 ? $img->scale ($_[0] * $img->w, $_[1] * $img->h)
505 : @_ ? $img->scale ($_[0] * $img->w * 0.01, $_[0] * $img->h * 0.01) 537 : @_ ? $img->scale ($_[0] * $img->w, $_[0] * $img->h)
506 : $img->scale (TW, TH) 538 : $img->scale (TW, TH)
507 } 539 }
508 540
509 sub resize($$$) { 541 sub resize($$$) {
510 my $img = pop; 542 my $img = pop;
511 $img->scale ($_[0], $_[1]) 543 $img->scale ($_[0], $_[1])
544 }
545
546 sub fit($;$$) {
547 my $img = pop;
548 my $w = ($_[0] || TW) / $img->w;
549 my $h = ($_[1] || TH) / $img->h;
550 scale +(min $w, $h), $img
551 }
552
553 sub cover($;$$) {
554 my $img = pop;
555 my $w = ($_[0] || TW) / $img->w;
556 my $h = ($_[1] || TH) / $img->h;
557 scale +(max $w, $h), $img
512 } 558 }
513 559
514=item move $dx, $dy, $img 560=item move $dx, $dy, $img
515 561
516Moves the image by C<$dx> pixels in the horizontal, and C<$dy> pixels in 562Moves the image by C<$dx> pixels in the horizontal, and C<$dy> pixels in
517the vertical. 563the vertical.
518 564
519Example: move the image right by 20 pixels and down by 30. 565Example: move the image right by 20 pixels and down by 30.
520 566
521 move 20, 30, ... 567 move 20, 30, ...
568
569=item align $xalign, $yalign, $img
570
571Aligns the image according to a factor - C<0> means the image is moved to
572the left or top edge (for C<$xalign> or C<$yalign>), C<0.5> means it is
573exactly centered and C<1> means it touches the right or bottom edge.
574
575Example: remove any visible border around an image, center it vertically but move
576it to the right hand side.
577
578 align 1, 0.5, pad $img
579
580=item center $img
581
582=item center $width, $height, $img
583
584Centers the image, i.e. the center of the image is moved to the center of
585the terminal window (or the box specified by C<$width> and C<$height> if
586given).
587
588Example: load an image and center it.
589
590 center pad load "mybg.png"
522 591
523=item rootalign $img 592=item rootalign $img
524 593
525Moves the image so that it appears glued to the screen as opposed to the 594Moves the image so that it appears glued to the screen as opposed to the
526window. This gives the illusion of a larger area behind the window. It is 595window. This gives the illusion of a larger area behind the window. It is
… …
532 rootalign mirror load "mybg.png" 601 rootalign mirror load "mybg.png"
533 602
534Example: take the screen background and align it, giving the illusion of 603Example: take the screen background and align it, giving the illusion of
535transparency as long as the window isn't in front of other windows. 604transparency as long as the window isn't in front of other windows.
536 605
537 rootalign root 606 rootalign root
538 607
539=cut 608=cut
540 609
541 sub move($$;$) { 610 sub move($$;$) {
542 my $img = pop->clone; 611 my $img = pop->clone;
543 $img->move ($_[0], $_[1]); 612 $img->move ($_[0], $_[1]);
544 $img 613 $img
545 } 614 }
546 615
616 sub align($;$$) {
617 my $img = pop;
618
619 move $_[0] * (TW - $img->w),
620 $_[1] * (TH - $img->h),
621 $img
622 }
623
624 sub center($;$$) {
625 my $img = pop;
626 my $w = $_[0] || TW;
627 my $h = $_[1] || TH;
628
629 move 0.5 * ($w - $img->w), 0.5 * ($h - $img->h), $img
630 }
631
547 sub rootalign($) { 632 sub rootalign($) {
548 move -TX, -TY, $_[0] 633 move -TX, -TY, $_[0]
549 } 634 }
550 635
636=back
637
638=head2 COLOUR MODIFICATIONS
639
640The following operators change the pixels of the image.
641
642=over 4
643
551=item contrast $factor, $img 644=item contrast $factor, $img
552 645
553=item contrast $r, $g, $b, $img 646=item contrast $r, $g, $b, $img
554 647
555=item contrast $r, $g, $b, $a, $img 648=item contrast $r, $g, $b, $a, $img
556 649
557Adjusts the I<contrast> of an image. 650Adjusts the I<contrast> of an image.
558 651
559#TODO# 652The first form applies a single C<$factor> to red, green and blue, the
653second form applies separate factors to each colour channel, and the last
654form includes the alpha channel.
560 655
656Values from 0 to 1 lower the contrast, values higher than 1 increase the
657contrast.
658
659Due to limitations in the underlying XRender extension, lowering contrast
660also reduces brightness, while increasing contrast currently also
661increases brightness.
662
561=item brightness $factor, $img 663=item brightness $bias, $img
562 664
563=item brightness $r, $g, $b, $img 665=item brightness $r, $g, $b, $img
564 666
565=item brightness $r, $g, $b, $a, $img 667=item brightness $r, $g, $b, $a, $img
566 668
567Adjusts the brightness of an image. 669Adjusts the brightness of an image.
670
671The first form applies a single C<$bias> to red, green and blue, the
672second form applies separate biases to each colour channel, and the last
673form includes the alpha channel.
674
675Values less than 0 reduce brightness, while values larger than 0 increase
676it. Useful range is from -1 to 1 - the former results in a black, the
677latter in a white picture.
678
679Due to idiosynchrasies in the underlying XRender extension, biases less
680than zero can be I<very> slow.
568 681
569=cut 682=cut
570 683
571 sub contrast($$;$$;$) { 684 sub contrast($$;$$;$) {
572 my $img = pop; 685 my $img = pop;
… …
612 } 725 }
613 726
614=item rotate $new_width, $new_height, $center_x, $center_y, $degrees 727=item rotate $new_width, $new_height, $center_x, $center_y, $degrees
615 728
616Rotates the image by C<$degrees> degrees, counter-clockwise, around the 729Rotates the image by C<$degrees> degrees, counter-clockwise, around the
617pointer at C<$center_x> and C<$center_y> (specified as percentage of image 730pointer at C<$center_x> and C<$center_y> (specified as factor of image
618width/height), generating a new image with width C<$new_width> and height 731width/height), generating a new image with width C<$new_width> and height
619C<$new_height>. 732C<$new_height>.
620 733
621#TODO# new width, height, maybe more operators? 734#TODO# new width, height, maybe more operators?
622 735
… …
627 sub rotate($$$$$$) { 740 sub rotate($$$$$$) {
628 my $img = pop; 741 my $img = pop;
629 $img->rotate ( 742 $img->rotate (
630 $_[0], 743 $_[0],
631 $_[1], 744 $_[1],
632 $_[2] * $img->w * .01, 745 $_[2] * $img->w,
633 $_[3] * $img->h * .01, 746 $_[3] * $img->h,
634 $_[4] * (3.14159265 / 180), 747 $_[4] * (3.14159265 / 180),
635 ) 748 )
636 } 749 }
637 750
638=back 751=back
… …
683 796
684 # evaluate user expression 797 # evaluate user expression
685 798
686 my $img = eval { $self->{expr}->() }; 799 my $img = eval { $self->{expr}->() };
687 warn $@ if $@;#d# 800 warn $@ if $@;#d#
688 die if !UNIVERSAL::isa $img, "urxvt::img"; 801 die "background-expr did not return an image.\n" if !UNIVERSAL::isa $img, "urxvt::img";
689 802
690 $state->{size_sensitive} = 1 803 $state->{size_sensitive} = 1
691 if $img->repeat_mode != urxvt::RepeatNormal; 804 if $img->repeat_mode != urxvt::RepeatNormal;
692 805
693 # if the expression is sensitive to external events, prepare reevaluation then 806 # if the expression is sensitive to external events, prepare reevaluation then
… …
743} 856}
744 857
745sub on_start { 858sub on_start {
746 my ($self) = @_; 859 my ($self) = @_;
747 860
748 my $expr = $self->x_resource ("background.expr") 861 my $expr = $self->x_resource ("%.expr")
749 or return; 862 or return;
750 863
864 $self->has_render
865 or die "background extension needs RENDER extension 0.10 or higher, ignoring background-expr.\n";
866
751 $self->set_expr (parse_expr $expr); 867 $self->set_expr (parse_expr $expr);
752 $self->{border} = $self->x_resource_boolean ("background.border"); 868 $self->{border} = $self->x_resource_boolean ("%.border");
869
870 $MIN_INTERVAL = $self->x_resource ("%.interval");
753 871
754 () 872 ()
755} 873}
756 874

Diff Legend

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