3846N/ATests running in interp: $(@D)/tktest
3846N/ATests located in: $(SOURCE_DIR)/tests
3846N/ATemporary files stored in $(@D)
3846N/ATest files sourced into current interpreter
3846N/ASkipping test files that match: l.*.test
3846N/AOnly running test files that match: *.test
3846N/A==== focus-5.1 ChangeXFocus procedure, don't take focus unless have it FAILED
3846N/A send [dobg {tk appname}] {focus -force .; update}
3846N/A---- Result should have been (exact matching):
3846N/A==== font-4.9 font command: actual FAILED
3846N/A # (objc > 3) so objPtr = objv[3 + skip]
3846N/A string tolower [font actual {-family times} -family]
3846N/A---- Result should have been (exact matching):
3846N/A==== font-24.5 Tk_ComputeTextLayout: break line FAILED
3846N/A .b.l config -text "000\t00000" -wrap [expr 9*$ax]
3846N/A---- Result should have been (exact matching):
3846N/A==== font-44.1 TkFontGetPixels: size <
0 FAILED 3846N/A font actual {
times -
12} -
size 3846N/A----
Result should have been (
exact matching):
3846N/A====
scrollbar-
3.
36 ScrollbarWidgetCmd procedure,
"fraction" option FAILED 3846N/A format {%.
6g} [.
s fraction 4 179]
3846N/A----
Result should have been (
exact matching):
3846N/A====
scrollbar-
3.
38 ScrollbarWidgetCmd procedure,
"fraction" option FAILED 3846N/A format {%.
6g} [.
s fraction 4 178]
3846N/A----
Result should have been (
exact matching):
3846N/A====
scrollbar-
6.
12 ScrollbarPosition procedure FAILED 3846N/A----
Result should have been (
exact matching):
3846N/A====
scrollbar-
6.
29 ScrollbarPosition procedure FAILED 3846N/A----
Result should have been (
exact matching):
3846N/A====
scrollbar-
6.
35 ScrollbarPosition procedure FAILED 3846N/A----
Result should have been (
exact matching):
3846N/A====
scrollbar-
6.
44 ScrollbarPosition procedure FAILED 3846N/A----
Result should have been (
exact matching):
3846N/A====
spinbox-
3.
70 SpinboxWidgetCmd procedure,
"xview" widget command FAILED 3846N/A format {%.
6f %.
6f} {*}[.
e xview]
3846N/A----
Result should have been (
exact matching):
3846N/A====
textDisp-
32.
2 elide and tags FAILED 3846N/A pack [
text .
tt -
height 30 -
width 100 -
bd 0 -
highlightthickness 0 -
padx 0]
3846N/A .
tt insert end {
test text using tags 1 and 3 } {
testtag1 testtag3} {[
this bit here uses tags 2 and 3]} {
testtag2 testtag3}
3846N/A #
indent left margin of tag 1 by 20 pixels 3846N/A .
tt tag configure testtag1 -
lmargin1 20 ;
update 3846N/A lappend res [
list [.
tt index "1.0 + 0 displaychars"] [
lindex [.
tt bbox 1.
0]
0] [
lindex [.
tt bbox "1.0 + 0 displaychars"]
0]]
3846N/A #
hide tag 1,
remaining text should not be indented,
since 3846N/A #
the indented tag and character is hidden.
3846N/A .
tt tag configure testtag1 -
elide 1 ;
update 3846N/A lappend res [
list [.
tt index "1.0 + 0 displaychars"] [
lindex [.
tt bbox 1.
0]
0] [
lindex [.
tt bbox "1.0 + 0 displaychars"]
0]]
3846N/A .
tt tag configure testtag1 -
lmargin1 0 3846N/A .
tt tag configure testtag1 -
elide 0 3846N/A #
indent left margin of tag 2 by 20 pixels 3846N/A #
text should not be indented,
since tag1 has lmargin1 of 0.
3846N/A .
tt tag configure testtag2 -
lmargin1 20 ;
update 3846N/A lappend res [
list [.
tt index "1.0 + 0 displaychars"] [
lindex [.
tt bbox 1.
0]
0] [
lindex [.
tt bbox "1.0 + 0 displaychars"]
0]]
3846N/A #
hide tag 1,
remaining text should now be indented,
but 3846N/A #
the bbox of 1.
0 should have zero width and zero indent,
3846N/A #
since it is elided at that position.
3846N/A .
tt tag configure testtag1 -
elide 1 ;
update 3846N/A lappend res [
list [.
tt index "1.0 + 0 displaychars"] [
lindex [.
tt bbox 1.
0]
0] [
lindex [.
tt bbox "1.0 + 0 displaychars"]
0]]
3846N/A .
tt tag configure testtag2 -
lmargin1 {}
3846N/A .
tt tag configure testtag1 -
elide 0 3846N/A #
indent left margin of tag 3 by 20 pixels 3846N/A #
text should be indented,
since this tag takes 3846N/A #
precedence over testtag1,
and is applied to the 3846N/A .
tt tag configure testtag3 -
lmargin1 20 ;
update 3846N/A lappend res [
list [.
tt index "1.0 + 0 displaychars"] [
lindex [.
tt bbox 1.
0]
0] [
lindex [.
tt bbox "1.0 + 0 displaychars"]
0]]
3846N/A #
hide tag 1,
remaining text should still be indented,
3846N/A #
since it still has testtag3 on it.
Again the 3846N/A #
bbox of 1.
0 should have 0.
3846N/A .
tt tag configure testtag1 -
elide 1 ;
update 3846N/A lappend res [
list [.
tt index "1.0 + 0 displaychars"] [
lindex [.
tt bbox 1.
0]
0] [
lindex [.
tt bbox "1.0 + 0 displaychars"]
0]]
3846N/A .
tt tag configure testtag3 -
lmargin1 {} -
elide 0 3846N/A .
tt tag configure testtag1 -
elide 1 -
lmargin1 20 3846N/A lappend res [
list [.
tt index "1.0 + 0 displaychars"] [
lindex [.
tt bbox 1.
0]
0] [
lindex [.
tt bbox "1.0 + 0 displaychars"]
0]]
3846N/A{
1.
0 20 20} {
1.
0 0 0} {
1.
0 0 0} {
1.
0 0 0} {
1.
0 20 20} {
1.
0 0 0} {
1.
0 20 20}
3846N/A----
Result should have been (
exact matching):
3846N/A{
1.
0 20 20} {
1.
29 0 0} {
1.
0 0 0} {
1.
29 0 20} {
1.
0 20 20} {
1.
29 0 20} {
1.
0 20 20}
3846N/A====
textImage-
3.
2 delayed image management FAILED 3846N/A image create photo small -
width 5 -
height 5 3846N/A text .
t -
font test_font -
bd 0 -
highlightthickness 0 -
padx 0 -
pady 0 3846N/A .
t image create end -
name test 3846N/A lappend result [.
t bbox test]
3846N/A .
t image configure test -
image small -
align top 3846N/A lappend result [.
t bbox test]
3846N/A----
Result should have been (
exact matching):
3846N/A====
textTag-
15.
1 TkTextBindProc FAILED 3846N/A bind .
t <ButtonRelease> {lappend x up}
3846N/A .t tag bind x <
ButtonRelease> {lappend x x-up}
3846N/A .t tag bind y <
ButtonRelease> {lappend x y-up}
3846N/A event gen .t <
Button> -x $x1 -y $y1
3846N/A event gen .t <
Motion> -x $x1 -y $y1
3846N/A event gen .t <
ButtonRelease> -x $x1 -y $y1
3846N/A event gen .t <
Button> -x $x1 -y $y1
3846N/A event gen .t <
Motion> -x $x2 -y $y2
3846N/A event gen .t <
ButtonRelease> -x $x2 -y $y2
3846N/A event gen .t <
Button> -x $x2 -y $y2
3846N/A event gen .t <
Motion> -x $x3 -y $y3
3846N/A event gen .t <
ButtonRelease> -x $x3 -y $y3
3846N/A---- Result should have been (exact matching):
7168N/A==== textTag-16.2 TkTextPickCurrent procedure FAILED
7168N/A event gen .t <
ButtonRelease-
1> -state 0x100 -x $x1 -y $y1
7168N/A event gen .t <
Motion> -x $x2 -y $y2
7168N/A lappend x [.t index current]
7168N/A---- Result should have been (exact matching):
7168N/A==== textTag-18.1 TkTextPickCurrent tag bindings FAILED
7168N/A text .t -width 30 -height 4 -relief sunken -borderwidth 10 -highlightthickness 10 -pady 2
7168N/A .t insert end " Tag here " TAG " no tag here"
7168N/A .t tag configure TAG -borderwidth 4 -relief raised
7168N/A .t tag bind TAG <
Enter> {lappend res "%x %y tag-Enter"}
7168N/A .t tag bind TAG <
Leave> {lappend res "%x %y tag-Leave"}
7168N/A bind .t <
Enter> {lappend res Enter}
7168N/A bind .t <
Leave> {lappend res Leave}
7168N/A # Bindings must not trigger on the widget border, only over
7168N/A # the actual tagged characters themselves.
7168N/A event gen .t <
Motion> -warp 1 -x 0 -y 0 ; update
7168N/A event gen .t <
Motion> -warp 1 -x 10 -y 10 ; update
7168N/A event gen .t <
Motion> -warp 1 -x 25 -y 25 ; update
7168N/A event gen .t <
Motion> -warp 1 -x 20 -y 20 ; update
7168N/A event gen .t <
Motion> -warp 1 -x 10 -y 10 ; update
7168N/A event gen .t <
Motion> -warp 1 -x 25 -y 25 ; update
7168N/A{25 25 tag-Enter} Enter {10 10 tag-Leave} {25 25 tag-Enter} {20 20 tag-Leave} {25 25 tag-Enter}
7168N/A---- Result should have been (exact matching):
7168N/AEnter {25 25 tag-Enter} {20 20 tag-Leave} {25 25 tag-Enter}
3846N/A==== textWind-10.6.1 EmbWinLayoutProc procedure, error in creating window FAILED
3846N/A .t insert 1.0 "Some sample text"
3846N/A .t window create 1.5 -create {
3846N/A toplevel .t2 -width 100 -height 150
3846N/A while {[llength $msg] == 1 && [incr i] <
200} {
update }
3846N/A{{
can't embed .t2 relative to .t}} 3846N/A---- Result should have been (exact matching): 3846N/A{{can't embed .
t2 relative to .
t}} {{
window name "t2" already exists in parent}}
7168N/A====
unixEmbed-
9.
2 EmbedWindowDeleted procedure,
check embeddedPtr FAILED 7168N/A frame .
f1 -
container 1 -
width 200 -
height 50 7168N/A dobg "set w1 [winfo id .f1]" 7168N/A eval destroy [
winfo child .]
7168N/A toplevel .
t1 -
use $
w1 -
highlightthickness 2 -
bd 2 -
relief sunken 7168N/A----
Test generated error;
Return code was:
1 7168N/A----
Return code should have been one of:
0 2 7168N/A----
errorInfo:
error flushing "file9":
broken pipe 7168N/A"dobg "set w1 [
winfo id .
f1]
"" 7168N/A----
errorCode:
POSIX EPIPE {
broken pipe}
3846N/A====
unixfont-
1.
2 TkpGetNativeFont procedure:
native FAILED 3846N/A----
Result should have been (
exact matching):
3846N/A====
unixfont-
2.
6 TkpGetFontFromAttributes:
fallback to fixed family FAILED 3846N/A lindex [
font actual {-
family fixed -
size 10}]
1 3846N/A----
Result should have been (
exact matching):
3846N/A====
unixfont-
2.
8 TkpGetFontFromAttributes:
loop over returned font names FAILED 3846N/A lindex [
font actual {-
family fixed -
size 31}]
1 3846N/A----
Result should have been (
exact matching):
3846N/A====
unixfont-
2.
9 TkpGetFontFromAttributes:
reject adobe courier if possible FAILED 3846N/A lindex [
font actual {-
family courier}]
1 3846N/A----
Result should have been (
exact matching):
3846N/A====
unixfont-
5.
9 Tk_MeasureChars procedure:
TK_PARTIAL_OK FAILED 3846N/A----
Result should have been (
exact matching):
3846N/A====
unixfont-
8.
4 AllocFont procedure:
classify characters FAILED 3846N/A incr x [
font measure $
courier "\u4000"] ;#
6 3846N/A incr x [
font measure $
courier "\002"] ;#
4 3846N/A incr x [
font measure $
courier "\012"] ;#
2 3846N/A incr x [
font measure $
courier "\101"] ;#
1 3846N/A----
Result should have been (
exact matching):
3846N/A====
unixfont-
8.
6 AllocFont procedure:
setup widths of special chars FAILED 3846N/A incr x [
font measure $
courier "\001"] ;#
4 3846N/A incr x [
font measure $
courier "\002"] ;#
4 3846N/A incr x [
font measure $
courier "\012"] ;#
2 3846N/A----
Result should have been (
exact matching):
3846N/A====
unixfont-
9.
1 GetControlCharSubst procedure:
2 chars subst FAILED 3846N/A----
Result should have been (
exact matching):
3846N/A====
unixfont-
9.
2 GetControlCharSubst procedure:
4 chars subst FAILED 3846N/A----
Result should have been (
exact matching):
7168N/A====
unixWm-
4.
3 moving window while withdrawn FAILED 7168N/A----
Result should have been (
exact matching):
3846N/A====
unixWm-
45.
2 UpdateSizeHints procedure FAILED 3846N/A toplevel .
t -
width 80 -
height 60 3846N/A set property [
testprop [
testwrapper .
t]
WM_NORMAL_HINTS]
3846N/A list [
expr [
lindex $
property 5]] [
expr [
lindex $
property 6]] [
expr [
lindex $
property 7]] [
expr [
lindex $
property 8]] [
expr [
lindex $
property 9]] [
expr [
lindex $
property 10]]
3846N/A----
Result should have been (
exact matching):
3846N/A====
unixWm-
45.
4 UpdateSizeHints procedure,
not resizable with menu FAILED 3846N/A toplevel .
t -
width 80 -
height 60 3846N/A set property [
testprop [
testwrapper .
t]
WM_NORMAL_HINTS]
3846N/A list [
winfo height .
t] [
expr [
lindex $
property 5]] [
expr [
lindex $
property 6]] [
expr [
lindex $
property 7]] [
expr [
lindex $
property 8]] [
expr [
lindex $
property 9]] [
expr [
lindex $
property 10]]
3846N/A----
Result should have been (
exact matching):
3846N/A====
unixWm-
51.
7 TkWmRestackToplevel procedure,
other window isn't mapped FAILED 3846N/A toplevel $w -width 200 -height 200 -bg green 3846N/A set result [list [winfo containing 100 100]] 3846N/A lappend result [winfo containing 100 100] 3846N/A---- Result should have been (exact matching): 3846N/A==== wm-stackorder-2.2 stacking order FAILED 3846N/A---- Result should have been (exact matching): 3846N/A==== wm-stackorder-2.2 FAILED 3846N/A==== wm-stackorder-2.3 stacking order FAILED 3846N/A---- Result should have been (exact matching): 3846N/A==== wm-stackorder-2.3 FAILED 3846N/A==== wm-stackorder-2.4 stacking order FAILED 3846N/A---- Result should have been (exact matching): 3846N/A==== wm-stackorder-2.4 FAILED 3846N/A==== wm-stackorder-2.5 stacking order FAILED 3846N/A---- Result should have been (exact matching): 3846N/A==== wm-stackorder-2.5 FAILED 3846N/A==== wm-stackorder-4.3 wm stackorder isabove|isbelow FAILED 3846N/A---- Result should have been (exact matching): 3846N/A==== wm-stackorder-4.3 FAILED 3846N/A==== wm-stackorder-4.4 wm stackorder isabove|isbelow FAILED 3846N/A---- Result should have been (exact matching): 3846N/A==== wm-stackorder-4.4 FAILED 3846N/A==== wm-stackorder-5.1 a menu is not a toplevel FAILED 3846N/A---- Result should have been (exact matching): 3846N/A==== wm-stackorder-5.1 FAILED 3846N/ANumber of tests skipped for each constraint: 3846N/ATests running in interp: $(@D)/tktest 3846N/ATemporary files stored in $(@D) 3846N/ATest files sourced into current interpreter 3846N/ASkipping test files that match: l.*.test 3846N/AOnly running test files that match: *.test 3846N/ANumber of tests skipped for each constraint: