diff options
author | fvogel <fvogelnew1@free.fr> | 2016-02-10 22:51:45 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2016-02-10 22:51:45 (GMT) |
commit | 30a85a7ace1cf7ea9de7828dfb84fde2af23148b (patch) | |
tree | af743cc0a7772b00193196604d317ab57ab9c603 /generic/tkTextTag.c | |
parent | 74d865bb3e520e131dc6655986fe79141120c2e9 (diff) | |
download | tk-30a85a7ace1cf7ea9de7828dfb84fde2af23148b.zip tk-30a85a7ace1cf7ea9de7828dfb84fde2af23148b.tar.gz tk-30a85a7ace1cf7ea9de7828dfb84fde2af23148b.tar.bz2 |
-lmargincolor tag configuration option: implementation
Diffstat (limited to 'generic/tkTextTag.c')
-rw-r--r-- | generic/tkTextTag.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tkTextTag.c b/generic/tkTextTag.c index e268352..a3e55fc 100644 --- a/generic/tkTextTag.c +++ b/generic/tkTextTag.c @@ -61,6 +61,8 @@ static const Tk_OptionSpec tagOptionSpecs[] = { NULL, -1, Tk_Offset(TkTextTag, lMargin1String), TK_OPTION_NULL_OK,0,0}, {TK_OPTION_STRING, "-lmargin2", NULL, NULL, NULL, -1, Tk_Offset(TkTextTag, lMargin2String), TK_OPTION_NULL_OK,0,0}, + {TK_OPTION_BORDER, "-lmargincolor", NULL, NULL, + NULL, -1, Tk_Offset(TkTextTag, lMarginColor), TK_OPTION_NULL_OK, 0, 0}, {TK_OPTION_STRING, "-offset", NULL, NULL, NULL, -1, Tk_Offset(TkTextTag, offsetString), TK_OPTION_NULL_OK, 0, 0}, {TK_OPTION_STRING, "-overstrike", NULL, NULL, @@ -542,7 +544,8 @@ TkTextTagCmd( || (tagPtr->overstrikeString != NULL) || (tagPtr->overstrikeColor != NULL) || (tagPtr->underlineString != NULL) - || (tagPtr->underlineColor != NULL)) { + || (tagPtr->underlineColor != NULL) + || (tagPtr->lMarginColor != NULL)) { tagPtr->affectsDisplay = 1; } if (!newTag) { @@ -1039,6 +1042,7 @@ TkTextCreateTag( tagPtr->lMargin1 = 0; tagPtr->lMargin2String = NULL; tagPtr->lMargin2 = 0; + tagPtr->lMarginColor = NULL; tagPtr->offsetString = NULL; tagPtr->offset = 0; tagPtr->overstrikeString = NULL; |