Tk Source Code: Check-in [dc97dedc]

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

Overview

Comment:	Made test textDisp-16.18 pass again on Win7 after [a4bf73e4b8]: map the text widget earlier
Downloads:	Tarball \| ZIP archive \| SQL archive
Timelines:	family \| ancestors \| descendants \| both \| core-8-5-branch
Files:	files \| file ages \| folders
SHA1:	dc97dedcb466371c167c476dc7c3422cb3145fd9
User & Date:	fvogel 2015-12-23 17:08:24

Context

2015-12-26
21:10		Fixed bug [2f78c7c5ea] - text widget segfault with tablelist check-in: 5325caee user: fvogel tags: core-8-5-branch
2015-12-23
17:12		Made test textDisp-16.18 pass again on Win7 after [a4bf73e4b8]: map the text widget earlier check-in: 9abe2b4a user: fvogel tags: trunk
17:08		Made test textDisp-16.18 pass again on Win7 after [a4bf73e4b8]: map the text widget earlier check-in: dc97dedc user: fvogel tags: core-8-5-branch
2015-12-19
22:54		Fixed bug [793909] - Problem with nonexistent namespaces check-in: ab7e1a03 user: fvogel tags: core-8-5-branch

Changes

Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/textDisp.test.

} {151.80}
test textDisp-16.18 {TkTextYviewCmd procedure, "moveto" roundoff} {textfonts} {
    catch {destroy .top1}
    toplevel .top1
    wm geometry .top1 +0+0
    text .top1.t -height 3 -width 4 -wrap none -setgrid 1 -padx 6 \
	-spacing3 6
    .top1.t insert end "1\n2\n3\n4\n5\n6"
    pack .top1.t
    update

    .top1.t yview moveto 0.3333
    set result [.top1.t yview]
    destroy .top1
    set result
} [list [expr {1.0/3}] [expr {5.0/6}]]
test textDisp-16.19 {TkTextYviewCmd procedure, "scroll" option} {
    list [catch {.t yview scroll a} msg] $msg







<


>

} {151.80}
test textDisp-16.18 {TkTextYviewCmd procedure, "moveto" roundoff} {textfonts} {
    catch {destroy .top1}
    toplevel .top1
    wm geometry .top1 +0+0
    text .top1.t -height 3 -width 4 -wrap none -setgrid 1 -padx 6 \
	-spacing3 6

    pack .top1.t
    update
    .top1.t insert end "1\n2\n3\n4\n5\n6"
    .top1.t yview moveto 0.3333
    set result [.top1.t yview]
    destroy .top1
    set result
} [list [expr {1.0/3}] [expr {5.0/6}]]
test textDisp-16.19 {TkTextYviewCmd procedure, "scroll" option} {
    list [catch {.t yview scroll a} msg] $msg