perl - Perl と Curses を使用して透明な背景を指定するにはどうすればよいですか?

Question

背景を黒ではなく標準の端末色にしようとしていますが、わかりません。標準を使用するときはuse_default_colors()、色を使用しないのと同じですが、背景色ではなく前景色を変更したいと思います。私は使用しますinit_color_pair(1, COLOR_RED, COLOR_BLACK);が、それは私が望んでいない黒い背景を与えます。

Answer 1

背景を透明にするには、アプリのユーザーが .Xdefaults などで指定する必要があります。ユーザーがすでに透明な背景を持っている場合は、次のようにデフォルトの背景を使用するだけです。

use Curses;
#...some init here...
# colors:
use_default_colors;  # mandatory, we want to use the default background which is transparent
init_pair 1, COLOR_BLUE, -1;  # -1 mandatory, again, we want *default* background
init_pair 2, -1, COLOR_WHITE;  # you can use the default foreground color if you like