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