| 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 | |
8 | |
| 9 | my $RXVT_BASENAME = "rxvt"; |
9 | my $RXVT_BASENAME = "rxvt"; |
| 10 | |
10 | |
| 11 | use Gtk2; |
11 | use Gtk2; |
| 12 | use Encode; |
12 | use Encode; |
|
|
13 | |
|
|
14 | $SIG{CHLD} = 'IGNORE'; |
| 13 | |
15 | |
| 14 | my $event_cb; # $wid => $cb |
16 | my $event_cb; # $wid => $cb |
| 15 | |
17 | |
| 16 | init Gtk2; |
18 | init Gtk2; |
| 17 | |
19 | |
