pegasus/weechat
1
0
Fork 0
mirror of https://github.com/weechat/weechat.git synced 2026-07-02 15:53:12 +02:00
Code Activity

Add delimiter color for bars, fix some bugs with bars

Browse Source
This commit is contained in:
Sebastien Helleu
2008-06-22 12:01:50 +02:00
parent 96a92eacbf
commit 6635c7d617
21 changed files with 596 additions and 309 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/plugins/scripts/perl/weechat-perl-api.c
+8 -5
View File
@@ -3354,7 +3354,8 @@ static XS (XS_weechat_bar_search)
static XS (XS_weechat_bar_new)
{
char *result, *name, *priority, *type, *conditions, *position, *filling;
char *size, *size_max, *color_fg, *color_bg, *separator, *bar_items;
char *size, *size_max, *color_fg, *color_delim, *color_bg, *separator;
char *bar_items;
dXSARGS;
/* make C compiler happy */
@@ -3366,7 +3367,7 @@ static XS (XS_weechat_bar_new)
PERL_RETURN_EMPTY;
}
if (items < 12)
if (items < 13)
{
WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("bar_new");
PERL_RETURN_EMPTY;
@@ -3381,9 +3382,10 @@ static XS (XS_weechat_bar_new)
size = SvPV (ST (6), PL_na);
size_max = SvPV (ST (7), PL_na);
color_fg = SvPV (ST (8), PL_na);
color_bg = SvPV (ST (9), PL_na);
separator = SvPV (ST (10), PL_na);
bar_items = SvPV (ST (11), PL_na);
color_delim = SvPV (ST (9), PL_na);
color_bg = SvPV (ST (10), PL_na);
separator = SvPV (ST (11), PL_na);
bar_items = SvPV (ST (12), PL_na);
result = script_ptr2str (weechat_bar_new (name,
priority,
type,
@@ -3393,6 +3395,7 @@ static XS (XS_weechat_bar_new)
size,
size_max,
color_fg,
color_delim,
color_bg,
separator,
bar_items));