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.104 by root, Wed Jan 18 17:49:47 2006 UTC vs.
Revision 1.107 by root, Wed Jan 18 21:30:50 2006 UTC

… …
630 my $msg = join "", @_; 630 my $msg = join "", @_;
631 $msg .= "\n" 631 $msg .= "\n"
632 unless $msg =~ /\n$/; 632 unless $msg =~ /\n$/;
633 urxvt::warn ($msg); 633 urxvt::warn ($msg);
634 }; 634 };
635
636 # %ENV is the original startup environment
637 delete $ENV{IFS};
638 delete $ENV{CDPATH};
639 delete $ENV{BASH_ENV};
640 $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin";
641} 635}
642 636
643my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; 637my $verbosity = $ENV{URXVT_PERL_VERBOSITY};
644 638
645sub verbose { 639sub verbose {
… …
959Here is a a likely non-exhaustive list of option names, please see the 953Here is a a likely non-exhaustive list of option names, please see the
960source file F</src/optinc.h> to see the actual list: 954source file F</src/optinc.h> to see the actual list:
961 955
962 borderLess console cursorBlink cursorUnderline hold iconic insecure 956 borderLess console cursorBlink cursorUnderline hold iconic insecure
963 intensityStyles jumpScroll loginShell mapAlert meta8 mouseWheelScrollPage 957 intensityStyles jumpScroll loginShell mapAlert meta8 mouseWheelScrollPage
964 pastableTabs pointerBlank reverseVideo scrollBar scrollBar_floating 958 override-redirect pastableTabs pointerBlank reverseVideo scrollBar
965 scrollBar_right scrollTtyKeypress scrollTtyOutput scrollWithBuffer 959 scrollBar_floating scrollBar_right scrollTtyKeypress scrollTtyOutput
966 secondaryScreen secondaryScroll skipBuiltinGlyphs transparent 960 scrollWithBuffer secondaryScreen secondaryScroll skipBuiltinGlyphs
967 tripleclickwords utmpInhibit visualBell 961 transparent tripleclickwords utmpInhibit visualBell
968 962
969=item $value = $term->resource ($name[, $newval]) 963=item $value = $term->resource ($name[, $newval])
970 964
971Returns the current resource value associated with a given name and 965Returns the current resource value associated with a given name and
972optionally sets a new value. Setting values is most useful in the C<init> 966optionally sets a new value. Setting values is most useful in the C<init>
… …
989 983
990 answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont 984 answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont
991 borderLess color cursorBlink cursorUnderline cutchars delete_key 985 borderLess color cursorBlink cursorUnderline cutchars delete_key
992 display_name embed ext_bwidth fade font geometry hold iconName 986 display_name embed ext_bwidth fade font geometry hold iconName
993 imFont imLocale inputMethod insecure int_bwidth intensityStyles 987 imFont imLocale inputMethod insecure int_bwidth intensityStyles
994 italicFont jumpScroll lineSpace loginShell mapAlert menu meta8 modifier 988 italicFont jumpScroll lineSpace loginShell mapAlert meta8 modifier
995 mouseWheelScrollPage name pastableTabs path perl_eval perl_ext_1 perl_ext_2 989 mouseWheelScrollPage name override_redirect pastableTabs path perl_eval
996 perl_lib pointerBlank pointerBlankDelay preeditType print_pipe pty_fd 990 perl_ext_1 perl_ext_2 perl_lib pointerBlank pointerBlankDelay
997 reverseVideo saveLines scrollBar scrollBar_align scrollBar_floating 991 preeditType print_pipe pty_fd reverseVideo saveLines scrollBar
998 scrollBar_right scrollBar_thickness scrollTtyKeypress scrollTtyOutput 992 scrollBar_align scrollBar_floating scrollBar_right scrollBar_thickness
999 scrollWithBuffer scrollstyle secondaryScreen secondaryScroll selectstyle 993 scrollTtyKeypress scrollTtyOutput scrollWithBuffer scrollstyle
1000 shade term_name title transparent transparent_all tripleclickwords 994 secondaryScreen secondaryScroll selectstyle shade term_name title
1001 utmpInhibit visualBell 995 transient_for transparent transparent_all tripleclickwords utmpInhibit
996 visualBell
1002 997
1003=cut 998=cut
1004 999
1005sub resource($$;$) { 1000sub resource($$;$) {
1006 my ($self, $name) = (shift, shift); 1001 my ($self, $name) = (shift, shift);
… …
1599 # we can't hope to reproduce the locale algorithm, so nuke LC_ALL and set LC_CTYPE. 1594 # we can't hope to reproduce the locale algorithm, so nuke LC_ALL and set LC_CTYPE.
1600 delete $env->{LC_ALL}; 1595 delete $env->{LC_ALL};
1601 $env->{LC_CTYPE} = $self->{term}->locale; 1596 $env->{LC_CTYPE} = $self->{term}->locale;
1602 1597
1603 urxvt::term->new ($env, "popup", 1598 urxvt::term->new ($env, "popup",
1604 "--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0, 1599 "--perl-lib" => "", "--perl-ext-common" => "",
1600 "-pty-fd" => -1, "-sl" => 0,
1601 "-b" => 1, "-bd" => "grey80", "-bl", "-override-redirect",
1605 "--transient-for" => $self->{term}->parent, 1602 "--transient-for" => $self->{term}->parent,
1606 "-display" => $self->{term}->display_id, 1603 "-display" => $self->{term}->display_id,
1607 "-pe" => "urxvt-popup") 1604 "-pe" => "urxvt-popup")
1608 or die "unable to create popup window\n"; 1605 or die "unable to create popup window\n";
1609} 1606}

Diff Legend

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