| components/tcl/tk/Makefile | ●●●●● patch | view | raw | blame | history | |
| components/tcl/tk/manifests/sample-manifest.p5m | ●●●●● patch | view | raw | blame | history | |
| components/tcl/tk/test/results-32-i386.master | ●●●●● patch | view | raw | blame | history | |
| components/tcl/tk/test/results-64-i386.master | ●●●●● patch | view | raw | blame | history | |
| components/tcl/tk/tk.p5m | ●●●●● patch | view | raw | blame | history |
components/tcl/tk/Makefile
@@ -24,19 +24,18 @@ # Copyright (c) 2020, Michal Nowak # BUILD_BITS= 32_and_64 BUILD_BITS= 32_and_64 include ../../../make-rules/shared-macros.mk COMPONENT_NAME= tk COMPONENT_MAJOR_VERSION= 8.6 COMPONENT_VERSION= $(COMPONENT_MAJOR_VERSION).12 COMPONENT_REVISION= 1 COMPONENT_VERSION= $(COMPONENT_MAJOR_VERSION).13 COMPONENT_SUMMARY= Tk - TCL GUI Toolkit COMPONENT_DESCRIPTION= Tk is an open source, cross-platform widget toolkit that provides a library of basic elements for building a graphical user interface COMPONENT_PROJECT_URL= https://www.tcl-lang.org/ COMPONENT_SRC= $(COMPONENT_NAME)$(COMPONENT_VERSION) COMPONENT_ARCHIVE= $(COMPONENT_SRC)-src.tar.gz COMPONENT_ARCHIVE_HASH= sha256:12395c1f3fcb6bed2938689f797ea3cdf41ed5cb6c4766eec8ac949560310630 COMPONENT_ARCHIVE_HASH= sha256:2e65fa069a23365440a3c56c556b8673b5e32a283800d8d9b257e3f584ce0675 COMPONENT_ARCHIVE_URL= https://prdownloads.sourceforge.net/tcl/$(COMPONENT_ARCHIVE) COMPONENT_FMRI= runtime/tk-8 COMPONENT_CLASSIFICATION= Development/Other Languages @@ -45,31 +44,41 @@ include $(WS_MAKE_RULES)/common.mk COMPONENT_PREP_ACTION = \ PKG_MACROS += COMPONENT_MAJOR_VERSION=$(COMPONENT_MAJOR_VERSION) COMPONENT_PREP_ACTION= \ (cd $(@D)/unix ; autoreconf -f) COMPONENT_PRE_CONFIGURE_ACTION = \ COMPONENT_PRE_CONFIGURE_ACTION= \ ($(CLONEY) $(SOURCE_DIR) $(@D)) # This macro will help to look for the configure # file at the pointed location CONFIGURE_SCRIPT = $(SOURCE_DIR)/unix/configure CONFIGURE_SCRIPT= $(SOURCE_DIR)/unix/configure CONFIGURE_BINDIR.32 = $(CONFIGURE_PREFIX)/bin/$(MACH32) CONFIGURE_BINDIR.32= $(CONFIGURE_PREFIX)/bin/$(MACH32) CFLAGS += $(XPG6MODE) -std=c99 CONFIGURE_OPTIONS += --enable-shared CONFIGURE_OPTIONS += --enable-man-symlinks CONFIGURE_OPTIONS += --enable-threads CONFIGURE_OPTIONS += --with-tcl="$(COMPONENT_DIR)/../tcl/build/$(MACH$(BITS))" CONFIGURE_OPTIONS += --enable-shared CONFIGURE_OPTIONS += --enable-man-symlinks CONFIGURE_OPTIONS += --enable-threads CONFIGURE_OPTIONS += --with-tcl="$(COMPONENT_DIR)/../tcl/build/$(MACH$(BITS))" # Prevents a '64-bit runpath in 32-bit binary' pkglint warning CONFIGURE_OPTIONS.32 += -x-libraries=/usr/lib CONFIGURE_OPTIONS.64 += --enable-64bit CONFIGURE_OPTIONS.32 += -x-libraries=/usr/lib CONFIGURE_OPTIONS.64 += --enable-64bit # Don't use rpath COMPONENT_POST_INSTALL_ACTION += \ find $(PROTO_DIR) -name libtk$(COMPONENT_MAJOR_VERSION).so -exec chmod 0755 {} \; ; COMPONENT_POST_INSTALL_ACTION += \ sed -f $(COMPONENT_DIR)/files/tksed.$(BITS) \ $(PROTO_DIR)$(USRLIBDIR.$(BITS))/tkConfig.sh > \ $(PROTO_DIR)$(USRLIBDIR.$(BITS))/tkConfig.sh.new; \ $(MV) $(PROTO_DIR)$(USRLIBDIR.$(BITS))/tkConfig.sh.new \ $(PROTO_DIR)$(USRLIBDIR.$(BITS))/tkConfig.sh; \ $(CHMOD) 555 $(PROTO_DIR)$(USRLIBDIR.$(BITS))/tkConfig.sh # Tests are run using an X virtual framebuffer. # When we have the equivalent of REQUIRED_PACKAGES for test dependencies, @@ -86,31 +95,11 @@ COMPONENT_TEST_MASTER = \ $(COMPONENT_TEST_RESULTS_DIR)/results-$(BITS)-$(MACH).master COMPONENT_TEST_TRANSFORMS += \ '-e "s|^.*$(CC).*$$|XXX_CC_XXX|"' \ '-e "s|^.*tcl/build/$(MACH$(BITS)).*$$|XXX_CC_XXX|g"' \ '-e "s|^cc: Warning: -xarch=v9 is deprecated.*$$|XXX_CC_XXX|g"' \ '-e "s|^cc: Warning: illegal use of -x.* option, .*$$|XXX_CC_XXX|g"' \ '-e "/Nothing to be done/d"' \ '-e "/Leaving directory/d"' \ '-e "/Entering directory/d"' \ '-e "/is deprecated/d"' \ '-e "/tk.*Init.o/d"' \ '-e "/^XXX_CC_XXX$$/d"' \ '-e "/^make.*$$/d"' \ '-e "/^rm .*$$/d"' \ '-e "/^mv .*$$/d"' \ '-e "/^Tests began at .*$$/d"' \ '-e "/^Tests ended at .*$$/d"' COMPONENT_POST_INSTALL_ACTION += \ sed -f $(COMPONENT_DIR)/files/tksed.$(BITS) \ $(PROTO_DIR)$(USRLIBDIR.$(BITS))/tkConfig.sh > \ $(PROTO_DIR)$(USRLIBDIR.$(BITS))/tkConfig.sh.new; \ $(MV) $(PROTO_DIR)$(USRLIBDIR.$(BITS))/tkConfig.sh.new \ $(PROTO_DIR)$(USRLIBDIR.$(BITS))/tkConfig.sh; \ $(CHMOD) 555 $(PROTO_DIR)$(USRLIBDIR.$(BITS))/tkConfig.sh COMPONENT_TEST_TRANSFORMS= \ '-n' \ '-e "/Total/p"' \ '-e "/Sourced/p"' \ '-e "/failing/p"' # special targets due to tcl internals dependencies ../tcl/build/%/.built: @@ -118,8 +107,6 @@ $(CONFIGURE_32): ../tcl/build/$(MACH32)/.built $(CONFIGURE_64): ../tcl/build/$(MACH64)/.built PKG_MACROS += COMPONENT_MAJOR_VERSION=$(COMPONENT_MAJOR_VERSION) # Required for test suite REQUIRED_PACKAGES += x11/server/xvfb components/tcl/tk/manifests/sample-manifest.p5m
@@ -158,6 +158,7 @@ file path=usr/lib/tk8.6/msgs/en_gb.msg file path=usr/lib/tk8.6/msgs/eo.msg file path=usr/lib/tk8.6/msgs/es.msg file path=usr/lib/tk8.6/msgs/fi.msg file path=usr/lib/tk8.6/msgs/fr.msg file path=usr/lib/tk8.6/msgs/hu.msg file path=usr/lib/tk8.6/msgs/it.msg @@ -166,6 +167,7 @@ file path=usr/lib/tk8.6/msgs/pt.msg file path=usr/lib/tk8.6/msgs/ru.msg file path=usr/lib/tk8.6/msgs/sv.msg file path=usr/lib/tk8.6/msgs/zh_cn.msg file path=usr/lib/tk8.6/obsolete.tcl file path=usr/lib/tk8.6/optMenu.tcl file path=usr/lib/tk8.6/palette.tcl components/tcl/tk/test/results-32-i386.master
@@ -1,1395 +1,6 @@ Tests running in interp: $(@D)/tktest Tests located in: $(SOURCE_DIR)/tests Tests running in: $(@D) Temporary files stored in $(@D) Test files sourced into current interpreter Running tests that match: * Skipping test files that match: l.*.test Only running test files that match: *.test bell.test Bell should ring now ... bgerror.test bind.test bitmap.test border.test busy.test button.test canvImg.test canvMoveto.test canvPs.test canvRect.test canvText.test ==== canvText-20.1 angled text bounding box FAILED ==== Contents of test case: .c create text 2 2 -tag t -anchor center -text 0 -font {Helvetica 24} set bb0 [.c bbox t] .c itemconf t -angle 90 set bb1 [.c bbox t] .c itemconf t -angle 180 set bb2 [.c bbox t] .c itemconf t -angle 270 set bb3 [.c bbox t] list [expr {$bb0 eq $bb2 ? "ok" : "$bb0,$bb2"}] [expr {$bb1 eq $bb3 ? "ok" : "$bb1,$bb3"}] [expr {$bb0 eq [transpose $bb1] ? "ok" : "$bb0,$bb1"}] ---- Result was: {-8 -17 13 22,-9 -18 12 21} {-17 -9 22 12,-18 -8 21 13} {-8 -17 13 22,-17 -9 22 12} ---- Result should have been (exact matching): ok ok ok ==== canvText-20.1 FAILED canvWind.test canvas.test choosedir.test clipboard.test clrpick.test ==== clrpick-2.3 tk_chooseColor command FAILED ==== Contents of test case: ToPressButton . ok tk_chooseColor -parent . -title "Press OK" ---- Result was: #d9d9d9 ---- Result should have been (exact matching): #808040 ==== clrpick-2.3 FAILED cmds.test color.test config.test cursor.test dialog.test embed.test entry.test event.test filebox.test focus.test ==== focus-2.6 TkFocusFilterEvent procedure, FocusIn events FAILED ==== Contents of test case: focus .t.b1 focus . update event gen [testwrapper .t] <FocusIn> -detail NotifyAncestor set focusInfo {} set x [focus] event gen . <KeyPress-x> list $x $focusInfo ---- Result was: {} {} ---- Result should have been (exact matching): .t.b1 {press .t.b1 x} ==== focus-2.6 FAILED ==== focus-2.7 TkFocusFilterEvent procedure, FocusOut events FAILED ==== Contents of test case: set result {} foreach detail {NotifyAncestor NotifyInferior NotifyNonlinear NotifyNonlinearVirtual NotifyPointer NotifyPointerRoot NotifyVirtual} { focus -force .t.b1 event gen [testwrapper .t] <FocusOut> -detail $detail update lappend result [focus] } return $result ---- Result was: .t.b1 .t.b1 .t.b1 .t.b1 .t.b1 .t.b1 .t.b1 ---- Result should have been (exact matching): {} .t.b1 {} {} .t.b1 .t.b1 {} ==== focus-2.7 FAILED ==== focus-2.9 TkFocusFilterEvent procedure, FocusOut events FAILED ==== Contents of test case: focus .t.b1 event gen [testwrapper .] <FocusOut> -detail NotifyAncestor focus ---- Result was: .t.b1 ---- Result should have been (exact matching): ==== focus-2.9 FAILED ==== focus-5.1 ChangeXFocus procedure, don't take focus unless have it FAILED ==== Contents of test case: setupbg focusSetup focus -force .t update set result [focus] send [dobg {tk appname}] {focus -force .; update} lappend result [focus] focus .t.b2 update lappend result [focus] ---- Result was: .t .t {} ---- Result should have been (exact matching): .t {} {} ==== focus-5.1 FAILED focusTcl.test font.test ==== font-4.9 font command: actual FAILED ==== Contents of test case: # (objc > 3) so objPtr = objv[3 + skip] string tolower [font actual {-family times} -family] ---- Result was: liberation serif ---- Result should have been (exact matching): times ==== font-4.9 FAILED ==== font-8.4 font command: families FAILED ==== Contents of test case: # TkpGetFontFamilies() regexp -nocase times [font families] ---- Result was: 0 ---- Result should have been (exact matching): 1 ==== font-8.4 FAILED ==== font-21.6 Tk_PostscriptFontName procedure: spaces FAILED ==== Contents of test case: psfontname "{new century schoolbook} 10" ---- Result was: DejavuSans ---- Result should have been (exact matching): NewCenturySchlbk-Roman ==== font-21.6 FAILED ==== font-44.1 TkFontGetPixels: size < 0 FAILED ==== Contents of test case: tk scaling 0.5 font actual {times -12} -size ---- Result was: 9 ---- Result should have been (exact matching): 24 ==== font-44.1 FAILED fontchooser.test frame.test geometry.test get.test grab.test grid.test image.test imgBmap.test imgPNG.test imgPPM.test imgPhoto.test listbox.test main.test menu.test menuDraw.test menubut.test message.test msgbox.test obj.test oldpack.test option.test pack.test ==== pack-18.1 unmap content when container unmapped FAILED ==== Contents of test case: # adjust the position of .pack before test to avoid a screen switch # that occurs with window managers that have desktops four times as big # as the screen (screen switch causes scale and other tests to fail). wm geometry .pack +100+100 # On the PC, when the width/height is configured while the window is # unmapped, the changes don't take effect until the window is remapped. # Who knows why? eval destroy [winfo child .pack] frame .pack.a -width 100 -height 50 -relief raised -bd 2 pack .pack.a update idletasks set result [winfo ismapped .pack.a] wm iconify .pack lappend result [winfo ismapped .pack.a] .pack.a configure -width 200 -height 75 update idletasks lappend result [winfo width .pack.a ] [winfo height .pack.a] [winfo ismapped .pack.a] wm deiconify .pack packUpdate lappend result [winfo ismapped .pack.a] ---- Result was: 1 1 200 75 1 1 ---- Result should have been (exact matching): 1 0 200 75 0 1 ==== pack-18.1 FAILED ==== pack-18.2 unmap content when container unmapped FAILED ==== Contents of test case: # adjust the position of .pack before test to avoid a screen switch # that occurs with window managers that have desktops four times as big # as the screen (screen switch causes scale and other tests to fail). wm geometry .pack +100+100 frame .pack.a -relief raised -bd 2 frame .pack.b -width 70 -height 30 -relief sunken -bd 2 pack .pack.a pack .pack.b -in .pack.a update idletasks set result [winfo ismapped .pack.b] wm iconify .pack lappend result [winfo ismapped .pack.b] .pack.b configure -width 100 -height 30 update idletasks lappend result [winfo width .pack.b ] [winfo height .pack.b] [winfo ismapped .pack.b] wm deiconify .pack packUpdate lappend result [winfo ismapped .pack.b] ---- Result was: 1 1 100 30 1 1 ---- Result should have been (exact matching): 1 0 100 30 0 1 ==== pack-18.2 FAILED packgrid.test panedwindow.test place.test ==== place-8.1 PlaceStructureProc, mapping and unmapping content FAILED ==== Contents of test case: place .t.f2 -relx 1.0 -rely 1.0 -anchor sw update idletasks set result [winfo ismapped .t.f2] wm iconify .t lappend result [winfo ismapped .t.f2] place .t.f2 -x 40 -y 30 -relx 0 -rely 0 -anchor nw update idletasks lappend result [winfo x .t.f2] [winfo y .t.f2] [winfo ismapped .t.f2] wm deiconify .t placeUpdate lappend result [winfo ismapped .t.f2] ---- Result was: 1 1 40 30 1 1 ---- Result should have been (exact matching): 1 0 40 30 0 1 ==== place-8.1 FAILED ==== place-8.2 PlaceStructureProc, mapping and unmapping content FAILED ==== Contents of test case: place .t.f -x 0 -y 0 -width 200 -height 100 place .t.f2 -in .t.f -relx 1.0 -rely 1.0 -anchor sw -width 50 -height 20 update idletasks set result [winfo ismapped .t.f2] wm iconify .t lappend result [winfo ismapped .t.f2] place .t.f2 -x 40 -y 30 -relx 0 -rely 0 -anchor nw update idletasks lappend result [winfo x .t.f2] [winfo y .t.f2] [winfo ismapped .t.f2] wm deiconify .t placeUpdate lappend result [winfo ismapped .t.f2] ---- Result was: 1 1 42 32 1 1 ---- Result should have been (exact matching): 1 0 42 32 0 1 ==== place-8.2 FAILED raise.test safe.test safePrimarySelection.test scale.test scrollbar.test ==== scrollbar-3.36 ScrollbarWidgetCmd procedure, "fraction" option FAILED ==== Contents of test case: format {%.6g} [.s fraction 4 179] ---- Result was: 0.976048 ---- Result should have been (exact matching): 1 ==== scrollbar-3.36 FAILED ==== scrollbar-3.38 ScrollbarWidgetCmd procedure, "fraction" option FAILED ==== Contents of test case: format {%.6g} [.s fraction 4 178] ---- Result was: 0.97006 ---- Result should have been (exact matching): 0.993711 ==== scrollbar-3.38 FAILED ==== scrollbar-6.12.1 ScrollbarPosition procedure FAILED ==== Contents of test case: .s identify 8 19 ---- Result was: trough1 ---- Result should have been (exact matching): arrow1 ==== scrollbar-6.12.1 FAILED ==== scrollbar-6.29.1 ScrollbarPosition procedure FAILED ==== Contents of test case: .s identify 8 180 ---- Result was: trough2 ---- Result should have been (exact matching): arrow2 ==== scrollbar-6.29.1 FAILED ==== scrollbar-6.35 ScrollbarPosition procedure FAILED ==== Contents of test case: .s identify 18 100 ---- Result was: ---- Result should have been (exact matching): trough2 ==== scrollbar-6.35 FAILED ==== scrollbar-6.44 ScrollbarPosition procedure FAILED ==== Contents of test case: .t.s identify 100 18 ---- Result was: ---- Result should have been (exact matching): trough2 ==== scrollbar-6.44 FAILED select.test send.test spinbox.test text.test textBTree.test textDisp.test ==== textDisp-19.18 count -ypixels with indices in elided lines FAILED ==== Contents of test case: .t configure -wrap none .t delete 1.0 end for {set i 1} {$i < 100} {incr i} { .t insert end [string repeat "Line $i" 20] .t insert end "\n" } .t tag add hidden 5.15 20.15 .t tag configure hidden -elide true .t yview 35.0 set res {} update lappend res [.t count -ypixels 5.0 25.0] .t yview scroll [expr {- 15 * $fixedHeight}] pixels updateText lappend res [.t count -ypixels 5.0 25.0] ---- Result was: 300 300 ---- Result should have been (exact matching): 75 75 ==== textDisp-19.18 FAILED ==== textDisp-20.1 FindDLine FAILED ==== Contents of test case: .t yview 48.0 list [.t dlineinfo 46.0] [.t dlineinfo 47.0] [.t dlineinfo 49.0] [.t dlineinfo 58.0] ---- Result was: {} {} {3 18 49 15 11} {} ---- Result should have been (exact matching): {} {} {3 18 49 15 12} {} ==== textDisp-20.1 FAILED ==== textDisp-20.2 FindDLine FAILED ==== Contents of test case: .t yview 100.0 .t yview -pickplace 53.0 list [.t dlineinfo 50.0] [.t dlineinfo 50.14] [.t dlineinfo 50.21] ---- Result was: {3 -2 140 15 11} {3 -2 140 15 11} {3 13 133 15 11} ---- Result should have been (exact matching): {3 -2 140 15 12} {3 -2 140 15 12} {3 13 133 15 12} ==== textDisp-20.2 FAILED ==== textDisp-20.3 FindDLine FAILED ==== Contents of test case: .t yview 100.0 .t yview 49.0 list [.t dlineinfo 50.0] [.t dlineinfo 50.24] [.t dlineinfo 57.0] ---- Result was: {3 18 140 15 11} {3 33 133 15 11} {} ---- Result should have been (exact matching): {3 18 140 15 12} {3 33 133 15 12} {} ==== textDisp-20.3 FAILED ==== textDisp-20.4 FindDLine FAILED ==== Contents of test case: .t yview 100.0 .t yview 42.0 list [.t dlineinfo 50.0] [.t dlineinfo 50.24] [.t dlineinfo 50.40] ---- Result was: {3 123 140 15 11} {3 138 133 15 11} {} ---- Result should have been (exact matching): {3 123 140 15 12} {3 138 133 15 12} {} ==== textDisp-20.4 FAILED ==== textDisp-20.5 FindDLine FAILED ==== Contents of test case: .t yview 100.0 .t yview 48.0 list [.t dlineinfo 50.0] [.t dlineinfo 50.20] [.t dlineinfo 50.40] ---- Result was: {3 33 371 15 11} {3 33 371 15 11} {3 33 371 15 11} ---- Result should have been (exact matching): {3 33 371 15 12} {3 33 371 15 12} {3 33 371 15 12} ==== textDisp-20.5 FAILED textImage.test textIndex.test textMark.test textTag.test textWind.test ==== textWind-10.7 EmbWinLayoutProc procedure, error in creating window FAILED ==== Contents of test case: .t insert 1.0 "Some sample text" .t window create 1.5 -create { toplevel .t2 -width 100 -height 150 wm geom .t2 +0+0 concat .t2 } set msg {} update lappend msg [.t bbox 1.5] ---- Result was: {{can't embed .t2 relative to .t}} {40 12 0 0} ---- Result should have been (exact matching): {{can't embed .t2 relative to .t}} {{window name "t2" already exists in parent}} {40 12 0 0} ==== textWind-10.7 FAILED tk.test unixButton.test unixEmbed.test ==== unixEmbed-8.1 TkpClaimFocus procedure FAILED ==== Contents of test case: frame .f1 -container 1 -width 200 -height 50 frame .f2 -width 200 -height 50 pack .f1 .f2 dobg "set w1 [winfo id .f1]" dobg { eval destroy [winfo child .] toplevel .t1 -use $w1 -highlightthickness 2 -bd 2 -relief sunken } focus -force .f2 update list [dobg { focus .t1 set x [list [focus]] update after 500 update lappend x [focus] }] [focus] ---- Result was: {.t1 .t1} .f2 ---- Result should have been (exact matching): {{} .t1} .f1 ==== unixEmbed-8.1 FAILED ==== unixEmbed-10.1 geometry propagation in tkUnixWm.c/UpdateGeometryInfo FAILED ==== Contents of test case: frame .f1 -container 1 -width 200 -height 50 pack .f1 update idletasks toplevel .t1 -use [winfo id .f1] -width 150 -height 80 update idletasks wm geometry .t1 +40+50 update idletasks wm geometry .t1 ---- Result was: 1x1+0+0 ---- Result should have been (exact matching): 150x80+0+0 ==== unixEmbed-10.1 FAILED ==== unixEmbed-10.2 geometry propagation in tkUnixWm.c/UpdateGeometryInfo FAILED ==== Contents of test case: frame .f1 -container 1 -width 200 -height 50 pack .f1 update idletasks toplevel .t1 -use [winfo id .f1] -width 150 -height 80 update idletasks wm geometry .t1 70x300+10+20 update idletasks wm geometry .t1 ---- Result was: 1x1+0+0 ---- Result should have been (exact matching): 70x300+0+0 ==== unixEmbed-10.2 FAILED unixFont.test ==== unixfont-1.2 TkpGetNativeFont procedure: native FAILED ==== Contents of test case: font measure fixed 0 ---- Result was: 11 ---- Result should have been (exact matching): 6 ==== unixfont-1.2 FAILED ==== unixfont-2.2 TkpGetFontFromAttributes procedure: Times relatives FAILED ==== Contents of test case: set x {} lappend x [lindex [font actual {-family "Times New Roman"}] 1] lappend x [lindex [font actual {-family "New York"}] 1] lappend x [lindex [font actual {-family "Times"}] 1] ---- Result was: {Liberation Serif} {DejaVu Sans} {Liberation Serif} ---- Result should have been (exact matching): times times times ==== unixfont-2.2 FAILED ==== unixfont-2.3 TkpGetFontFromAttributes procedure: Courier relatives FAILED ==== Contents of test case: set x {} lappend x [lindex [font actual {-family "Courier New"}] 1] lappend x [lindex [font actual {-family "Monaco"}] 1] lappend x [lindex [font actual {-family "Courier"}] 1] ---- Result was: {Liberation Mono} {DejaVu Sans} Courier ---- Result should have been (exact matching): courier courier courier ==== unixfont-2.3 FAILED ==== unixfont-2.4 TkpGetFontFromAttributes procedure: Helvetica relatives FAILED ==== Contents of test case: set x {} lappend x [lindex [font actual {-family "Arial"}] 1] lappend x [lindex [font actual {-family "Geneva"}] 1] lappend x [lindex [font actual {-family "Helvetica"}] 1] ---- Result was: {Liberation Sans} {DejaVu Sans} {Liberation Sans} ---- Result should have been (exact matching): helvetica helvetica helvetica ==== unixfont-2.4 FAILED ==== unixfont-2.6 TkpGetFontFromAttributes: fallback to fixed family FAILED ==== Contents of test case: lindex [font actual {-family fixed -size 10}] 1 ---- Result was: DejaVu Sans ---- Result should have been (exact matching): fixed ==== unixfont-2.6 FAILED ==== unixfont-2.8 TkpGetFontFromAttributes: loop over returned font names FAILED ==== Contents of test case: lindex [font actual {-family fixed -size 31}] 1 ---- Result was: DejaVu Sans ---- Result should have been (exact matching): fixed ==== unixfont-2.8 FAILED ==== unixfont-2.9 TkpGetFontFromAttributes: reject adobe courier if possible FAILED ==== Contents of test case: lindex [font actual {-family courier}] 1 ---- Result was: Courier ---- Result should have been (exact matching): courier ==== unixfont-2.9 FAILED ==== unixfont-5.8 Tk_MeasureChars procedure: internal spaces significant FAILED ==== Contents of test case: .b.l config -text "00 000 00000" getsize ---- Result was: 65 40 ---- Result should have been (exact matching): 77 40 ==== unixfont-5.8 FAILED ==== unixfont-5.9 Tk_MeasureChars procedure: TK_PARTIAL_OK FAILED ==== Contents of test case: .b.c dchars $t 0 end .b.c insert $t 0 "0000" .b.c index $t @[expr int($ax*2.5)],1 ---- Result was: 4 ---- Result should have been (exact matching): 2 ==== unixfont-5.9 FAILED ==== unixfont-5.12 Tk_MeasureChars procedure: include eol spaces FAILED ==== Contents of test case: .b.l config -text "000 \n000" getsize ---- Result was: 48 40 ---- Result should have been (exact matching): 66 40 ==== unixfont-5.12 FAILED ==== unixfont-8.4 AllocFont procedure: classify characters FAILED ==== Contents of test case: set x 0 incr x [font measure $courier "\u4000"] ;# 6 incr x [font measure $courier "\002"] ;# 4 incr x [font measure $courier "\012"] ;# 2 incr x [font measure $courier "\101"] ;# 1 set x ---- Result was: 32 ---- Result should have been (exact matching): 78 ==== unixfont-8.4 FAILED ==== unixfont-8.6 AllocFont procedure: setup widths of special chars FAILED ==== Contents of test case: set x 0 incr x [font measure $courier "\001"] ;# 4 incr x [font measure $courier "\002"] ;# 4 incr x [font measure $courier "\012"] ;# 2 set x ---- Result was: 22 ---- Result should have been (exact matching): 60 ==== unixfont-8.6 FAILED ==== unixfont-9.1 GetControlCharSubst procedure: 2 chars subst FAILED ==== Contents of test case: .b.c dchars $t 0 end .b.c insert $t 0 "0\a0" set x {} lappend x [.b.c index $t @[expr $ax*0],0] lappend x [.b.c index $t @[expr $ax*1],0] lappend x [.b.c index $t @[expr $ax*2],0] lappend x [.b.c index $t @[expr $ax*3],0] ---- Result was: 0 1 3 3 ---- Result should have been (exact matching): 0 1 1 2 ==== unixfont-9.1 FAILED ==== unixfont-9.2 GetControlCharSubst procedure: 4 chars subst FAILED ==== Contents of test case: .b.c dchars $t 0 end .b.c insert $t 0 "0\0010" set x {} lappend x [.b.c index $t @[expr $ax*0],0] lappend x [.b.c index $t @[expr $ax*1],0] lappend x [.b.c index $t @[expr $ax*2],0] lappend x [.b.c index $t @[expr $ax*3],0] lappend x [.b.c index $t @[expr $ax*4],0] lappend x [.b.c index $t @[expr $ax*5],0] ---- Result was: 0 1 3 3 3 3 ---- Result should have been (exact matching): 0 1 1 1 1 2 ==== unixfont-9.2 FAILED unixMenu.test unixSelect.test unixWm.test ==== unixWm-8.4 icon windows FAILED ==== Contents of test case: destroy .t destroy .icon toplevel .t -width 100 -height 30 wm geom .t +0+0 update idletasks set result [wm iconwindow .t] toplevel .icon -width 50 -height 50 -bg red wm iconwindow .t .icon lappend result [wm iconwindow .t] [wm state .icon] wm iconwindow .t {} lappend result [wm iconwindow .t] [wm state .icon] update lappend result [winfo ismapped .t] [winfo ismapped .icon] wm iconify .t update idletasks lappend result [winfo ismapped .t] [winfo ismapped .icon] ---- Result was: .icon icon {} withdrawn 1 0 1 0 ---- Result should have been (exact matching): .icon icon {} withdrawn 1 0 0 0 ==== unixWm-8.4 FAILED ==== unixWm-16.3 Tk_WmCmd procedure, "deiconify" option FAILED ==== Contents of test case: wm iconify .t set result {} lappend result [winfo ismapped .t] [wm state .t] wm deiconify .t lappend result [winfo ismapped .t] [wm state .t] ---- Result was: 1 normal 1 normal ---- Result should have been (exact matching): 0 iconic 1 normal ==== unixWm-16.3 FAILED ==== unixWm-23.5 Tk_WmCmd procedure, "iconify" option FAILED ==== Contents of test case: destroy .t2 toplevel .t2 wm geom .t2 +0+0 update idletasks wm iconify .t2 update idletasks set result [winfo ismapped .t2] destroy .t2 set result ---- Result was: 1 ---- Result should have been (exact matching): 0 ==== unixWm-23.5 FAILED ==== unixWm-23.6 Tk_WmCmd procedure, "iconify" option FAILED ==== Contents of test case: destroy .t2 toplevel .t2 wm geom .t2 -0+0 update idletasks set result [winfo ismapped .t2] wm iconify .t2 update idletasks lappend result [winfo ismapped .t2] destroy .t2 set result ---- Result was: 1 1 ---- Result should have been (exact matching): 1 0 ==== unixWm-23.6 FAILED ==== unixWm-42.1 WrapperEventProc procedure, map and unmap events FAILED ==== Contents of test case: destroy .t toplevel .t -width 400 -height 150 wm geometry .t +0+0 tkwait visibility .t set result {} bind .t <Map> {set x "mapped"} bind .t <Unmap> {set x "unmapped"} set x {no event} wm iconify .t update idletasks lappend result $x [winfo ismapped .t] set x {no event} wm deiconify .t update idletasks lappend result $x [winfo ismapped .t] ---- Result was: {no event} 1 {no event} 1 ---- Result should have been (exact matching): unmapped 0 mapped 1 ==== unixWm-42.1 FAILED ==== unixWm-45.2 UpdateSizeHints procedure FAILED ==== Contents of test case: destroy .t toplevel .t -width 80 -height 60 wm minsize .t 30 40 wm maxsize .t 200 500 wm geometry .t +0+0 tkwait visibility .t set property [testprop [testwrapper .t] WM_NORMAL_HINTS] 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]] ---- Result was: 30 40 200 500 0 0 ---- Result should have been (exact matching): 30 40 200 500 1 1 ==== unixWm-45.2 FAILED ==== unixWm-45.4 UpdateSizeHints procedure, not resizable with menu FAILED ==== Contents of test case: destroy .t toplevel .t -width 80 -height 60 frame .t.menu -height 23 -width 50 testmenubar window .t .t.menu wm resizable .t 0 0 wm geometry .t +0+0 tkwait visibility .t set property [testprop [testwrapper .t] WM_NORMAL_HINTS] 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]] ---- Result was: 60 80 83 80 83 0 0 ---- Result should have been (exact matching): 60 80 83 80 83 1 1 ==== unixWm-45.4 FAILED ==== unixWm-50.1 Tk_CoordsToWindow procedure, finding a toplevel, x-coords, title bar FAILED ==== Contents of test case: update toplevel .t -width 300 -height 400 -bg green wm geom .t +100+100 tkwait visibility .t toplevel .t2 -width 100 -height 200 -bg red wm geom .t2 +200+200 tkwait visibility .t2 raise .t2 update set x [winfo rootx .t] set y [winfo rooty .t] list [winfo containing [expr $x - 30] [expr $y + 250]] [winfo containing [expr $x - 1] [expr $y + 250]] [winfo containing $x [expr $y + 250]] [winfo containing [expr $x + 99] [expr $y + 250]] [winfo containing [expr $x + 100] [expr $y + 250]] [winfo containing [expr $x + 150] [expr $y + 90]] [winfo containing [expr $x + 199] [expr $y + 250]] [winfo containing [expr $x + 200] [expr $y + 250]] [winfo containing [expr $x + 220] [expr $y + 250]] ---- Result was: {} {} .t .t .t2 .t .t2 .t .t ---- Result should have been (exact matching): {} {} .t {} .t2 {} .t2 {} .t ==== unixWm-50.1 FAILED ==== unixWm-50.9 Tk_CoordsToWindow procedure, unmapped windows FAILED ==== Contents of test case: destroy .t destroy .t2 toplevel .t -width 200 -height 200 -bg green wm geometry .t +0+0 tkwait visibility .t toplevel .t2 -width 200 -height 200 -bg red wm geometry .t2 +0+0 tkwait visibility .t2 set result [list [winfo containing 100 100]] wm iconify .t2 update idletasks lappend result [winfo containing 100 100] ---- Result was: .t2 .t2 ---- Result should have been (exact matching): .t2 .t ==== unixWm-50.9 FAILED util.test visual.test visual_bb.test winButton.test winClipboard.test winDialog.test winFont.test winMenu.test winMsgbox.test winSend.test winWm.test ==== winWm-9.2 check wm forget for unmapped parent (#3205464,#2967911) FAILED ==== Contents of test case: pack .t.f.x pack .t.f lappend aid [after 5000 {set ::winwm92 timeout}] [after 500 { wm manage .t.f wm iconify .t lappend aid [after 500 { wm forget .t.f wm deiconify .t lappend aid [after 500 { pack .t.f lappend aid [after 500 { set ::winwm92 [expr { [winfo rooty .t.f.x] == 0 ? "failed" : "ok"}]}] }] }] }] vwait ::winwm92 foreach id $aid { after cancel $id } set winwm92 ---- Result was: failed ---- Result should have been (exact matching): ok ==== winWm-9.2 FAILED window.test winfo.test ==== winfo-9.4 "winfo viewable" command FAILED ==== Contents of test case: wm iconify . winfo viewable . ---- Result was: 1 ---- Result should have been (exact matching): 0 ==== winfo-9.4 FAILED ==== winfo-9.7 "winfo viewable" command FAILED ==== Contents of test case: frame .f1 -width 100 -height 100 -relief raised -bd 2 place .f1 -x 0 -y 0 frame .f1.f2 -width 50 -height 50 -relief raised -bd 2 place .f1.f2 -x 0 -y 0 update wm iconify . list [winfo viewable .f1] [winfo viewable .f1.f2] ---- Result was: 1 1 ---- Result should have been (exact matching): 0 0 ==== winfo-9.7 FAILED wm.test ==== wm-iconify-3.1 iconify behavior FAILED ==== Contents of test case: toplevel .t2 wm geom .t2 -0+0 update idletasks set result [winfo ismapped .t2] wm iconify .t2 update idletasks lappend result [winfo ismapped .t2] ---- Result was: 1 1 ---- Result should have been (exact matching): 1 0 ==== wm-iconify-3.1 FAILED ==== wm-stackorder-3.1 unmapped toplevel FAILED ==== Contents of test case: toplevel .t1 ; update toplevel .t2 ; update wm iconify .t1 wm stackorder . ---- Result was: . .t1 .t2 ---- Result should have been (exact matching): . .t2 ==== wm-stackorder-3.1 FAILED ==== wm-stackorder-5.2 A normal toplevel can't be raised above an overrideredirect toplevel on unix FAILED ==== Contents of test case: toplevel .t tkwait visibility .t wm overrideredirect .t 1 raise . update raiseDelay wm stackorder . isabove .t ---- Result was: 1 ---- Result should have been (exact matching): 0 ==== wm-stackorder-5.2 FAILED ==== wm-transient-4.1 transient toplevel is withdrawn when mapped if toplevel is iconic FAILED ==== Contents of test case: toplevel .top wm iconify .top update toplevel .subject wm transient .subject .top update list [wm state .subject] [winfo ismapped .subject] ---- Result was: normal 1 ---- Result should have been (exact matching): withdrawn 0 ==== wm-transient-4.1 FAILED ==== wm-transient-4.2 already mapped transient toplevel is withdrawn if toplevel is iconic FAILED ==== Contents of test case: toplevel .top raiseDelay wm iconify .top update idletasks toplevel .subject update idletasks wm transient .subject .top update idletasks list [wm state .subject] [winfo ismapped .subject] ---- Result was: normal 1 ---- Result should have been (exact matching): withdrawn 0 ==== wm-transient-4.2 FAILED ==== wm-transient-4.3 iconify/deiconify on the toplevel does a withdraw/deiconify on the transient FAILED ==== Contents of test case: toplevel .top toplevel .subject update idletasks wm transient .subject .top wm iconify .top update idletasks lappend results [wm state .subject] [winfo ismapped .subject] wm deiconify .top update idletasks lappend results [wm state .subject] [winfo ismapped .subject] ---- Result was: normal 1 normal 1 ---- Result should have been (exact matching): withdrawn 0 normal 1 ==== wm-transient-4.3 FAILED ==== wm-transient-8.1 transient to withdrawn window, Bug 1163496 FAILED ==== Contents of test case: # Verifies that transients stay on top of their toplevels, even if they were # made transients when those toplevels were withdrawn. toplevel .t1; wm withdraw .t1; update toplevel .t2; wm transient .t2 .t1; update lappend result [winfo ismapped .t1] [winfo ismapped .t2] wm deiconify .t1; update lappend result [winfo ismapped .t1] [winfo ismapped .t2] raise .t1; update lappend result [lsearch -all -inline -glob [wm stackorder .] ".t?"] ---- Result was: 0 0 1 1 {.t2 .t1} ---- Result should have been (exact matching): 0 0 1 1 {.t1 .t2} ==== wm-transient-8.1 FAILED ==== wm-state-2.8 state change after map FAILED ==== Contents of test case: toplevel .t update wm state .t iconic wm state .t ---- Result was: normal ---- Result should have been (exact matching): iconic ==== wm-state-2.8 FAILED ==== wm-state-2.9 state change after map FAILED ==== Contents of test case: toplevel .t update wm iconify .t wm state .t ---- Result was: normal ---- Result should have been (exact matching): iconic ==== wm-state-2.9 FAILED xmfbox.test all.tcl: Total 9661 Passed 8656 Skipped 940 Failed 65 all.tcl: Total 9681 Passed 8943 Skipped 663 Failed 75 Sourced 92 Test Files. Files with failing tests: canvText.test clrpick.test focus.test font.test pack.test place.test scrollbar.test textDisp.test textWind.test unixEmbed.test unixFont.test unixWm.test winWm.test winfo.test wm.test Number of tests skipped for each constraint: 1 !havePseudocolorVisual 14 altDisplay 29 aqua 5 aquaOrWin32 1 cliboardManagerPresent 10 emptyTest 125 fonts 1 fullutf 2 haveTruecolor24 7 knownBug 1 memory 136 nonPortable 63 nt 2 pressbutton 11 testmetrics 7 testwinevent 133 textfonts 1 userInteraction 340 win 51 winSend Tests running in interp: $(@D)/tktest Tests located in: $(SOURCE_DIR)/tests/ttk Tests running in: $(@D) Temporary files stored in $(@D) Test files sourced into current interpreter Running tests that match: * Skipping test files that match: l.*.test Only running test files that match: *.test checkbutton.test combobox.test entry.test ==== entry-2.1.1 Create entry before scrollbar - scrollbar catches up FAILED ==== Contents of test case: pack [ttk::entry .te -xscrollcommand [list .tsb set]] -expand true -fill both .te insert end [string repeat "abc" 50] catch {update} ; # error triggers because the -xscrollcommand callback # errors out: invalid command name ".tsb" pack [ttk::scrollbar .tsb -orient horizontal -command [list .te xview]] -expand false -fill x update ; # no error lappend res [expr [lindex [.tsb get] 1] < 1] ; # scrollbar did update ---- Result was: 0 ---- Result should have been (exact matching): 1 ==== entry-2.1.1 FAILED image.test labelframe.test layout.test notebook.test panedwindow.test progressbar.test radiobutton.test scrollbar.test spinbox.test treetags.test treeview.test ttk.test validate.test vsapi.test all.tcl: Total 488 Passed 470 Skipped 17 Failed 1 Files with failing tests: canvText.test clrpick.test entry.test focus.test font.test listbox.test pack.test panedwindow.test place.test scrollbar.test spinbox.test text.test textImage.test unixEmbed.test unixFont.test unixWm.test winWm.test winfo.test wm.test all.tcl: Total 496 Passed 478 Skipped 17 Failed 1 Sourced 17 Test Files. Files with failing tests: entry.test Number of tests skipped for each constraint: 2 NA 4 coreEntry 3 coreScrollbar 5 nyi 3 xpnative components/tcl/tk/test/results-64-i386.master
@@ -1,1374 +1,6 @@ Tests running in interp: $(@D)/tktest Tests located in: $(SOURCE_DIR)/tests Tests running in: $(@D) Temporary files stored in $(@D) Test files sourced into current interpreter Running tests that match: * Skipping test files that match: l.*.test Only running test files that match: *.test bell.test Bell should ring now ... bgerror.test bind.test bitmap.test border.test busy.test button.test canvImg.test canvMoveto.test canvPs.test canvRect.test canvText.test ==== canvText-20.1 angled text bounding box FAILED ==== Contents of test case: .c create text 2 2 -tag t -anchor center -text 0 -font {Helvetica 24} set bb0 [.c bbox t] .c itemconf t -angle 90 set bb1 [.c bbox t] .c itemconf t -angle 180 set bb2 [.c bbox t] .c itemconf t -angle 270 set bb3 [.c bbox t] list [expr {$bb0 eq $bb2 ? "ok" : "$bb0,$bb2"}] [expr {$bb1 eq $bb3 ? "ok" : "$bb1,$bb3"}] [expr {$bb0 eq [transpose $bb1] ? "ok" : "$bb0,$bb1"}] ---- Result was: {-8 -17 13 22,-9 -18 12 21} {-17 -9 22 12,-18 -8 21 13} {-8 -17 13 22,-17 -9 22 12} ---- Result should have been (exact matching): ok ok ok ==== canvText-20.1 FAILED canvWind.test canvas.test choosedir.test clipboard.test clrpick.test ==== clrpick-2.3 tk_chooseColor command FAILED ==== Contents of test case: ToPressButton . ok tk_chooseColor -parent . -title "Press OK" ---- Result was: #d9d9d9 ---- Result should have been (exact matching): #808040 ==== clrpick-2.3 FAILED cmds.test color.test config.test cursor.test dialog.test embed.test entry.test event.test filebox.test focus.test ==== focus-2.6 TkFocusFilterEvent procedure, FocusIn events FAILED ==== Contents of test case: focus .t.b1 focus . update event gen [testwrapper .t] <FocusIn> -detail NotifyAncestor set focusInfo {} set x [focus] event gen . <KeyPress-x> list $x $focusInfo ---- Result was: {} {} ---- Result should have been (exact matching): .t.b1 {press .t.b1 x} ==== focus-2.6 FAILED ==== focus-2.7 TkFocusFilterEvent procedure, FocusOut events FAILED ==== Contents of test case: set result {} foreach detail {NotifyAncestor NotifyInferior NotifyNonlinear NotifyNonlinearVirtual NotifyPointer NotifyPointerRoot NotifyVirtual} { focus -force .t.b1 event gen [testwrapper .t] <FocusOut> -detail $detail update lappend result [focus] } return $result ---- Result was: .t.b1 .t.b1 .t.b1 .t.b1 .t.b1 .t.b1 .t.b1 ---- Result should have been (exact matching): {} .t.b1 {} {} .t.b1 .t.b1 {} ==== focus-2.7 FAILED ==== focus-2.9 TkFocusFilterEvent procedure, FocusOut events FAILED ==== Contents of test case: focus .t.b1 event gen [testwrapper .] <FocusOut> -detail NotifyAncestor focus ---- Result was: .t.b1 ---- Result should have been (exact matching): ==== focus-2.9 FAILED ==== focus-5.1 ChangeXFocus procedure, don't take focus unless have it FAILED ==== Contents of test case: setupbg focusSetup focus -force .t update set result [focus] send [dobg {tk appname}] {focus -force .; update} lappend result [focus] focus .t.b2 update lappend result [focus] ---- Result was: .t .t {} ---- Result should have been (exact matching): .t {} {} ==== focus-5.1 FAILED focusTcl.test font.test ==== font-4.9 font command: actual FAILED ==== Contents of test case: # (objc > 3) so objPtr = objv[3 + skip] string tolower [font actual {-family times} -family] ---- Result was: liberation serif ---- Result should have been (exact matching): times ==== font-4.9 FAILED ==== font-8.4 font command: families FAILED ==== Contents of test case: # TkpGetFontFamilies() regexp -nocase times [font families] ---- Result was: 0 ---- Result should have been (exact matching): 1 ==== font-8.4 FAILED ==== font-21.6 Tk_PostscriptFontName procedure: spaces FAILED ==== Contents of test case: psfontname "{new century schoolbook} 10" ---- Result was: DejavuSans ---- Result should have been (exact matching): NewCenturySchlbk-Roman ==== font-21.6 FAILED ==== font-44.1 TkFontGetPixels: size < 0 FAILED ==== Contents of test case: tk scaling 0.5 font actual {times -12} -size ---- Result was: 9 ---- Result should have been (exact matching): 24 ==== font-44.1 FAILED fontchooser.test frame.test geometry.test get.test grab.test grid.test image.test imgBmap.test imgPNG.test imgPPM.test imgPhoto.test listbox.test main.test menu.test menuDraw.test menubut.test message.test msgbox.test obj.test oldpack.test option.test pack.test ==== pack-18.1 unmap content when container unmapped FAILED ==== Contents of test case: # adjust the position of .pack before test to avoid a screen switch # that occurs with window managers that have desktops four times as big # as the screen (screen switch causes scale and other tests to fail). wm geometry .pack +100+100 # On the PC, when the width/height is configured while the window is # unmapped, the changes don't take effect until the window is remapped. # Who knows why? eval destroy [winfo child .pack] frame .pack.a -width 100 -height 50 -relief raised -bd 2 pack .pack.a update idletasks set result [winfo ismapped .pack.a] wm iconify .pack lappend result [winfo ismapped .pack.a] .pack.a configure -width 200 -height 75 update idletasks lappend result [winfo width .pack.a ] [winfo height .pack.a] [winfo ismapped .pack.a] wm deiconify .pack packUpdate lappend result [winfo ismapped .pack.a] ---- Result was: 1 1 200 75 1 1 ---- Result should have been (exact matching): 1 0 200 75 0 1 ==== pack-18.1 FAILED ==== pack-18.2 unmap content when container unmapped FAILED ==== Contents of test case: # adjust the position of .pack before test to avoid a screen switch # that occurs with window managers that have desktops four times as big # as the screen (screen switch causes scale and other tests to fail). wm geometry .pack +100+100 frame .pack.a -relief raised -bd 2 frame .pack.b -width 70 -height 30 -relief sunken -bd 2 pack .pack.a pack .pack.b -in .pack.a update idletasks set result [winfo ismapped .pack.b] wm iconify .pack lappend result [winfo ismapped .pack.b] .pack.b configure -width 100 -height 30 update idletasks lappend result [winfo width .pack.b ] [winfo height .pack.b] [winfo ismapped .pack.b] wm deiconify .pack packUpdate lappend result [winfo ismapped .pack.b] ---- Result was: 1 1 100 30 1 1 ---- Result should have been (exact matching): 1 0 100 30 0 1 ==== pack-18.2 FAILED packgrid.test panedwindow.test place.test ==== place-8.1 PlaceStructureProc, mapping and unmapping content FAILED ==== Contents of test case: place .t.f2 -relx 1.0 -rely 1.0 -anchor sw update idletasks set result [winfo ismapped .t.f2] wm iconify .t lappend result [winfo ismapped .t.f2] place .t.f2 -x 40 -y 30 -relx 0 -rely 0 -anchor nw update idletasks lappend result [winfo x .t.f2] [winfo y .t.f2] [winfo ismapped .t.f2] wm deiconify .t placeUpdate lappend result [winfo ismapped .t.f2] ---- Result was: 1 1 40 30 1 1 ---- Result should have been (exact matching): 1 0 40 30 0 1 ==== place-8.1 FAILED ==== place-8.2 PlaceStructureProc, mapping and unmapping content FAILED ==== Contents of test case: place .t.f -x 0 -y 0 -width 200 -height 100 place .t.f2 -in .t.f -relx 1.0 -rely 1.0 -anchor sw -width 50 -height 20 update idletasks set result [winfo ismapped .t.f2] wm iconify .t lappend result [winfo ismapped .t.f2] place .t.f2 -x 40 -y 30 -relx 0 -rely 0 -anchor nw update idletasks lappend result [winfo x .t.f2] [winfo y .t.f2] [winfo ismapped .t.f2] wm deiconify .t placeUpdate lappend result [winfo ismapped .t.f2] ---- Result was: 1 1 42 32 1 1 ---- Result should have been (exact matching): 1 0 42 32 0 1 ==== place-8.2 FAILED raise.test safe.test safePrimarySelection.test scale.test scrollbar.test ==== scrollbar-3.36 ScrollbarWidgetCmd procedure, "fraction" option FAILED ==== Contents of test case: format {%.6g} [.s fraction 4 179] ---- Result was: 0.976048 ---- Result should have been (exact matching): 1 ==== scrollbar-3.36 FAILED ==== scrollbar-3.38 ScrollbarWidgetCmd procedure, "fraction" option FAILED ==== Contents of test case: format {%.6g} [.s fraction 4 178] ---- Result was: 0.97006 ---- Result should have been (exact matching): 0.993711 ==== scrollbar-3.38 FAILED ==== scrollbar-6.12.1 ScrollbarPosition procedure FAILED ==== Contents of test case: .s identify 8 19 ---- Result was: trough1 ---- Result should have been (exact matching): arrow1 ==== scrollbar-6.12.1 FAILED ==== scrollbar-6.29.1 ScrollbarPosition procedure FAILED ==== Contents of test case: .s identify 8 180 ---- Result was: trough2 ---- Result should have been (exact matching): arrow2 ==== scrollbar-6.29.1 FAILED ==== scrollbar-6.35 ScrollbarPosition procedure FAILED ==== Contents of test case: .s identify 18 100 ---- Result was: ---- Result should have been (exact matching): trough2 ==== scrollbar-6.35 FAILED ==== scrollbar-6.44 ScrollbarPosition procedure FAILED ==== Contents of test case: .t.s identify 100 18 ---- Result was: ---- Result should have been (exact matching): trough2 ==== scrollbar-6.44 FAILED select.test send.test spinbox.test text.test textBTree.test textDisp.test ==== textDisp-19.18 count -ypixels with indices in elided lines FAILED ==== Contents of test case: .t configure -wrap none .t delete 1.0 end for {set i 1} {$i < 100} {incr i} { .t insert end [string repeat "Line $i" 20] .t insert end "\n" } .t tag add hidden 5.15 20.15 .t tag configure hidden -elide true .t yview 35.0 set res {} update lappend res [.t count -ypixels 5.0 25.0] .t yview scroll [expr {- 15 * $fixedHeight}] pixels updateText lappend res [.t count -ypixels 5.0 25.0] ---- Result was: 300 75 ---- Result should have been (exact matching): 75 75 ==== textDisp-19.18 FAILED ==== textDisp-20.1 FindDLine FAILED ==== Contents of test case: .t yview 48.0 list [.t dlineinfo 46.0] [.t dlineinfo 47.0] [.t dlineinfo 49.0] [.t dlineinfo 58.0] ---- Result was: {} {} {3 18 49 15 11} {} ---- Result should have been (exact matching): {} {} {3 18 49 15 12} {} ==== textDisp-20.1 FAILED ==== textDisp-20.2 FindDLine FAILED ==== Contents of test case: .t yview 100.0 .t yview -pickplace 53.0 list [.t dlineinfo 50.0] [.t dlineinfo 50.14] [.t dlineinfo 50.21] ---- Result was: {3 -2 140 15 11} {3 -2 140 15 11} {3 13 133 15 11} ---- Result should have been (exact matching): {3 -2 140 15 12} {3 -2 140 15 12} {3 13 133 15 12} ==== textDisp-20.2 FAILED ==== textDisp-20.3 FindDLine FAILED ==== Contents of test case: .t yview 100.0 .t yview 49.0 list [.t dlineinfo 50.0] [.t dlineinfo 50.24] [.t dlineinfo 57.0] ---- Result was: {3 18 140 15 11} {3 33 133 15 11} {} ---- Result should have been (exact matching): {3 18 140 15 12} {3 33 133 15 12} {} ==== textDisp-20.3 FAILED ==== textDisp-20.4 FindDLine FAILED ==== Contents of test case: .t yview 100.0 .t yview 42.0 list [.t dlineinfo 50.0] [.t dlineinfo 50.24] [.t dlineinfo 50.40] ---- Result was: {3 123 140 15 11} {3 138 133 15 11} {} ---- Result should have been (exact matching): {3 123 140 15 12} {3 138 133 15 12} {} ==== textDisp-20.4 FAILED ==== textDisp-20.5 FindDLine FAILED ==== Contents of test case: .t yview 100.0 .t yview 48.0 list [.t dlineinfo 50.0] [.t dlineinfo 50.20] [.t dlineinfo 50.40] ---- Result was: {3 33 371 15 11} {3 33 371 15 11} {3 33 371 15 11} ---- Result should have been (exact matching): {3 33 371 15 12} {3 33 371 15 12} {3 33 371 15 12} ==== textDisp-20.5 FAILED textImage.test textIndex.test textMark.test textTag.test textWind.test tk.test unixButton.test unixEmbed.test ==== unixEmbed-8.1 TkpClaimFocus procedure FAILED ==== Contents of test case: frame .f1 -container 1 -width 200 -height 50 frame .f2 -width 200 -height 50 pack .f1 .f2 dobg "set w1 [winfo id .f1]" dobg { eval destroy [winfo child .] toplevel .t1 -use $w1 -highlightthickness 2 -bd 2 -relief sunken } focus -force .f2 update list [dobg { focus .t1 set x [list [focus]] update after 500 update lappend x [focus] }] [focus] ---- Result was: {.t1 .t1} .f2 ---- Result should have been (exact matching): {{} .t1} .f1 ==== unixEmbed-8.1 FAILED ==== unixEmbed-10.1 geometry propagation in tkUnixWm.c/UpdateGeometryInfo FAILED ==== Contents of test case: frame .f1 -container 1 -width 200 -height 50 pack .f1 update idletasks toplevel .t1 -use [winfo id .f1] -width 150 -height 80 update idletasks wm geometry .t1 +40+50 update idletasks wm geometry .t1 ---- Result was: 1x1+0+0 ---- Result should have been (exact matching): 150x80+0+0 ==== unixEmbed-10.1 FAILED ==== unixEmbed-10.2 geometry propagation in tkUnixWm.c/UpdateGeometryInfo FAILED ==== Contents of test case: frame .f1 -container 1 -width 200 -height 50 pack .f1 update idletasks toplevel .t1 -use [winfo id .f1] -width 150 -height 80 update idletasks wm geometry .t1 70x300+10+20 update idletasks wm geometry .t1 ---- Result was: 1x1+0+0 ---- Result should have been (exact matching): 70x300+0+0 ==== unixEmbed-10.2 FAILED unixFont.test ==== unixfont-1.2 TkpGetNativeFont procedure: native FAILED ==== Contents of test case: font measure fixed 0 ---- Result was: 11 ---- Result should have been (exact matching): 6 ==== unixfont-1.2 FAILED ==== unixfont-2.2 TkpGetFontFromAttributes procedure: Times relatives FAILED ==== Contents of test case: set x {} lappend x [lindex [font actual {-family "Times New Roman"}] 1] lappend x [lindex [font actual {-family "New York"}] 1] lappend x [lindex [font actual {-family "Times"}] 1] ---- Result was: {Liberation Serif} {DejaVu Sans} {Liberation Serif} ---- Result should have been (exact matching): times times times ==== unixfont-2.2 FAILED ==== unixfont-2.3 TkpGetFontFromAttributes procedure: Courier relatives FAILED ==== Contents of test case: set x {} lappend x [lindex [font actual {-family "Courier New"}] 1] lappend x [lindex [font actual {-family "Monaco"}] 1] lappend x [lindex [font actual {-family "Courier"}] 1] ---- Result was: {Liberation Mono} {DejaVu Sans} Courier ---- Result should have been (exact matching): courier courier courier ==== unixfont-2.3 FAILED ==== unixfont-2.4 TkpGetFontFromAttributes procedure: Helvetica relatives FAILED ==== Contents of test case: set x {} lappend x [lindex [font actual {-family "Arial"}] 1] lappend x [lindex [font actual {-family "Geneva"}] 1] lappend x [lindex [font actual {-family "Helvetica"}] 1] ---- Result was: {Liberation Sans} {DejaVu Sans} {Liberation Sans} ---- Result should have been (exact matching): helvetica helvetica helvetica ==== unixfont-2.4 FAILED ==== unixfont-2.6 TkpGetFontFromAttributes: fallback to fixed family FAILED ==== Contents of test case: lindex [font actual {-family fixed -size 10}] 1 ---- Result was: DejaVu Sans ---- Result should have been (exact matching): fixed ==== unixfont-2.6 FAILED ==== unixfont-2.8 TkpGetFontFromAttributes: loop over returned font names FAILED ==== Contents of test case: lindex [font actual {-family fixed -size 31}] 1 ---- Result was: DejaVu Sans ---- Result should have been (exact matching): fixed ==== unixfont-2.8 FAILED ==== unixfont-2.9 TkpGetFontFromAttributes: reject adobe courier if possible FAILED ==== Contents of test case: lindex [font actual {-family courier}] 1 ---- Result was: Courier ---- Result should have been (exact matching): courier ==== unixfont-2.9 FAILED ==== unixfont-5.8 Tk_MeasureChars procedure: internal spaces significant FAILED ==== Contents of test case: .b.l config -text "00 000 00000" getsize ---- Result was: 65 40 ---- Result should have been (exact matching): 77 40 ==== unixfont-5.8 FAILED ==== unixfont-5.9 Tk_MeasureChars procedure: TK_PARTIAL_OK FAILED ==== Contents of test case: .b.c dchars $t 0 end .b.c insert $t 0 "0000" .b.c index $t @[expr int($ax*2.5)],1 ---- Result was: 4 ---- Result should have been (exact matching): 2 ==== unixfont-5.9 FAILED ==== unixfont-5.12 Tk_MeasureChars procedure: include eol spaces FAILED ==== Contents of test case: .b.l config -text "000 \n000" getsize ---- Result was: 48 40 ---- Result should have been (exact matching): 66 40 ==== unixfont-5.12 FAILED ==== unixfont-8.4 AllocFont procedure: classify characters FAILED ==== Contents of test case: set x 0 incr x [font measure $courier "\u4000"] ;# 6 incr x [font measure $courier "\002"] ;# 4 incr x [font measure $courier "\012"] ;# 2 incr x [font measure $courier "\101"] ;# 1 set x ---- Result was: 32 ---- Result should have been (exact matching): 78 ==== unixfont-8.4 FAILED ==== unixfont-8.6 AllocFont procedure: setup widths of special chars FAILED ==== Contents of test case: set x 0 incr x [font measure $courier "\001"] ;# 4 incr x [font measure $courier "\002"] ;# 4 incr x [font measure $courier "\012"] ;# 2 set x ---- Result was: 22 ---- Result should have been (exact matching): 60 ==== unixfont-8.6 FAILED ==== unixfont-9.1 GetControlCharSubst procedure: 2 chars subst FAILED ==== Contents of test case: .b.c dchars $t 0 end .b.c insert $t 0 "0\a0" set x {} lappend x [.b.c index $t @[expr $ax*0],0] lappend x [.b.c index $t @[expr $ax*1],0] lappend x [.b.c index $t @[expr $ax*2],0] lappend x [.b.c index $t @[expr $ax*3],0] ---- Result was: 0 1 3 3 ---- Result should have been (exact matching): 0 1 1 2 ==== unixfont-9.1 FAILED ==== unixfont-9.2 GetControlCharSubst procedure: 4 chars subst FAILED ==== Contents of test case: .b.c dchars $t 0 end .b.c insert $t 0 "0\0010" set x {} lappend x [.b.c index $t @[expr $ax*0],0] lappend x [.b.c index $t @[expr $ax*1],0] lappend x [.b.c index $t @[expr $ax*2],0] lappend x [.b.c index $t @[expr $ax*3],0] lappend x [.b.c index $t @[expr $ax*4],0] lappend x [.b.c index $t @[expr $ax*5],0] ---- Result was: 0 1 3 3 3 3 ---- Result should have been (exact matching): 0 1 1 1 1 2 ==== unixfont-9.2 FAILED unixMenu.test unixSelect.test unixWm.test ==== unixWm-8.4 icon windows FAILED ==== Contents of test case: destroy .t destroy .icon toplevel .t -width 100 -height 30 wm geom .t +0+0 update idletasks set result [wm iconwindow .t] toplevel .icon -width 50 -height 50 -bg red wm iconwindow .t .icon lappend result [wm iconwindow .t] [wm state .icon] wm iconwindow .t {} lappend result [wm iconwindow .t] [wm state .icon] update lappend result [winfo ismapped .t] [winfo ismapped .icon] wm iconify .t update idletasks lappend result [winfo ismapped .t] [winfo ismapped .icon] ---- Result was: .icon icon {} withdrawn 1 0 1 0 ---- Result should have been (exact matching): .icon icon {} withdrawn 1 0 0 0 ==== unixWm-8.4 FAILED ==== unixWm-16.3 Tk_WmCmd procedure, "deiconify" option FAILED ==== Contents of test case: wm iconify .t set result {} lappend result [winfo ismapped .t] [wm state .t] wm deiconify .t lappend result [winfo ismapped .t] [wm state .t] ---- Result was: 1 normal 1 normal ---- Result should have been (exact matching): 0 iconic 1 normal ==== unixWm-16.3 FAILED ==== unixWm-23.5 Tk_WmCmd procedure, "iconify" option FAILED ==== Contents of test case: destroy .t2 toplevel .t2 wm geom .t2 +0+0 update idletasks wm iconify .t2 update idletasks set result [winfo ismapped .t2] destroy .t2 set result ---- Result was: 1 ---- Result should have been (exact matching): 0 ==== unixWm-23.5 FAILED ==== unixWm-23.6 Tk_WmCmd procedure, "iconify" option FAILED ==== Contents of test case: destroy .t2 toplevel .t2 wm geom .t2 -0+0 update idletasks set result [winfo ismapped .t2] wm iconify .t2 update idletasks lappend result [winfo ismapped .t2] destroy .t2 set result ---- Result was: 1 1 ---- Result should have been (exact matching): 1 0 ==== unixWm-23.6 FAILED ==== unixWm-42.1 WrapperEventProc procedure, map and unmap events FAILED ==== Contents of test case: destroy .t toplevel .t -width 400 -height 150 wm geometry .t +0+0 tkwait visibility .t set result {} bind .t <Map> {set x "mapped"} bind .t <Unmap> {set x "unmapped"} set x {no event} wm iconify .t update idletasks lappend result $x [winfo ismapped .t] set x {no event} wm deiconify .t update idletasks lappend result $x [winfo ismapped .t] ---- Result was: {no event} 1 {no event} 1 ---- Result should have been (exact matching): unmapped 0 mapped 1 ==== unixWm-42.1 FAILED ==== unixWm-45.2 UpdateSizeHints procedure FAILED ==== Contents of test case: destroy .t toplevel .t -width 80 -height 60 wm minsize .t 30 40 wm maxsize .t 200 500 wm geometry .t +0+0 tkwait visibility .t set property [testprop [testwrapper .t] WM_NORMAL_HINTS] 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]] ---- Result was: 30 40 200 500 0 0 ---- Result should have been (exact matching): 30 40 200 500 1 1 ==== unixWm-45.2 FAILED ==== unixWm-45.4 UpdateSizeHints procedure, not resizable with menu FAILED ==== Contents of test case: destroy .t toplevel .t -width 80 -height 60 frame .t.menu -height 23 -width 50 testmenubar window .t .t.menu wm resizable .t 0 0 wm geometry .t +0+0 tkwait visibility .t set property [testprop [testwrapper .t] WM_NORMAL_HINTS] 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]] ---- Result was: 60 80 83 80 83 0 0 ---- Result should have been (exact matching): 60 80 83 80 83 1 1 ==== unixWm-45.4 FAILED ==== unixWm-50.1 Tk_CoordsToWindow procedure, finding a toplevel, x-coords, title bar FAILED ==== Contents of test case: update toplevel .t -width 300 -height 400 -bg green wm geom .t +100+100 tkwait visibility .t toplevel .t2 -width 100 -height 200 -bg red wm geom .t2 +200+200 tkwait visibility .t2 raise .t2 update set x [winfo rootx .t] set y [winfo rooty .t] list [winfo containing [expr $x - 30] [expr $y + 250]] [winfo containing [expr $x - 1] [expr $y + 250]] [winfo containing $x [expr $y + 250]] [winfo containing [expr $x + 99] [expr $y + 250]] [winfo containing [expr $x + 100] [expr $y + 250]] [winfo containing [expr $x + 150] [expr $y + 90]] [winfo containing [expr $x + 199] [expr $y + 250]] [winfo containing [expr $x + 200] [expr $y + 250]] [winfo containing [expr $x + 220] [expr $y + 250]] ---- Result was: {} {} .t .t .t2 .t .t2 .t .t ---- Result should have been (exact matching): {} {} .t {} .t2 {} .t2 {} .t ==== unixWm-50.1 FAILED ==== unixWm-50.9 Tk_CoordsToWindow procedure, unmapped windows FAILED ==== Contents of test case: destroy .t destroy .t2 toplevel .t -width 200 -height 200 -bg green wm geometry .t +0+0 tkwait visibility .t toplevel .t2 -width 200 -height 200 -bg red wm geometry .t2 +0+0 tkwait visibility .t2 set result [list [winfo containing 100 100]] wm iconify .t2 update idletasks lappend result [winfo containing 100 100] ---- Result was: .t2 .t2 ---- Result should have been (exact matching): .t2 .t ==== unixWm-50.9 FAILED util.test visual.test visual_bb.test winButton.test winClipboard.test winDialog.test winFont.test winMenu.test winMsgbox.test winSend.test winWm.test ==== winWm-9.2 check wm forget for unmapped parent (#3205464,#2967911) FAILED ==== Contents of test case: pack .t.f.x pack .t.f lappend aid [after 5000 {set ::winwm92 timeout}] [after 500 { wm manage .t.f wm iconify .t lappend aid [after 500 { wm forget .t.f wm deiconify .t lappend aid [after 500 { pack .t.f lappend aid [after 500 { set ::winwm92 [expr { [winfo rooty .t.f.x] == 0 ? "failed" : "ok"}]}] }] }] }] vwait ::winwm92 foreach id $aid { after cancel $id } set winwm92 ---- Result was: failed ---- Result should have been (exact matching): ok ==== winWm-9.2 FAILED window.test winfo.test ==== winfo-9.4 "winfo viewable" command FAILED ==== Contents of test case: wm iconify . winfo viewable . ---- Result was: 1 ---- Result should have been (exact matching): 0 ==== winfo-9.4 FAILED ==== winfo-9.7 "winfo viewable" command FAILED ==== Contents of test case: frame .f1 -width 100 -height 100 -relief raised -bd 2 place .f1 -x 0 -y 0 frame .f1.f2 -width 50 -height 50 -relief raised -bd 2 place .f1.f2 -x 0 -y 0 update wm iconify . list [winfo viewable .f1] [winfo viewable .f1.f2] ---- Result was: 1 1 ---- Result should have been (exact matching): 0 0 ==== winfo-9.7 FAILED wm.test ==== wm-iconify-3.1 iconify behavior FAILED ==== Contents of test case: toplevel .t2 wm geom .t2 -0+0 update idletasks set result [winfo ismapped .t2] wm iconify .t2 update idletasks lappend result [winfo ismapped .t2] ---- Result was: 1 1 ---- Result should have been (exact matching): 1 0 ==== wm-iconify-3.1 FAILED ==== wm-stackorder-3.1 unmapped toplevel FAILED ==== Contents of test case: toplevel .t1 ; update toplevel .t2 ; update wm iconify .t1 wm stackorder . ---- Result was: . .t1 .t2 ---- Result should have been (exact matching): . .t2 ==== wm-stackorder-3.1 FAILED ==== wm-stackorder-5.2 A normal toplevel can't be raised above an overrideredirect toplevel on unix FAILED ==== Contents of test case: toplevel .t tkwait visibility .t wm overrideredirect .t 1 raise . update raiseDelay wm stackorder . isabove .t ---- Result was: 1 ---- Result should have been (exact matching): 0 ==== wm-stackorder-5.2 FAILED ==== wm-transient-4.1 transient toplevel is withdrawn when mapped if toplevel is iconic FAILED ==== Contents of test case: toplevel .top wm iconify .top update toplevel .subject wm transient .subject .top update list [wm state .subject] [winfo ismapped .subject] ---- Result was: normal 1 ---- Result should have been (exact matching): withdrawn 0 ==== wm-transient-4.1 FAILED ==== wm-transient-4.2 already mapped transient toplevel is withdrawn if toplevel is iconic FAILED ==== Contents of test case: toplevel .top raiseDelay wm iconify .top update idletasks toplevel .subject update idletasks wm transient .subject .top update idletasks list [wm state .subject] [winfo ismapped .subject] ---- Result was: normal 1 ---- Result should have been (exact matching): withdrawn 0 ==== wm-transient-4.2 FAILED ==== wm-transient-4.3 iconify/deiconify on the toplevel does a withdraw/deiconify on the transient FAILED ==== Contents of test case: toplevel .top toplevel .subject update idletasks wm transient .subject .top wm iconify .top update idletasks lappend results [wm state .subject] [winfo ismapped .subject] wm deiconify .top update idletasks lappend results [wm state .subject] [winfo ismapped .subject] ---- Result was: normal 1 normal 1 ---- Result should have been (exact matching): withdrawn 0 normal 1 ==== wm-transient-4.3 FAILED ==== wm-transient-8.1 transient to withdrawn window, Bug 1163496 FAILED ==== Contents of test case: # Verifies that transients stay on top of their toplevels, even if they were # made transients when those toplevels were withdrawn. toplevel .t1; wm withdraw .t1; update toplevel .t2; wm transient .t2 .t1; update lappend result [winfo ismapped .t1] [winfo ismapped .t2] wm deiconify .t1; update lappend result [winfo ismapped .t1] [winfo ismapped .t2] raise .t1; update lappend result [lsearch -all -inline -glob [wm stackorder .] ".t?"] ---- Result was: 0 0 1 1 {.t2 .t1} ---- Result should have been (exact matching): 0 0 1 1 {.t1 .t2} ==== wm-transient-8.1 FAILED ==== wm-state-2.8 state change after map FAILED ==== Contents of test case: toplevel .t update wm state .t iconic wm state .t ---- Result was: normal ---- Result should have been (exact matching): iconic ==== wm-state-2.8 FAILED ==== wm-state-2.9 state change after map FAILED ==== Contents of test case: toplevel .t update wm iconify .t wm state .t ---- Result was: normal ---- Result should have been (exact matching): iconic ==== wm-state-2.9 FAILED xmfbox.test all.tcl: Total 9661 Passed 8657 Skipped 940 Failed 64 all.tcl: Total 9681 Passed 8944 Skipped 663 Failed 74 Sourced 92 Test Files. Files with failing tests: canvText.test clrpick.test focus.test font.test pack.test place.test scrollbar.test textDisp.test unixEmbed.test unixFont.test unixWm.test winWm.test winfo.test wm.test Number of tests skipped for each constraint: 1 !havePseudocolorVisual 14 altDisplay 29 aqua 5 aquaOrWin32 1 cliboardManagerPresent 10 emptyTest 125 fonts 1 fullutf 2 haveTruecolor24 7 knownBug 1 memory 136 nonPortable 63 nt 2 pressbutton 11 testmetrics 7 testwinevent 133 textfonts 1 userInteraction 340 win 51 winSend Tests running in interp: $(@D)/tktest Tests located in: $(SOURCE_DIR)/tests/ttk Tests running in: $(@D) Temporary files stored in $(@D) Test files sourced into current interpreter Running tests that match: * Skipping test files that match: l.*.test Only running test files that match: *.test checkbutton.test combobox.test entry.test ==== entry-2.1.1 Create entry before scrollbar - scrollbar catches up FAILED ==== Contents of test case: pack [ttk::entry .te -xscrollcommand [list .tsb set]] -expand true -fill both .te insert end [string repeat "abc" 50] catch {update} ; # error triggers because the -xscrollcommand callback # errors out: invalid command name ".tsb" pack [ttk::scrollbar .tsb -orient horizontal -command [list .te xview]] -expand false -fill x update ; # no error lappend res [expr [lindex [.tsb get] 1] < 1] ; # scrollbar did update ---- Result was: 0 ---- Result should have been (exact matching): 1 ==== entry-2.1.1 FAILED image.test labelframe.test layout.test notebook.test panedwindow.test progressbar.test radiobutton.test scrollbar.test spinbox.test treetags.test treeview.test ttk.test validate.test vsapi.test all.tcl: Total 488 Passed 470 Skipped 17 Failed 1 Files with failing tests: canvText.test clrpick.test entry.test focus.test font.test listbox.test pack.test place.test scrollbar.test spinbox.test text.test textImage.test unixEmbed.test unixFont.test unixWm.test winWm.test winfo.test wm.test all.tcl: Total 496 Passed 478 Skipped 17 Failed 1 Sourced 17 Test Files. Files with failing tests: entry.test Number of tests skipped for each constraint: 2 NA 4 coreEntry 3 coreScrollbar 5 nyi 3 xpnative components/tcl/tk/tk.p5m
@@ -182,6 +182,7 @@ file path=usr/lib/tk$(COMPONENT_MAJOR_VERSION)/msgs/en_gb.msg file path=usr/lib/tk$(COMPONENT_MAJOR_VERSION)/msgs/eo.msg file path=usr/lib/tk$(COMPONENT_MAJOR_VERSION)/msgs/es.msg file path=usr/lib/tk$(COMPONENT_MAJOR_VERSION)/msgs/fi.msg file path=usr/lib/tk$(COMPONENT_MAJOR_VERSION)/msgs/fr.msg file path=usr/lib/tk$(COMPONENT_MAJOR_VERSION)/msgs/hu.msg file path=usr/lib/tk$(COMPONENT_MAJOR_VERSION)/msgs/it.msg @@ -190,6 +191,7 @@ file path=usr/lib/tk$(COMPONENT_MAJOR_VERSION)/msgs/pt.msg file path=usr/lib/tk$(COMPONENT_MAJOR_VERSION)/msgs/ru.msg file path=usr/lib/tk$(COMPONENT_MAJOR_VERSION)/msgs/sv.msg file path=usr/lib/tk$(COMPONENT_MAJOR_VERSION)/msgs/zh_cn.msg file path=usr/lib/tk$(COMPONENT_MAJOR_VERSION)/obsolete.tcl file path=usr/lib/tk$(COMPONENT_MAJOR_VERSION)/optMenu.tcl file path=usr/lib/tk$(COMPONENT_MAJOR_VERSION)/palette.tcl
