Tk Source Code

Changes On Branch bug-c12af74765
Login

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

Changes In Branch bug-c12af74765 Excluding Merge-Ins

This is equivalent to a diff from 7e8c4884 to d7e0134e

2017-01-07
15:18
Fix [c12af74765]: OS X - text-21.1 fails check-in: 46ce2328 user: fvogel tags: core-8-6-branch
15:00
Fix [3df559ef7c] - Negative bbox width on OS X. check-in: 339e61fd user: fvogel tags: core-8-6-branch
14:51
Fix [ae32eb7e10]: Win + specific text widget configuration : textDisp-18.6, -20.2 -20.3 -20.4 fail check-in: 8847b487 user: fvogel tags: bug-ae32eb7e10
2017-01-06
14:14
Better fix for [c12af74765]: OS X - text-21.1 fails Closed-Leaf check-in: d7e0134e user: fvogel tags: bug-c12af74765
11:58
Merge core-8-6-branch. Some upstream androwish changes. check-in: e5866ba9 user: jan.nijtmans tags: androwish
2017-01-05
23:19
Fix [c12af74765]: OS X - text-21.1 fails check-in: e28a89af user: fvogel tags: bug-c12af74765
22:31
Fix [dac92f194c]: OS X - text-2.8 and text-2.9 are both run and fail check-in: 9943305e user: fvogel tags: trunk
22:30
Fix [dac92f194c]: OS X - text-2.8 and text-2.9 are both run and fail check-in: 7e8c4884 user: fvogel tags: core-8-6-branch
07:47
Fix [dac92f194c]: OS X - text-2.8 and text-2.9 are both run and fail Closed-Leaf check-in: 3c69ea3f user: fvogel tags: bug-dac92f194c
2017-01-04
16:27
Added more glob patterns in order to ignore Windows-specific compilation products when running fossil extra check-in: 903aaca8 user: fvogel tags: core-8-6-branch

Changes to tests/constraints.tcl.

176
177
178
179
180
181
182

183



184
185
186
187
188
189
190
}

namespace import -force tk::test::*

namespace import -force tcltest::testConstraint
testConstraint notAqua [expr {[tk windowingsystem] ne "aqua"}]
testConstraint aqua [expr {[tk windowingsystem] eq "aqua"}]

testConstraint nonwin [expr {[tk windowingsystem] ne "win32"}]



testConstraint userInteraction 0
testConstraint nonUnixUserInteraction [expr {
    [testConstraint userInteraction] ||
    ([testConstraint unix] && [testConstraint notAqua])
}]
testConstraint haveDISPLAY [info exists env(DISPLAY)]
testConstraint altDisplay  [info exists env(TK_ALT_DISPLAY)]







>

>
>
>







176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
}

namespace import -force tk::test::*

namespace import -force tcltest::testConstraint
testConstraint notAqua [expr {[tk windowingsystem] ne "aqua"}]
testConstraint aqua [expr {[tk windowingsystem] eq "aqua"}]
testConstraint x11 [expr {[tk windowingsystem] eq "x11"}]
testConstraint nonwin [expr {[tk windowingsystem] ne "win32"}]
testConstraint aquaOrWin32 [expr {
    ([tk windowingsystem] eq "win32") || [testConstraint aqua]
}]
testConstraint userInteraction 0
testConstraint nonUnixUserInteraction [expr {
    [testConstraint userInteraction] ||
    ([testConstraint unix] && [testConstraint notAqua])
}]
testConstraint haveDISPLAY [info exists env(DISPLAY)]
testConstraint altDisplay  [info exists env(TK_ALT_DISPLAY)]

Changes to tests/text.test.

3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944
3945
3946
3947
3948
3949
3950
    .t tag add sel 1.0 end
    expr {[selection get] eq "$x\n"}
} -cleanup {
    destroy .t
} -result {1}


test text-21.1 {TkTextLostSelection procedure} -constraints unix -setup {
    text .t
    .t insert 1.0 "Line 1"
    entry .t.e
    .t.e insert end "abcdefg"
    text .t2
    .t2 insert 1.0 "abc\ndef\nghijk\n1234"
} -body {
    .t2 tag add sel 1.2 3.3
    .t.e select from 0
    .t.e select to 1
    .t2 tag ranges sel
} -cleanup {
    destroy .t .t2
} -result {}
test text-21.2 {TkTextLostSelection procedure} -constraints win -setup {
    text .t
    .t insert 1.0 "Line 1"
    entry .t.e
    .t.e insert end "abcdefg"
    text .t2
    .t2 insert 1.0 "abc\ndef\nghijk\n1234"
} -body {







|














|







3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944
3945
3946
3947
3948
3949
3950
    .t tag add sel 1.0 end
    expr {[selection get] eq "$x\n"}
} -cleanup {
    destroy .t
} -result {1}


test text-21.1 {TkTextLostSelection procedure} -constraints {x11} -setup {
    text .t
    .t insert 1.0 "Line 1"
    entry .t.e
    .t.e insert end "abcdefg"
    text .t2
    .t2 insert 1.0 "abc\ndef\nghijk\n1234"
} -body {
    .t2 tag add sel 1.2 3.3
    .t.e select from 0
    .t.e select to 1
    .t2 tag ranges sel
} -cleanup {
    destroy .t .t2
} -result {}
test text-21.2 {TkTextLostSelection procedure} -constraints aquaOrWin32 -setup {
    text .t
    .t insert 1.0 "Line 1"
    entry .t.e
    .t.e insert end "abcdefg"
    text .t2
    .t2 insert 1.0 "abc\ndef\nghijk\n1234"
} -body {