Tk Source Code

Check-in [b2677cc7]
Login
☰Core Home Timeline Branches Tags Tickets Download Wiki

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

Overview
Comment:Restore failing tests to passing.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: b2677cc770123a484d20beb3f1355e7c13670114
User & Date: dgp 2013-02-05 17:44:34
References
2016-12-02
20:43 • Ticket [76e2d9c0] New border test failure status still Closed with 5 other changes artifact: e6e8a1b5 user: fvogel
07:35 • Ticket [76e2d9c0]: 3 changes artifact: ec46d9f2 user: fvogel
2016-12-01
17:05 • Ticket [76e2d9c0]: 3 changes artifact: e47dda53 user: fvogel
2016-11-30
22:52 • Ticket [ad98f10b] New bitmap test failure status still Open with 3 other changes artifact: 10a131b1 user: fvogel
Context
2013-02-14
13:55
Add some extra paths on Windows for finding tclConfig.sh, for mSys and Cygwin shell. Improve some comments and quoting, no change in functionality. check-in: c10c3fdb user: jan.nijtmans tags: trunk
2013-02-05
17:44
Restore failing tests to passing. check-in: b2677cc7 user: dgp tags: trunk
2013-02-04
19:50
ttk::treeview: schedule redisplay when adding or removing tags [Bug 3603077]. check-in: 78ab9345 user: jenglish tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/bitmap.test.

︙︙
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99

} -cleanup {
    destroy .b1 .b2 .b3     ;# destroying just in case
} -result {{{3 1}} {{2 1}} {{1 1}} {}}

test bitmap-4.1 {FreeBitmapObjProc} -constraints {
    testbitmap
} -body {
    set x [format questhead]
    button .b -bitmap $x
    set y [format questhead]
    .b configure -bitmap $y
    set z [format questhead]
    .b configure -bitmap $z
    set result {}
    lappend result [testbitmap questhead]
    set x red
    lappend result [testbitmap questhead]
    set z 32
    lappend result [testbitmap questhead]








|

|

|








81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99

} -cleanup {
    destroy .b1 .b2 .b3     ;# destroying just in case
} -result {{{3 1}} {{2 1}} {{1 1}} {}}

test bitmap-4.1 {FreeBitmapObjProc} -constraints {
    testbitmap
} -body {
    set x [join questhead]
    button .b -bitmap $x
    set y [join questhead]
    .b configure -bitmap $y
    set z [join questhead]
    .b configure -bitmap $z
    set result {}
    lappend result [testbitmap questhead]
    set x red
    lappend result [testbitmap questhead]
    set z 32
    lappend result [testbitmap questhead]
︙︙

Changes to tests/border.test.

︙︙
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146

} -result {{{4 1} {3 0} {2 0} {1 0}} {{4 1} {2 0} {1 0}} {{4 1} {2 0}} {{2 0}} {}}

test border-3.1 {FreeBorderObjProc} -constraints {  
    testborder 
} -setup {
    set result {}
} -body {
    set x [format purple]
    button .b -bg $x -text .b1
    set y [format purple]
    .b configure -bg $y
    set z [format purple]
    .b configure -bg $z
    lappend result [testborder purple]
    set x red
    lappend result [testborder purple]
    set z 32
    lappend result [testborder purple]
    destroy .b








|

|

|








128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146

} -result {{{4 1} {3 0} {2 0} {1 0}} {{4 1} {2 0} {1 0}} {{4 1} {2 0}} {{2 0}} {}}

test border-3.1 {FreeBorderObjProc} -constraints {  
    testborder 
} -setup {
    set result {}
} -body {
    set x [join purple]
    button .b -bg $x -text .b1
    set y [join purple]
    .b configure -bg $y
    set z [join purple]
    .b configure -bg $z
    lappend result [testborder purple]
    set x red
    lappend result [testborder purple]
    set z 32
    lappend result [testborder purple]
    destroy .b
︙︙

Changes to tests/cursor.test.

︙︙
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159

    destroy .b3
    lappend result [testcursor heart]
} -result {{{3 1}} {{2 1}} {{1 1}} {}}

test cursor-4.1 {FreeCursorObjProc} -constraints {
    testcursor
} -body {
    set x [format heart]
    button .b -cursor $x
    set y [format heart]
    .b configure -cursor $y
    set z [format heart]
    .b configure -cursor $z
    set result {}
    lappend result [testcursor heart]
    set x red
    lappend result [testcursor heart]
    set z 32
    lappend result [testcursor heart]








|

|

|








141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159

    destroy .b3
    lappend result [testcursor heart]
} -result {{{3 1}} {{2 1}} {{1 1}} {}}

test cursor-4.1 {FreeCursorObjProc} -constraints {
    testcursor
} -body {
    set x [join heart]
    button .b -cursor $x
    set y [join heart]
    .b configure -cursor $y
    set z [join heart]
    .b configure -cursor $z
    set result {}
    lappend result [testcursor heart]
    set x red
    lappend result [testcursor heart]
    set z 32
    lappend result [testcursor heart]
︙︙

Changes to tests/font.test.

︙︙
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812

} -result {-family -family}


test font-18.1 {FreeFontObjProc} -constraints testfont -setup {
    destroy .b1
    set result {}
} -body {
    set x [format {Courier 12}]
    button .b1 -font $x
    set y [format {Courier 12}]
    .b1 configure -font $y
    set z [format {Courier 12}]
    .b1 configure -font $z
    lappend result [testfont counts {Courier 12}]
    set x red
    lappend result [testfont counts {Courier 12}]
    set z 32
    lappend result [testfont counts {Courier 12}]
    destroy .b1








|

|

|








794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812

} -result {-family -family}


test font-18.1 {FreeFontObjProc} -constraints testfont -setup {
    destroy .b1
    set result {}
} -body {
    set x [join {Courier 12} { }]
    button .b1 -font $x
    set y [join {Courier 12} { }]
    .b1 configure -font $y
    set z [join {Courier 12} { }]
    .b1 configure -font $z
    lappend result [testfont counts {Courier 12}]
    set x red
    lappend result [testfont counts {Courier 12}]
    set z 32
    lappend result [testfont counts {Courier 12}]
    destroy .b1
︙︙

This page was generated in about 0.018s by Fossil 2.24 [f4ffefe708] 2024-04-17 14:02:19