Skip to content

Commit 48e7440

Browse files
author
markus
committed
Correct a small bug in the configuration of the plaintext annotations (reported by Nick Matthews)
1 parent e77e77d commit 48e7440

File tree

2 files changed

+5
-2
lines changed

2 files changed

+5
-2
lines changed

modules/plotchart/ChangeLog

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,6 @@
1+
2017-03-30 Arjen Markus <arjenmarkus@users,sourceforge.net>
2+
* plotannot.tcl: Correct handling of the -textcolour option for plaintext (reported by Nick Matthews)
3+
14
2017-03-21 Arjen Markus <arjenmarkus@users,sourceforge.net>
25
* plotchart.tcl: Correct omission - dot plotting command for polar plots
36
* plotpriv.tcl: Remove obsolete procedures (DrawLog*Dot and DrawPolarDot) - they have been replaced by DrawDot

modules/plotchart/plotannot.tcl

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -89,14 +89,14 @@ proc ::Plotchart::ConfigBalloon { w args } {
8989
switch -- $option {
9090
"font" -
9191
"margin" -
92-
"textcolour" -
9392
"justify" -
9493
"arrowsize" -
9594
"background" -
9695
"outline" -
9796
"rimwidth" {
9897
set settings($w,balloon$option) $value
9998
}
99+
"textcolour" -
100100
"textcolor" {
101101
set settings($w,balloontextcolour) $value
102102
}
@@ -121,10 +121,10 @@ proc ::Plotchart::ConfigPlainText { w args } {
121121
set option [string range $option 1 end]
122122
switch -- $option {
123123
"font" -
124-
"textcolour" -
125124
"justify" {
126125
set settings($w,text$option) $value
127126
}
127+
"textcolour" -
128128
"textcolor" {
129129
set settings($w,textcolour) $value
130130
}

0 commit comments

Comments
 (0)