… | |
… | |
465 | my $htype = shift; |
465 | my $htype = shift; |
466 | |
466 | |
467 | if ($htype == 0) { # INIT |
467 | if ($htype == 0) { # INIT |
468 | my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); |
468 | my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); |
469 | |
469 | |
470 | for my $ext (map { split /:/, $TERM->resource ("perl_ext_$_") } 1, 2) { |
470 | for my $ext (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) { |
471 | my @files = grep -f $_, map "$_/$ext", @dirs; |
471 | my @files = grep -f $_, map "$_/$ext", @dirs; |
472 | |
472 | |
473 | if (@files) { |
473 | if (@files) { |
474 | register_package script_package $files[0]; |
474 | register_package script_package $files[0]; |
475 | } else { |
475 | } else { |
… | |
… | |
663 | |
663 | |
664 | If hidden, display the overlay again. |
664 | If hidden, display the overlay again. |
665 | |
665 | |
666 | =back |
666 | =back |
667 | |
667 | |
668 | =item $cellwidth = $term->strwidth $string |
668 | =item $cellwidth = $term->strwidth ($string) |
669 | |
669 | |
670 | Returns the number of screen-cells this string would need. Correctly |
670 | Returns the number of screen-cells this string would need. Correctly |
671 | accounts for wide and combining characters. |
671 | accounts for wide and combining characters. |
672 | |
672 | |
673 | =item $octets = $term->locale_encode $string |
673 | =item $octets = $term->locale_encode ($string) |
674 | |
674 | |
675 | Convert the given text string into the corresponding locale encoding. |
675 | Convert the given text string into the corresponding locale encoding. |
676 | |
676 | |
677 | =item $string = $term->locale_decode $octets |
677 | =item $string = $term->locale_decode ($octets) |
678 | |
678 | |
679 | Convert the given locale-encoded octets into a perl string. |
679 | Convert the given locale-encoded octets into a perl string. |
680 | |
680 | |
681 | =item $term->scr_add_lines ($string) |
681 | =item $term->scr_add_lines ($string) |
682 | |
682 | |
… | |
… | |
698 | =item $term->tt_write ($octets) |
698 | =item $term->tt_write ($octets) |
699 | |
699 | |
700 | Write the octets given in C<$data> to the tty (i.e. as program input). To |
700 | Write the octets given in C<$data> to the tty (i.e. as program input). To |
701 | pass characters instead of octets, you should convert your strings first |
701 | pass characters instead of octets, you should convert your strings first |
702 | to the locale-specific encoding using C<< $term->locale_encode >>. |
702 | to the locale-specific encoding using C<< $term->locale_encode >>. |
|
|
703 | |
|
|
704 | =item $windowid = $term->parent |
|
|
705 | |
|
|
706 | Return the window id of the toplevel window. |
|
|
707 | |
|
|
708 | =item $windowid = $term->vt |
|
|
709 | |
|
|
710 | Return the window id of the terminal window. |
703 | |
711 | |
704 | =item $window_width = $term->width |
712 | =item $window_width = $term->width |
705 | |
713 | |
706 | =item $window_height = $term->height |
714 | =item $window_height = $term->height |
707 | |
715 | |