Tk Library Source Code

Check-in [296358b22c]
Login

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

Overview
Comment:Correct a small typo in the example
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 296358b22c1b7480bf374181064b76ab4868e722
User & Date: markus 2015-09-20 13:44:03
Context
2015-12-28
19:15
* *.tcl: Bumped the version number to 5.15. * COPYRIGHT.txt: * README.txt: * ../../examples/*.tcl: * CHANGES.txt: Updated to reflect the changes. * doc/*.html: * scripts/tablelistConfig.tcl: Added the tree style "win10" and the * scripts/tablelistEdit.tcl: arrow styles "flatAngle11x6" and * scripts/tablelistImages.tcl: "flatAngle15x8"; Worked around a text * scripts/tablelistThemes.tcl: widget bug introduced in Tk 8.5.18 and * scripts/tablelistWidget.tcl: 8.6.4; Fixed a bug that prevented the subcommands "see end", "see last", and "yview moveto 1" from working as expected if the tablelist widget contains multi-line cells or large images. * scripts/tclIndex: Newly generated. * doc/arrowStyles.png: Updated screenshots. * doc/browse*.png: * doc/bwidget.png: * doc/config.png: * doc/dirViewer.png: * doc/embeddedWindows*.png: * doc/styles.png: * doc/tileWidgets.png: * doc/vista*.png: * doc/win7*.png: * doc/win10.png: Added screenshot. check-in: 9a988e2a2d user: csaba tags: trunk
2015-09-21
10:39
Added a TOOL-style description check-in: 2bf46644ed user: hypnotoad tags: trunk
2015-09-20
13:44
Correct a small typo in the example check-in: 296358b22c user: markus tags: trunk
2015-08-22
20:46
* CHANGES.txt: Updated to reflect the changes. * doc/tablelistWidget.html: check-in: 4ae9f0db58 user: csaba tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to modules/plotchart/plotspecial.tcl.

183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
    set idx 1
    foreach x [lsort -real -increasing $data] {
        if { $x != {} } {
            set xn [expr {($x - $mean) / $stdev}]
            set pn [expr {($idx - $a) / ($n + 1 - 2.0 * $a)}]
            set yn [::math::statistics::Inverse-cdf-normal 0.0 1.0 $pn]

            puts "$x -- $xn -- $pn -- $yn"

            DrawData $w $series $xn $yn
        } else {
            DrawData $w $series {}  {}
        }
        incr idx
    }
}







<
<







183
184
185
186
187
188
189


190
191
192
193
194
195
196
    set idx 1
    foreach x [lsort -real -increasing $data] {
        if { $x != {} } {
            set xn [expr {($x - $mean) / $stdev}]
            set pn [expr {($idx - $a) / ($n + 1 - 2.0 * $a)}]
            set yn [::math::statistics::Inverse-cdf-normal 0.0 1.0 $pn]



            DrawData $w $series $xn $yn
        } else {
            DrawData $w $series {}  {}
        }
        incr idx
    }
}

Changes to modules/swaplist/swaplist.man.

61
62
63
64
65
66
67
68
69
70
71
72
73
74
[section EXAMPLE]

[example {
package require swaplist
namespace import swaplist::*

if {[swaplist .slist opts "1 2 3 4 5 6 7 8 9" "1 3 5"]} {
    puts "user chose numbers: $ops"
}

}]
[vset CATEGORY swaplist]
[include ../../support/devel/doc/feedback.inc]
[manpage_end]







|






61
62
63
64
65
66
67
68
69
70
71
72
73
74
[section EXAMPLE]

[example {
package require swaplist
namespace import swaplist::*

if {[swaplist .slist opts "1 2 3 4 5 6 7 8 9" "1 3 5"]} {
    puts "user chose numbers: $opts"
}

}]
[vset CATEGORY swaplist]
[include ../../support/devel/doc/feedback.inc]
[manpage_end]