Tk Library Source Code

Check-in [63dbc64d55]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Correct a small bug in the configuration of the plaintext annotations (reported by Nick Matthews)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 63dbc64d5503bf1e95c6ecff27b3835aab778e9f
User & Date: markus 2017-03-30 18:00:41
Context
2017-03-31
17:13
Module ntext - update to 1.0b1 check-in: 10d06551a6 user: kjnash tags: trunk
2017-03-30
18:00
Correct a small bug in the configuration of the plaintext annotations (reported by Nick Matthews) check-in: 63dbc64d55 user: markus tags: trunk
2017-03-22
13:15
* *.tcl: Bumped the version number to 5.17. * COPYRIGHT.txt: * README.txt: * ../../examples/*.tcl: check-in: d863e00674 user: csaba tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to modules/plotchart/ChangeLog.




1
2
3
4
5
6
7



2017-03-21  Arjen Markus  <arjenmarkus@users,sourceforge.net>
	* plotchart.tcl:  Correct omission - dot plotting command for polar plots
	* plotpriv.tcl:   Remove obsolete procedures (DrawLog*Dot and DrawPolarDot) - they have been replaced by DrawDot
	                  Store the coordinates of the last dot, so that "bindlast" will work properly for dots as well

2017-03-14  Arjen Markus  <arjenmarkus@users,sourceforge.net>
	* plotchart.man:  Describe the "minmax" command
>
>
>







1
2
3
4
5
6
7
8
9
10
2017-03-30  Arjen Markus  <arjenmarkus@users,sourceforge.net>
	* plotannot.tcl:  Correct handling of the -textcolour option for plaintext (reported by Nick Matthews)

2017-03-21  Arjen Markus  <arjenmarkus@users,sourceforge.net>
	* plotchart.tcl:  Correct omission - dot plotting command for polar plots
	* plotpriv.tcl:   Remove obsolete procedures (DrawLog*Dot and DrawPolarDot) - they have been replaced by DrawDot
	                  Store the coordinates of the last dot, so that "bindlast" will work properly for dots as well

2017-03-14  Arjen Markus  <arjenmarkus@users,sourceforge.net>
	* plotchart.man:  Describe the "minmax" command

Changes to modules/plotchart/plotannot.tcl.

85
86
87
88
89
90
91
92
93
94
95
96
97
98
99

100
101
102
103
104
105
106
    variable settings

    foreach {option value} $args {
        set option [string range $option 1 end]
        switch -- $option {
            "font" -
            "margin" -
            "textcolour" -
            "justify" -
            "arrowsize" -
            "background" -
            "outline" -
            "rimwidth" {
                set settings($w,balloon$option) $value
            }

            "textcolor" {
                set settings($w,balloontextcolour) $value
            }
        }
    }
}








<







>







85
86
87
88
89
90
91

92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
    variable settings

    foreach {option value} $args {
        set option [string range $option 1 end]
        switch -- $option {
            "font" -
            "margin" -

            "justify" -
            "arrowsize" -
            "background" -
            "outline" -
            "rimwidth" {
                set settings($w,balloon$option) $value
            }
            "textcolour" -
            "textcolor" {
                set settings($w,balloontextcolour) $value
            }
        }
    }
}

117
118
119
120
121
122
123
124
125
126
127

128
129
130
131
132
133
134
proc ::Plotchart::ConfigPlainText { w args } {
    variable settings

    foreach {option value} $args {
        set option [string range $option 1 end]
        switch -- $option {
            "font" -
            "textcolour" -
            "justify" {
                set settings($w,text$option) $value
            }

            "textcolor" {
                set settings($w,textcolour) $value
            }
            "textfont" {
                # Ugly hack!
                set settings($w,$option) $value
            }







<



>







117
118
119
120
121
122
123

124
125
126
127
128
129
130
131
132
133
134
proc ::Plotchart::ConfigPlainText { w args } {
    variable settings

    foreach {option value} $args {
        set option [string range $option 1 end]
        switch -- $option {
            "font" -

            "justify" {
                set settings($w,text$option) $value
            }
            "textcolour" -
            "textcolor" {
                set settings($w,textcolour) $value
            }
            "textfont" {
                # Ugly hack!
                set settings($w,$option) $value
            }