1 | #!/usr/bin/perl |
1 | #!/usr/bin/perl |
2 | |
2 | |
3 | # I tried to write this with Tk, as it uses elss memory and is |
3 | # I tried to write this with Tk, as it uses less memory and is |
4 | # more widely available. Alas, Tk is rather broken with respect to embedding. |
4 | # more widely available. Alas, Tk is rather broken with respect to embedding. |
5 | |
5 | |
6 | # on debian, do: |
6 | # on debian, do: |
7 | # apt-get install libgtk2-perl |
7 | # apt-get install libgtk2-perl |
|
|
8 | |
|
|
9 | # Also see the Gtk2::URxvt module family, which does this much cleaner |
|
|
10 | # and provides a real tabbed-terminal. |
8 | |
11 | |
9 | my $RXVT_BASENAME = "rxvt"; |
12 | my $RXVT_BASENAME = "rxvt"; |
10 | |
13 | |
11 | use Gtk2; |
14 | use Gtk2; |
12 | use Encode; |
15 | use Encode; |