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

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.45 by root, Sat Jan 7 20:23:52 2006 UTC vs.
Revision 1.53 by root, Sun Jan 8 01:16:09 2006 UTC

… …
331 331
332=item $time = urxvt::NOW 332=item $time = urxvt::NOW
333 333
334Returns the "current time" (as per the event loop). 334Returns the "current time" (as per the event loop).
335 335
336=item urxvt::CurrentTime
337
338=item urxvt::ShiftMask, LockMask, ControlMask, Mod1Mask, Mod2Mask,
339Mod3Mask, Mod4Mask, Mod5Mask, Button1Mask, Button2Mask, Button3Mask,
340Button4Mask, Button5Mask, AnyModifier
341
342Various constants for use in X events.
343
336=back 344=back
337 345
338=head2 RENDITION 346=head2 RENDITION
339 347
340Rendition bitsets contain information about colour, font, font styles and 348Rendition bitsets contain information about colour, font, font styles and
… …
389 397
390=cut 398=cut
391 399
392package urxvt; 400package urxvt;
393 401
402use utf8;
394use strict; 403use strict;
395use Scalar::Util (); 404use Scalar::Util ();
405use List::Util ();
396 406
397our $TERM; 407our $TERM;
398our @HOOKNAME; 408our @HOOKNAME;
409our %OPTION;
399our $LIBDIR; 410our $LIBDIR;
400 411
401BEGIN { 412BEGIN {
402 urxvt->bootstrap; 413 urxvt->bootstrap;
403 414
… …
469 local $TERM = shift; 480 local $TERM = shift;
470 my $htype = shift; 481 my $htype = shift;
471 482
472 if ($htype == 0) { # INIT 483 if ($htype == 0) { # INIT
473 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); 484 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl");
485
486 my %want_ext;
474 487
475 for my $ext (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) { 488 for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
489 if ($_ eq "default") {
490 $want_ext{$_}++ for qw(selection option-popup);
491 } elsif (/^-(.*)$/) {
492 delete $want_ext{$1};
493 } else {
494 $want_ext{$_}++;
495 }
496 }
497
498 for my $ext (keys %want_ext) {
476 my @files = grep -f $_, map "$_/$ext", @dirs; 499 my @files = grep -f $_, map "$_/$ext", @dirs;
477 500
478 if (@files) { 501 if (@files) {
479 register_package extension_package $files[0]; 502 register_package extension_package $files[0];
480 } else { 503 } else {
… …
554 577
555=item $term->destroy 578=item $term->destroy
556 579
557Destroy the terminal object (close the window, free resources etc.). 580Destroy the terminal object (close the window, free resources etc.).
558 581
582=item $isset = $term->option ($optval[, $set])
583
584Returns true if the option specified by C<$optval> is enabled, and
585optionally change it. All option values are stored by name in the hash
586C<%urxvt::OPTION>. Options not enabled in this binary are not in the hash.
587
588Here is a a likely non-exhaustive list of option names, please see the
589source file F</src/optinc.h> to see the actual list:
590
591 borderLess console cursorBlink cursorUnderline hold iconic insecure
592 intensityStyles jumpScroll loginShell mapAlert meta8 mouseWheelScrollPage
593 pastableTabs pointerBlank reverseVideo scrollBar scrollBar_floating
594 scrollBar_right scrollTtyKeypress scrollTtyOutput scrollWithBuffer
595 secondaryScreen secondaryScroll skipBuiltinGlyphs transparent
596 tripleclickwords utmpInhibit visualBell
597
559=item $value = $term->resource ($name[, $newval]) 598=item $value = $term->resource ($name[, $newval])
560 599
561Returns the current resource value associated with a given name and 600Returns the current resource value associated with a given name and
562optionally sets a new value. Setting values is most useful in the C<init> 601optionally sets a new value. Setting values is most useful in the C<init>
563hook. Unset resources are returned and accepted as C<undef>. 602hook. Unset resources are returned and accepted as C<undef>.
… …
572 611
573Please note that resource strings will currently only be freed when the 612Please note that resource strings will currently only be freed when the
574terminal is destroyed, so changing options frequently will eat memory. 613terminal is destroyed, so changing options frequently will eat memory.
575 614
576Here is a a likely non-exhaustive list of resource names, not all of which 615Here is a a likely non-exhaustive list of resource names, not all of which
577are supported in every build, please see the source to see the actual 616are supported in every build, please see the source file F</src/rsinc.h>
578list: 617to see the actual list:
579 618
580 answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont 619 answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont
581 borderLess color cursorBlink cursorUnderline cutchars delete_key 620 borderLess color cursorBlink cursorUnderline cutchars delete_key
582 display_name embed ext_bwidth fade font geometry hold iconName 621 display_name embed ext_bwidth fade font geometry hold iconName
583 imFont imLocale inputMethod insecure int_bwidth intensityStyles 622 imFont imLocale inputMethod insecure int_bwidth intensityStyles
… …
776 815
777=item $lines_in_scrollback = $term->nsaved 816=item $lines_in_scrollback = $term->nsaved
778 817
779Return various integers describing terminal characteristics. 818Return various integers describing terminal characteristics.
780 819
820=item $modifiermask = $term->ModLevel3Mask
821
822=item $modifiermask = $term->ModMetaMask
823
824=item $modifiermask = $term->ModNumLockMask
825
826Return the modifier masks corresponding to the "ISO Level 3 Shift" (often
827AltGr), the meta key (often Alt) and the num lock key, if applicable.
828
781=item $view_start = $term->view_start ([$newvalue]) 829=item $view_start = $term->view_start ([$newvalue])
782 830
783Returns the negative row number of the topmost line. Minimum value is 831Returns the negative row number of the topmost line. Minimum value is
784C<0>, which displays the normal terminal contents. Larger values scroll 832C<0>, which displays the normal terminal contents. Larger values scroll
785this many lines into the scrollback buffer. 833this many lines into the scrollback buffer.
… …
977package urxvt::popup; 1025package urxvt::popup;
978 1026
979sub add_item { 1027sub add_item {
980 my ($self, $item) = @_; 1028 my ($self, $item) = @_;
981 1029
1030 $item->{rend}{normal} = "\x1b[0;30;47m" unless exists $item->{rend}{normal};
1031 $item->{rend}{hover} = "\x1b[0;30;46m" unless exists $item->{rend}{hover};
1032 $item->{rend}{active} = "\x1b[m" unless exists $item->{rend}{active};
1033
1034 $item->{render} ||= sub { $_[0]{text} };
1035
982 push @{ $self->{item} }, $item; 1036 push @{ $self->{item} }, $item;
1037}
1038
1039sub add_separator {
1040 my ($self, $sep) = @_;
1041
1042 $sep ||= "═";
1043
1044 $self->add_item ({
1045 rend => { normal => "\x1b[0;30;47m", hover => "\x1b[0;30;47m", active => "\x1b[0;30;47m" },
1046 text => "",
1047 render => sub { $sep x $urxvt::TERM->ncol },
1048 activate => sub { },
1049 });
1050}
1051
1052sub add_title {
1053 my ($self, $title) = @_;
1054
1055 $self->add_item ({
1056 rend => { normal => "\x1b[38;5;11;44m", hover => "\x1b[38;5;11;44m", active => "\x1b[38;5;11;44m" },
1057 text => $title,
1058 activate => sub { },
1059 });
983} 1060}
984 1061
985sub add_button { 1062sub add_button {
986 my ($self, $text, $cb) = @_; 1063 my ($self, $text, $cb) = @_;
987 1064
988 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb }); 1065 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb});
1066}
1067
1068sub add_toggle {
1069 my ($self, $text, $cb, $value) = @_;
1070
1071 my $item; $item = {
1072 type => "button",
1073 text => " $text",
1074 value => $value,
1075 render => sub { ($item->{value} ? "* " : " ") . $text },
1076 activate => sub { $cb->($item->{value} = !$item->{value}); },
1077 };
1078
1079 $self->add_item ($item);
989} 1080}
990 1081
991sub show { 1082sub show {
992 my ($self) = @_; 1083 my ($self) = @_;
993 1084
994 local $urxvt::popup::self = $self; 1085 local $urxvt::popup::self = $self;
995 1086
996 urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0, 1087 urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0,
997 "--transient-for" => $self->{term}->parent, 1088 "--transient-for" => $self->{term}->parent,
998 "-pe" => "urxvt_popup") 1089 "-pe" => "urxvt-popup")
999 or die "unable to create popup window\n"; 1090 or die "unable to create popup window\n";
1000} 1091}
1001 1092
1002sub DESTROY { 1093sub DESTROY {
1003 my ($self) = @_; 1094 my ($self) = @_;

Diff Legend

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