Posted to tcl by emiliano at Fri Mar 28 17:33:48 GMT 2008view raw

  1. Warning: tkStubInit.c may be out of date.
  2. Developers may want to run "make genstubs" to regenerate.
  3. This warning can be safely ignored, do not report as a bug!
  4. Warning: ttkStubInit.c may be out of date.
  5. Developers may want to run "make genstubs" to regenerate.
  6. This warning can be safely ignored, do not report as a bug!
  7. LD_LIBRARY_PATH="`pwd`:/home/emiliano/tcl_sources/tcl/unix:${LD_LIBRARY_PATH}"; export LD_LIBRARY_PATH; TCL_LIBRARY=/home/emiliano/tcl_sources/tcl/library; export TCL_LIBRARY; TK_LIBRARY=/home/emiliano/tcl_sources/tk/library; export TK_LIBRARY; ./tktest /home/emiliano/tcl_sources/tk/unix/../tests/all.tcl -geometry +0+0
  8. Tests running in interp: /home/emiliano/tcl_sources/tk/unix/tktest
  9. Tests located in: /home/emiliano/tcl_sources/tk/tests
  10. Tests running in: /home/emiliano/tcl_sources/tk/unix
  11. Temporary files stored in /home/emiliano/tcl_sources/tk/unix
  12. Test files sourced into current interpreter
  13. Running tests that match: *
  14. Skipping test files that match: l.*.test
  15. Only running test files that match: *.test
  16. Tests began at Fri Mar 28 13:47:51 ART 2008
  17. bell.test
  18. Bell should ring now ...
  19. bgerror.test
  20. bind.test
  21. bitmap.test
  22. border.test
  23. button.test
  24. canvImg.test
  25. canvPs.test
  26. canvRect.test
  27. canvText.test
  28. canvWind.test
  29. canvas.test
  30. choosedir.test
  31. clipboard.test
  32.  
  33.  
  34. ==== clipboard-6.2 Tk_ClipboardAppend procedure FAILED
  35. ==== Contents of test case:
  36.  
  37. setupbg
  38. clipboard clear
  39. clipboard append -f INTEGER -t TEST "16"
  40. set result [dobg {clipboard get TEST}]
  41. cleanupbg
  42. set result
  43.  
  44. ---- Result was:
  45. CLIPBOARD selection doesn't exist or form "TEST" not defined
  46. ---- Result should have been (exact matching):
  47. 0x10
  48. ==== clipboard-6.2 FAILED
  49.  
  50. clrpick.test
  51. cmds.test
  52. color.test
  53. config.test
  54. cursor.test
  55. dialog.test
  56. embed.test
  57. entry.test
  58. event.test
  59. filebox.test
  60. focus.test
  61.  
  62.  
  63. ==== focus-1.1 Tk_FocusCmd procedure FAILED
  64. ==== Contents of test case:
  65.  
  66. focusClear
  67. focus
  68.  
  69. ---- Result was:
  70. .t
  71. ---- Result should have been (exact matching):
  72.  
  73. ==== focus-1.1 FAILED
  74.  
  75.  
  76.  
  77. ==== focus-1.3 Tk_FocusCmd procedure FAILED
  78. ==== Contents of test case:
  79.  
  80. focusClear
  81. focus .t.b3
  82. focus
  83.  
  84. ---- Result was:
  85. .t.b3
  86. ---- Result should have been (exact matching):
  87.  
  88. ==== focus-1.3 FAILED
  89.  
  90.  
  91.  
  92. ==== focus-1.12 Tk_FocusCmd procedure, -displayof option FAILED
  93. ==== Contents of test case:
  94.  
  95. focusClear
  96. focus .t
  97. focus -displayof .t.b3
  98.  
  99. ---- Result was:
  100. .t
  101. ---- Result should have been (exact matching):
  102.  
  103. ==== focus-1.12 FAILED
  104.  
  105.  
  106.  
  107. ==== focus-1.19 Tk_FocusCmd procedure, -force option FAILED
  108. ==== Contents of test case:
  109.  
  110. focusClear
  111. focus .t.b1
  112. set x [list [focus]]
  113. focus -force .t.b1
  114. lappend x [focus]
  115.  
  116. ---- Result was:
  117. .t.b1 .t.b1
  118. ---- Result should have been (exact matching):
  119. {} .t.b1
  120. ==== focus-1.19 FAILED
  121.  
  122.  
  123.  
  124. ==== focus-2.10 TkFocusFilterEvent procedure, Enter events FAILED
  125. ==== Contents of test case:
  126.  
  127. set result {}
  128. focus .t.b1
  129. focusClear
  130. foreach detail {NotifyAncestor NotifyInferior NotifyNonlinear
  131. NotifyNonlinearVirtual NotifyVirtual} {
  132. event gen [testwrapper .t] <Enter> -detail $detail -focus 1
  133. update
  134. lappend result [focus]
  135. event gen [testwrapper .t] <Leave> -detail NotifyAncestor
  136. update
  137. }
  138. set result
  139.  
  140. ---- Result was:
  141. .t.b1 .t.b1 .t.b1 .t.b1 .t.b1
  142. ---- Result should have been (exact matching):
  143. .t.b1 {} .t.b1 .t.b1 .t.b1
  144. ==== focus-2.10 FAILED
  145.  
  146.  
  147.  
  148. ==== focus-2.13 TkFocusFilterEvent procedure, Enter events FAILED
  149. ==== Contents of test case:
  150.  
  151. focus .t.b1
  152. focusClear
  153. event gen [testwrapper .t] <Enter> -detail NotifyAncestor -focus 1
  154. set focusInfo {}
  155. update
  156. set focusInfo
  157.  
  158. ---- Result was:
  159.  
  160. ---- Result should have been (exact matching):
  161. in .t NotifyVirtual
  162. in .t.b1 NotifyAncestor
  163.  
  164. ==== focus-2.13 FAILED
  165.  
  166.  
  167.  
  168. ==== focus-2.15 TkFocusFilterEvent procedure, Leave events FAILED
  169. ==== Contents of test case:
  170.  
  171. set result {}
  172. focus .t.b1
  173. foreach detail {NotifyAncestor NotifyInferior NotifyNonlinear
  174. NotifyNonlinearVirtual NotifyVirtual} {
  175. focusClear
  176. event gen [testwrapper .t] <Enter> -detail NotifyAncestor -focus 1
  177. update
  178. event gen [testwrapper .t] <Leave> -detail $detail
  179. update
  180. lappend result [focus]
  181. }
  182. set result
  183.  
  184. ---- Result was:
  185. .t.b1 .t.b1 .t.b1 .t.b1 .t.b1
  186. ---- Result should have been (exact matching):
  187. {} .t.b1 {} {} {}
  188. ==== focus-2.15 FAILED
  189.  
  190.  
  191.  
  192. ==== focus-2.16 TkFocusFilterEvent procedure, Leave events FAILED
  193. ==== Contents of test case:
  194.  
  195. set result {}
  196. focus .t.b1
  197. event gen [testwrapper .t] <Enter> -detail NotifyAncestor -focus 1
  198. update
  199. set focusInfo {}
  200. event gen [testwrapper .t] <Leave> -detail NotifyAncestor
  201. update
  202. set focusInfo
  203.  
  204. ---- Result was:
  205.  
  206. ---- Result should have been (exact matching):
  207. out .t.b1 NotifyAncestor
  208. out .t NotifyVirtual
  209.  
  210. ==== focus-2.16 FAILED
  211.  
  212.  
  213.  
  214. ==== focus-2.17 TkFocusFilterEvent procedure, Leave events FAILED
  215. ==== Contents of test case:
  216.  
  217. set result {}
  218. focus .t.b1
  219. event gen [testwrapper .t] <Enter> -detail NotifyAncestor -focus 1
  220. update
  221. set focusInfo {}
  222. event gen .t.b1 <Leave> -detail NotifyAncestor
  223. event gen [testwrapper .] <Leave> -detail NotifyAncestor
  224. update
  225. list $focusInfo [focus]
  226.  
  227. ---- Result was:
  228. {} .t.b1
  229. ---- Result should have been (exact matching):
  230. {out .t.b1 NotifyAncestor
  231. out .t NotifyVirtual
  232. } {}
  233. ==== focus-2.17 FAILED
  234.  
  235.  
  236.  
  237. ==== focus-4.2 TkFocusDeadWindow procedure FAILED
  238. ==== Contents of test case:
  239.  
  240. focusSetup
  241. update
  242. focus -force .t.b2
  243. focus .b
  244. update
  245. destroy .t.b2
  246. update
  247. focus
  248.  
  249. ---- Result was:
  250. .t
  251. ---- Result should have been (exact matching):
  252. .b
  253. ==== focus-4.2 FAILED
  254.  
  255.  
  256.  
  257. ==== focus-5.1 ChangeXFocus procedure, don't take focus unless have it FAILED
  258. ==== Contents of test case:
  259.  
  260. focusSetup
  261. focus -force .t
  262. update
  263. set result [focus]
  264. send [dobg {tk appname}] {focus -force .; update}
  265. lappend result [focus]
  266. focus .t.b2
  267. update
  268. lappend result [focus]
  269.  
  270. ---- Result was:
  271. .t .t {}
  272. ---- Result should have been (exact matching):
  273. .t {} {}
  274. ==== focus-5.1 FAILED
  275.  
  276. focusTcl.test
  277. font.test
  278.  
  279.  
  280. ==== font-17.5 Tk_FreeFont procedure: named font FAILED
  281. ==== Contents of test case:
  282.  
  283. # not (fontPtr->refCount == 0)
  284. setup
  285. font create xyz -underline 1
  286. .b.f config -font xyz
  287. font delete xyz
  288. set x [font actual xyz -underline]
  289. destroy .b.f
  290. list [font actual xyz -underline] $x
  291.  
  292. ---- Result was:
  293. 0 0
  294. ---- Result should have been (exact matching):
  295. 0 1
  296. ==== font-17.5 FAILED
  297.  
  298.  
  299.  
  300. ==== font-24.5 Tk_ComputeTextLayout: break line FAILED
  301. ==== Contents of test case:
  302.  
  303. .b.l config -text "000\t00000" -wrap [expr 9*$ax]
  304. set x [getsize]
  305. .b.l config -wrap 0
  306. set x
  307.  
  308. ---- Result was:
  309. 63 26
  310. ---- Result should have been (exact matching):
  311. 56 26
  312. ==== font-24.5 FAILED
  313.  
  314.  
  315.  
  316. ==== font-38.12 ParseFontNameObj procedure: stylelist loop FAILED
  317. ==== Contents of test case:
  318.  
  319. lrange [font actual {times 12 bold italic overstrike underline}] 4 end
  320.  
  321. ---- Result was:
  322. -weight bold -slant italic -underline 0 -overstrike 0
  323. ---- Result should have been (exact matching):
  324. -weight bold -slant italic -underline 1 -overstrike 1
  325. ==== font-38.12 FAILED
  326.  
  327.  
  328.  
  329. ==== font-44.1 TkFontGetPixels: size < 0 FAILED
  330. ==== Contents of test case:
  331.  
  332. font actual {times -12} -size
  333.  
  334. ---- Result was:
  335. 12
  336. ---- Result should have been (exact matching):
  337. 24
  338. ==== font-44.1 FAILED
  339.  
  340.  
  341.  
  342. ==== font-44.2 TkFontGetPoints: size >= 0 FAILED
  343. ==== Contents of test case:
  344.  
  345. font actual {times 12} -size
  346.  
  347. ---- Result was:
  348. 8
  349. ---- Result should have been (exact matching):
  350. 12
  351. ==== font-44.2 FAILED
  352.  
  353.  
  354.  
  355. ==== font-45.4 TkFontGetAliasList: match FAILED
  356. ==== Contents of test case:
  357.  
  358. # can fail on Unix systems that have a real "times new roman" font
  359. font actual {{times new roman} 10} -family
  360.  
  361. ---- Result was:
  362. Times New Roman
  363. ---- Result should have been (exact matching):
  364. Times
  365. ==== font-45.4 FAILED
  366.  
  367. frame.test
  368. geometry.test
  369. get.test
  370. grab.test
  371. grid.test
  372. id.test
  373. image.test
  374. imgBmap.test
  375. imgPPM.test
  376. imgPhoto.test
  377. listbox.test
  378.  
  379.  
  380. ==== listbox-3.17 ListboxWidgetCmd procedure, "bbox" option FAILED
  381. ==== Contents of test case:
  382.  
  383. catch {destroy .t}
  384. toplevel .t
  385. wm geom .t +0+0
  386. listbox .t.l -width 10 -height 5
  387. .t.l insert 0 "Short" "Somewhat longer" "Really, quite a whole lot longer than can possibly fit on the screen" "Short"
  388. pack .t.l
  389. update
  390. .t.l xview moveto .2
  391. .t.l bbox 2
  392.  
  393. ---- Result was:
  394. -73 34 393 14
  395. ---- Result should have been (exact matching):
  396. -72 39 393 14
  397. ==== listbox-3.17 FAILED
  398.  
  399.  
  400.  
  401. ==== listbox-3.18 ListboxWidgetCmd procedure, "bbox" option, partial last line FAILED
  402. ==== Contents of test case:
  403.  
  404. mkPartial
  405. list [.partial.l bbox 3] [.partial.l bbox 4]
  406.  
  407. ---- Result was:
  408. {4 49 24 14} {4 64 23 14}
  409. ---- Result should have been (exact matching):
  410. {5 56 24 14} {5 73 23 14}
  411. ==== listbox-3.18 FAILED
  412.  
  413.  
  414.  
  415. ==== listbox-3.78 ListboxWidgetCmd procedure, "scan" option FAILED
  416. ==== Contents of test case:
  417.  
  418. catch {destroy .t}
  419. toplevel .t
  420. wm geom .t +0+0
  421. listbox .t.l -width 10 -height 5
  422. .t.l insert 0 "Short" "Somewhat longer" "Really, quite a whole lot longer than can possibly fit on the screen" "Short" a b c d e f g h i j
  423. pack .t.l
  424. update
  425. .t.l scan mark 100 140
  426. .t.l scan dragto 90 137
  427. update
  428. list [.t.l xview] [.t.l yview]
  429.  
  430. ---- Result was:
  431. {0.249364 0.427481} {0.142857 0.5}
  432. ---- Result should have been (exact matching):
  433. {0.249364 0.427481} {0.0714286 0.428571}
  434. ==== listbox-3.78 FAILED
  435.  
  436.  
  437.  
  438. ==== listbox-4.1 ConfigureListbox procedure FAILED
  439. ==== Contents of test case:
  440.  
  441. catch {destroy .l}
  442. listbox .l -setgrid 1 -width 25 -height 15
  443. pack .l
  444. update
  445. set x [getsize .]
  446. .l configure -setgrid 0
  447. update
  448. list $x [getsize .]
  449.  
  450. ---- Result was:
  451. 25x15 183x233
  452. ---- Result should have been (exact matching):
  453. 25x15 185x263
  454. ==== listbox-4.1 FAILED
  455.  
  456.  
  457.  
  458. ==== listbox-4.6 ConfigureListbox procedure FAILED
  459. ==== Contents of test case:
  460.  
  461. catch {destroy .l}
  462.  
  463. # The following code (reset geometry, withdraw, etc.) is necessary
  464. # to reset the state of some window managers like olvwm under
  465. # SunOS 4.1.3.
  466.  
  467. wm geom . 300x300
  468. update
  469. wm geom . {}
  470. wm withdraw .
  471. listbox .l -font $fixed -width 15 -height 20
  472. pack .l
  473. update
  474. wm deiconify .
  475. set x [getsize .]
  476. .l configure -setgrid 1
  477. update
  478. list $x [getsize .]
  479.  
  480. ---- Result was:
  481. 113x288 15x20
  482. ---- Result should have been (exact matching):
  483. 115x328 15x20
  484. ==== listbox-4.6 FAILED
  485.  
  486.  
  487.  
  488. ==== listbox-5.1 ListboxComputeGeometry procedure FAILED
  489. ==== Contents of test case:
  490.  
  491. catch {destroy .l}
  492. listbox .l -font $fixed -width 15 -height 20
  493. pack .l
  494. list [winfo reqwidth .l] [winfo reqheight .l]
  495.  
  496. ---- Result was:
  497. 113 288
  498. ---- Result should have been (exact matching):
  499. 115 328
  500. ==== listbox-5.1 FAILED
  501.  
  502.  
  503.  
  504. ==== listbox-5.2 ListboxComputeGeometry procedure FAILED
  505. ==== Contents of test case:
  506.  
  507. catch {destroy .l}
  508. listbox .l -font $fixed -width 0 -height 10
  509. pack .l
  510. update
  511. list [winfo reqwidth .l] [winfo reqheight .l]
  512.  
  513. ---- Result was:
  514. 15 148
  515. ---- Result should have been (exact matching):
  516. 17 168
  517. ==== listbox-5.2 FAILED
  518.  
  519.  
  520.  
  521. ==== listbox-5.3 ListboxComputeGeometry procedure FAILED
  522. ==== Contents of test case:
  523.  
  524. catch {destroy .l}
  525. listbox .l -font $fixed -width 0 -height 10 -bd 3
  526. .l insert 0 Short "Really much longer" Longer
  527. pack .l
  528. update
  529. list [winfo reqwidth .l] [winfo reqheight .l]
  530.  
  531. ---- Result was:
  532. 136 150
  533. ---- Result should have been (exact matching):
  534. 138 170
  535. ==== listbox-5.3 FAILED
  536.  
  537.  
  538.  
  539. ==== listbox-5.4 ListboxComputeGeometry procedure FAILED
  540. ==== Contents of test case:
  541.  
  542. catch {destroy .l}
  543. listbox .l -font $fixed -width 10 -height 0
  544. pack .l
  545. update
  546. list [winfo reqwidth .l] [winfo reqheight .l]
  547.  
  548. ---- Result was:
  549. 78 22
  550. ---- Result should have been (exact matching):
  551. 80 24
  552. ==== listbox-5.4 FAILED
  553.  
  554.  
  555.  
  556. ==== listbox-5.5 ListboxComputeGeometry procedure FAILED
  557. ==== Contents of test case:
  558.  
  559. catch {destroy .l}
  560. listbox .l -font $fixed -width 10 -height 0 -highlightthickness 0
  561. .l insert 0 Short "Really much longer" Longer
  562. pack .l
  563. update
  564. list [winfo reqwidth .l] [winfo reqheight .l]
  565.  
  566. ---- Result was:
  567. 74 46
  568. ---- Result should have been (exact matching):
  569. 76 52
  570. ==== listbox-5.5 FAILED
  571.  
  572.  
  573.  
  574. ==== listbox-6.12 InsertEls procedure FAILED
  575. ==== Contents of test case:
  576.  
  577. catch {destroy .l2}
  578. listbox .l2 -width 0 -height 0
  579. pack .l2 -side top
  580. .l2 insert 0 a b "two words" c d
  581. set x {}
  582. lappend x [winfo reqwidth .l2] [winfo reqheight .l2]
  583. .l2 insert 0 "much longer entry"
  584. lappend x [winfo reqwidth .l2] [winfo reqheight .l2]
  585.  
  586. ---- Result was:
  587. 78 83 120 98
  588. ---- Result should have been (exact matching):
  589. 80 93 122 110
  590. ==== listbox-6.12 FAILED
  591.  
  592.  
  593.  
  594. ==== listbox-7.20 DeleteEls procedure FAILED
  595. ==== Contents of test case:
  596.  
  597. catch {destroy .l2}
  598. listbox .l2 -width 0 -height 0
  599. pack .l2 -side top
  600. .l2 insert 0 a b "two words" c d e f g
  601. set x {}
  602. lappend x [winfo reqwidth .l2] [winfo reqheight .l2]
  603. .l2 delete 2 4
  604. lappend x [winfo reqwidth .l2] [winfo reqheight .l2]
  605.  
  606. ---- Result was:
  607. 78 128 15 83
  608. ---- Result should have been (exact matching):
  609. 80 144 17 93
  610. ==== listbox-7.20 FAILED
  611.  
  612.  
  613.  
  614. ==== listbox-8.1 ListboxEventProc procedure FAILED
  615. ==== Contents of test case:
  616.  
  617. catch {destroy .l}
  618. listbox .l -setgrid 1
  619. pack .l
  620. update
  621. set x [getsize .]
  622. destroy .l
  623. list $x [getsize .] [winfo exists .l] [info command .l]
  624.  
  625. ---- Result was:
  626. 20x10 148x158 0 {}
  627. ---- Result should have been (exact matching):
  628. 20x10 150x178 0 {}
  629. ==== listbox-8.1 FAILED
  630.  
  631.  
  632.  
  633. ==== listbox-8.2 ListboxEventProc procedure FAILED
  634. ==== Contents of test case:
  635.  
  636. catch {destroy .l}
  637. listbox .l -height 5 -width 10
  638. .l insert 0 a b c "A string that is very very long" d e f g h i j k
  639. pack .l
  640. update
  641. place .l -width 50 -height 80
  642. update
  643. list [.l xview] [.l yview]
  644.  
  645. ---- Result was:
  646. {0 0.233333} {0 0.333333}
  647. ---- Result should have been (exact matching):
  648. {0 0.222222} {0 0.333333}
  649. ==== listbox-8.2 FAILED
  650.  
  651.  
  652.  
  653. ==== listbox-9.2 ListboxCmdDeletedProc procedure, disabling -setgrid FAILED
  654. ==== Contents of test case:
  655.  
  656. catch {destroy .top}
  657. toplevel .top
  658. wm geom .top +0+0
  659. listbox .top.l -setgrid 1 -width 20 -height 10
  660. pack .top.l
  661. update
  662. set x [wm geometry .top]
  663. rename .top.l {}
  664. update
  665. lappend x [wm geometry .top]
  666. destroy .top
  667. set x
  668.  
  669. ---- Result was:
  670. 20x10+0+0 148x158+0+0
  671. ---- Result should have been (exact matching):
  672. 20x10+0+0 150x178+0+0
  673. ==== listbox-9.2 FAILED
  674.  
  675.  
  676.  
  677. ==== listbox-14.3 NearestListboxElement procedure FAILED
  678. ==== Contents of test case:
  679.  
  680. list [.l index @50,35] [.l index @50,36]
  681.  
  682. ---- Result was:
  683. 6 6
  684. ---- Result should have been (exact matching):
  685. 5 6
  686. ==== listbox-14.3 FAILED
  687.  
  688. main.test
  689. menu.test
  690. menuDraw.test
  691. menubut.test
  692. message.test
  693. msgbox.test
  694. obj.test
  695. oldpack.test
  696. option.test
  697. pack.test
  698. panedwindow.test
  699.  
  700.  
  701. ==== panedwindow-4.5 forget subcommand, panes are unmapped FAILED
  702. ==== Contents of test case:
  703.  
  704. panedwindow .p
  705. .p add [button .b]
  706. .p add [button .c]
  707. pack .p
  708. update
  709.  
  710. set result [list [winfo ismapped .b] [winfo ismapped .c]]
  711. .p forget .b
  712. update
  713.  
  714. lappend result [winfo ismapped .b] [winfo ismapped .c]
  715. destroy .p .b .c
  716.  
  717. set result
  718.  
  719. ---- Result was:
  720. 1 0 0 1
  721. ---- Result should have been (exact matching):
  722. 1 1 0 1
  723. ==== panedwindow-4.5 FAILED
  724.  
  725.  
  726.  
  727. ==== panedwindow-12.1 moving sash changes size of pane to left FAILED
  728. ==== Contents of test case:
  729.  
  730. destroy .p .f .c
  731. panedwindow .p -borderwidth 0 -sashpad 0 -sashwidth 4 -showhandle false
  732. .p add [frame .f -width 20 -height 20] [button .c -text foobar] -sticky nsew
  733. .p sash place 0 30 0
  734. pack .p
  735. update
  736. winfo width .f
  737.  
  738. ---- Result was:
  739. 22
  740. ---- Result should have been (exact matching):
  741. 30
  742. ==== panedwindow-12.1 FAILED
  743.  
  744.  
  745.  
  746. ==== panedwindow-13.1 horizontal panedwindow lays out widgets properly FAILED
  747. ==== Contents of test case:
  748.  
  749. panedwindow .p -showhandle false -borderwidth 2 -sashpad 2 -sashwidth 2
  750. foreach win {.p.f .p.f2 .p.f3} {.p add [frame $win -width 20 -height 10]}
  751. pack .p
  752. update
  753. set result {}
  754. foreach w [.p panes] {lappend result [winfo x $w] [winfo y $w]}
  755. destroy .p .p.f .p.f2 .p.f3
  756. set result
  757.  
  758. ---- Result was:
  759. 0 0 8 2 0 0
  760. ---- Result should have been (exact matching):
  761. 2 2 28 2 54 2
  762. ==== panedwindow-13.1 FAILED
  763.  
  764.  
  765.  
  766. ==== panedwindow-13.2 vertical panedwindow lays out widgets properly FAILED
  767. ==== Contents of test case:
  768.  
  769. panedwindow .p -showhandle false -borderwidth 2 -sashpad 2 -sashwidth 2 -orient vertical
  770. foreach win {.p.f .p.f2 .p.f3} {.p add [frame $win -width 20 -height 10]}
  771. pack .p
  772. update
  773. set result {}
  774. foreach w [.p panes] {lappend result [winfo x $w] [winfo y $w]}
  775. destroy .p .p.f .p.f2 .p.f3
  776. set result
  777.  
  778. ---- Result was:
  779. 2 2 2 11 0 0
  780. ---- Result should have been (exact matching):
  781. 2 2 2 18 2 34
  782. ==== panedwindow-13.2 FAILED
  783.  
  784.  
  785.  
  786. ==== panedwindow-13.3 horizontal panedwindow lays out widgets properly FAILED
  787. ==== Contents of test case:
  788.  
  789. panedwindow .p -showhandle false -borderwidth 0 -sashpad 0 -sashwidth 0
  790. foreach {win color} {.p.f blue .p.f2 green} {
  791. .p add [frame $win -width 20 -height 20 -bg $color] -padx 10 -pady 5 -sticky ""
  792. }
  793. pack .p
  794. update
  795. set result [list [winfo reqwidth .p] [winfo reqheight .p]]
  796. foreach win {.p.f .p.f2} {lappend result [winfo x $win] [winfo y $win]}
  797. .p paneconfigure .p.f -padx 0 -pady 0
  798. update
  799. lappend result [winfo reqwidth .p] [winfo reqheight .p]
  800. foreach win {.p.f .p.f2} {lappend result [winfo x $win] [winfo y $win]}
  801. destroy .p .p.f .p.f2
  802. set result
  803.  
  804. ---- Result was:
  805. 80 30 0 0 0 0 60 30 0 5 30 5
  806. ---- Result should have been (exact matching):
  807. 80 30 10 5 50 5 60 30 0 5 30 5
  808. ==== panedwindow-13.3 FAILED
  809.  
  810.  
  811.  
  812. ==== panedwindow-13.4 vertical panedwindow lays out widgets properly FAILED
  813. ==== Contents of test case:
  814.  
  815. panedwindow .p -showhandle false -borderwidth 0 -sashpad 0 -sashwidth 0 -orient vertical
  816. foreach win {.p.f .p.f2} {
  817. .p add [frame $win -width 20 -height 20] -padx 10 -pady 5 -sticky ""
  818. }
  819. pack .p
  820. update
  821. set result [list [winfo reqwidth .p] [winfo reqheight .p]]
  822. foreach win {.p.f .p.f2} {lappend result [winfo x $win] [winfo y $win]}
  823. .p paneconfigure .p.f -padx 0 -pady 0
  824. update
  825. lappend result [winfo reqwidth .p] [winfo reqheight .p]
  826. foreach win {.p.f .p.f2} {lappend result [winfo x $win] [winfo y $win]}
  827. destroy .p .p.f .p.f2
  828. set result
  829.  
  830. ---- Result was:
  831. 40 60 10 5 0 0 40 50 10 0 10 25
  832. ---- Result should have been (exact matching):
  833. 40 60 10 5 10 35 40 50 10 0 10 25
  834. ==== panedwindow-13.4 FAILED
  835.  
  836.  
  837.  
  838. ==== panedwindow-20.10-0-0-0-0 ComputeGeometry/ArrangePanes, slave coords FAILED
  839. ==== Contents of test case:
  840.  
  841. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
  842. foreach w {.p.f1 .p.f2 .p.f3} {
  843. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
  844. }
  845. pack .p
  846. update
  847. set result {}
  848. foreach w {.p.f1 .p.f2 .p.f3} {
  849. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  850. }
  851. destroy .p .p.f1 .p.f2 .p.f3
  852. set result
  853.  
  854. ---- Result was:
  855. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  856. ---- Result should have been (exact matching):
  857. {11 3 20 20} {53 3 20 20} {95 3 20 20}
  858. ==== panedwindow-20.10-0-0-0-0 FAILED
  859.  
  860.  
  861.  
  862. ==== panedwindow-20.14-0-0-0-0 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
  863. ==== Contents of test case:
  864.  
  865. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
  866. foreach w {.p.f1 .p.f2 .p.f3} {
  867. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
  868. }
  869. pack .p
  870. update
  871. set result {}
  872. foreach w {.p.f1 .p.f2 .p.f3} {
  873. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  874. }
  875. destroy .p .p.f1 .p.f2 .p.f3
  876. set result
  877.  
  878. ---- Result was:
  879. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  880. ---- Result should have been (exact matching):
  881. {3 11 20 20} {3 53 20 20} {3 95 20 20}
  882. ==== panedwindow-20.14-0-0-0-0 FAILED
  883.  
  884.  
  885.  
  886. ==== panedwindow-20.18-0-0-0-1 ComputeGeometry/ArrangePanes, slave coords FAILED
  887. ==== Contents of test case:
  888.  
  889. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
  890. foreach w {.p.f1 .p.f2 .p.f3} {
  891. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
  892. }
  893. pack .p
  894. update
  895. set result {}
  896. foreach w {.p.f1 .p.f2 .p.f3} {
  897. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  898. }
  899. destroy .p .p.f1 .p.f2 .p.f3
  900. set result
  901.  
  902. ---- Result was:
  903. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  904. ---- Result should have been (exact matching):
  905. {11 3 20 20} {59 3 20 20} {107 3 20 20}
  906. ==== panedwindow-20.18-0-0-0-1 FAILED
  907.  
  908.  
  909.  
  910. ==== panedwindow-20.22-0-0-0-1 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
  911. ==== Contents of test case:
  912.  
  913. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
  914. foreach w {.p.f1 .p.f2 .p.f3} {
  915. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
  916. }
  917. pack .p
  918. update
  919. set result {}
  920. foreach w {.p.f1 .p.f2 .p.f3} {
  921. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  922. }
  923. destroy .p .p.f1 .p.f2 .p.f3
  924. set result
  925.  
  926. ---- Result was:
  927. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  928. ---- Result should have been (exact matching):
  929. {3 11 20 20} {3 59 20 20} {3 107 20 20}
  930. ==== panedwindow-20.22-0-0-0-1 FAILED
  931.  
  932.  
  933.  
  934. ==== panedwindow-20.26-0-0-3-0 ComputeGeometry/ArrangePanes, slave coords FAILED
  935. ==== Contents of test case:
  936.  
  937. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
  938. foreach w {.p.f1 .p.f2 .p.f3} {
  939. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
  940. }
  941. pack .p
  942. update
  943. set result {}
  944. foreach w {.p.f1 .p.f2 .p.f3} {
  945. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  946. }
  947. destroy .p .p.f1 .p.f2 .p.f3
  948. set result
  949.  
  950. ---- Result was:
  951. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  952. ---- Result should have been (exact matching):
  953. {11 3 20 20} {56 3 20 20} {101 3 20 20}
  954. ==== panedwindow-20.26-0-0-3-0 FAILED
  955.  
  956.  
  957.  
  958. ==== panedwindow-20.30-0-0-3-0 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
  959. ==== Contents of test case:
  960.  
  961. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
  962. foreach w {.p.f1 .p.f2 .p.f3} {
  963. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
  964. }
  965. pack .p
  966. update
  967. set result {}
  968. foreach w {.p.f1 .p.f2 .p.f3} {
  969. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  970. }
  971. destroy .p .p.f1 .p.f2 .p.f3
  972. set result
  973.  
  974. ---- Result was:
  975. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  976. ---- Result should have been (exact matching):
  977. {3 11 20 20} {3 56 20 20} {3 101 20 20}
  978. ==== panedwindow-20.30-0-0-3-0 FAILED
  979.  
  980.  
  981.  
  982. ==== panedwindow-20.34-0-0-3-1 ComputeGeometry/ArrangePanes, slave coords FAILED
  983. ==== Contents of test case:
  984.  
  985. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
  986. foreach w {.p.f1 .p.f2 .p.f3} {
  987. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
  988. }
  989. pack .p
  990. update
  991. set result {}
  992. foreach w {.p.f1 .p.f2 .p.f3} {
  993. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  994. }
  995. destroy .p .p.f1 .p.f2 .p.f3
  996. set result
  997.  
  998. ---- Result was:
  999. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1000. ---- Result should have been (exact matching):
  1001. {11 3 20 20} {59 3 20 20} {107 3 20 20}
  1002. ==== panedwindow-20.34-0-0-3-1 FAILED
  1003.  
  1004.  
  1005.  
  1006. ==== panedwindow-20.38-0-0-3-1 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
  1007. ==== Contents of test case:
  1008.  
  1009. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
  1010. foreach w {.p.f1 .p.f2 .p.f3} {
  1011. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
  1012. }
  1013. pack .p
  1014. update
  1015. set result {}
  1016. foreach w {.p.f1 .p.f2 .p.f3} {
  1017. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1018. }
  1019. destroy .p .p.f1 .p.f2 .p.f3
  1020. set result
  1021.  
  1022. ---- Result was:
  1023. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1024. ---- Result should have been (exact matching):
  1025. {3 11 20 20} {3 59 20 20} {3 107 20 20}
  1026. ==== panedwindow-20.38-0-0-3-1 FAILED
  1027.  
  1028.  
  1029.  
  1030. ==== panedwindow-20.42-0-5-0-0 ComputeGeometry/ArrangePanes, slave coords FAILED
  1031. ==== Contents of test case:
  1032.  
  1033. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
  1034. foreach w {.p.f1 .p.f2 .p.f3} {
  1035. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
  1036. }
  1037. pack .p
  1038. update
  1039. set result {}
  1040. foreach w {.p.f1 .p.f2 .p.f3} {
  1041. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1042. }
  1043. destroy .p .p.f1 .p.f2 .p.f3
  1044. set result
  1045.  
  1046. ---- Result was:
  1047. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1048. ---- Result should have been (exact matching):
  1049. {11 3 20 20} {63 3 20 20} {115 3 20 20}
  1050. ==== panedwindow-20.42-0-5-0-0 FAILED
  1051.  
  1052.  
  1053.  
  1054. ==== panedwindow-20.46-0-5-0-0 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
  1055. ==== Contents of test case:
  1056.  
  1057. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
  1058. foreach w {.p.f1 .p.f2 .p.f3} {
  1059. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
  1060. }
  1061. pack .p
  1062. update
  1063. set result {}
  1064. foreach w {.p.f1 .p.f2 .p.f3} {
  1065. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1066. }
  1067. destroy .p .p.f1 .p.f2 .p.f3
  1068. set result
  1069.  
  1070. ---- Result was:
  1071. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1072. ---- Result should have been (exact matching):
  1073. {3 11 20 20} {3 63 20 20} {3 115 20 20}
  1074. ==== panedwindow-20.46-0-5-0-0 FAILED
  1075.  
  1076.  
  1077.  
  1078. ==== panedwindow-20.50-0-5-0-1 ComputeGeometry/ArrangePanes, slave coords FAILED
  1079. ==== Contents of test case:
  1080.  
  1081. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
  1082. foreach w {.p.f1 .p.f2 .p.f3} {
  1083. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
  1084. }
  1085. pack .p
  1086. update
  1087. set result {}
  1088. foreach w {.p.f1 .p.f2 .p.f3} {
  1089. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1090. }
  1091. destroy .p .p.f1 .p.f2 .p.f3
  1092. set result
  1093.  
  1094. ---- Result was:
  1095. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1096. ---- Result should have been (exact matching):
  1097. {11 3 20 20} {69 3 20 20} {127 3 20 20}
  1098. ==== panedwindow-20.50-0-5-0-1 FAILED
  1099.  
  1100.  
  1101.  
  1102. ==== panedwindow-20.54-0-5-0-1 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
  1103. ==== Contents of test case:
  1104.  
  1105. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
  1106. foreach w {.p.f1 .p.f2 .p.f3} {
  1107. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
  1108. }
  1109. pack .p
  1110. update
  1111. set result {}
  1112. foreach w {.p.f1 .p.f2 .p.f3} {
  1113. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1114. }
  1115. destroy .p .p.f1 .p.f2 .p.f3
  1116. set result
  1117.  
  1118. ---- Result was:
  1119. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1120. ---- Result should have been (exact matching):
  1121. {3 11 20 20} {3 69 20 20} {3 127 20 20}
  1122. ==== panedwindow-20.54-0-5-0-1 FAILED
  1123.  
  1124.  
  1125.  
  1126. ==== panedwindow-20.58-0-5-3-0 ComputeGeometry/ArrangePanes, slave coords FAILED
  1127. ==== Contents of test case:
  1128.  
  1129. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
  1130. foreach w {.p.f1 .p.f2 .p.f3} {
  1131. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
  1132. }
  1133. pack .p
  1134. update
  1135. set result {}
  1136. foreach w {.p.f1 .p.f2 .p.f3} {
  1137. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1138. }
  1139. destroy .p .p.f1 .p.f2 .p.f3
  1140. set result
  1141.  
  1142. ---- Result was:
  1143. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1144. ---- Result should have been (exact matching):
  1145. {11 3 20 20} {66 3 20 20} {121 3 20 20}
  1146. ==== panedwindow-20.58-0-5-3-0 FAILED
  1147.  
  1148.  
  1149.  
  1150. ==== panedwindow-20.62-0-5-3-0 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
  1151. ==== Contents of test case:
  1152.  
  1153. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
  1154. foreach w {.p.f1 .p.f2 .p.f3} {
  1155. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
  1156. }
  1157. pack .p
  1158. update
  1159. set result {}
  1160. foreach w {.p.f1 .p.f2 .p.f3} {
  1161. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1162. }
  1163. destroy .p .p.f1 .p.f2 .p.f3
  1164. set result
  1165.  
  1166. ---- Result was:
  1167. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1168. ---- Result should have been (exact matching):
  1169. {3 11 20 20} {3 66 20 20} {3 121 20 20}
  1170. ==== panedwindow-20.62-0-5-3-0 FAILED
  1171.  
  1172.  
  1173.  
  1174. ==== panedwindow-20.66-0-5-3-1 ComputeGeometry/ArrangePanes, slave coords FAILED
  1175. ==== Contents of test case:
  1176.  
  1177. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
  1178. foreach w {.p.f1 .p.f2 .p.f3} {
  1179. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
  1180. }
  1181. pack .p
  1182. update
  1183. set result {}
  1184. foreach w {.p.f1 .p.f2 .p.f3} {
  1185. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1186. }
  1187. destroy .p .p.f1 .p.f2 .p.f3
  1188. set result
  1189.  
  1190. ---- Result was:
  1191. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1192. ---- Result should have been (exact matching):
  1193. {11 3 20 20} {69 3 20 20} {127 3 20 20}
  1194. ==== panedwindow-20.66-0-5-3-1 FAILED
  1195.  
  1196.  
  1197.  
  1198. ==== panedwindow-20.70-0-5-3-1 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
  1199. ==== Contents of test case:
  1200.  
  1201. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
  1202. foreach w {.p.f1 .p.f2 .p.f3} {
  1203. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
  1204. }
  1205. pack .p
  1206. update
  1207. set result {}
  1208. foreach w {.p.f1 .p.f2 .p.f3} {
  1209. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1210. }
  1211. destroy .p .p.f1 .p.f2 .p.f3
  1212. set result
  1213.  
  1214. ---- Result was:
  1215. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1216. ---- Result should have been (exact matching):
  1217. {3 11 20 20} {3 69 20 20} {3 127 20 20}
  1218. ==== panedwindow-20.70-0-5-3-1 FAILED
  1219.  
  1220.  
  1221.  
  1222. ==== panedwindow-20.74-2-0-0-0 ComputeGeometry/ArrangePanes, slave coords FAILED
  1223. ==== Contents of test case:
  1224.  
  1225. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
  1226. foreach w {.p.f1 .p.f2 .p.f3} {
  1227. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
  1228. }
  1229. pack .p
  1230. update
  1231. set result {}
  1232. foreach w {.p.f1 .p.f2 .p.f3} {
  1233. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1234. }
  1235. destroy .p .p.f1 .p.f2 .p.f3
  1236. set result
  1237.  
  1238. ---- Result was:
  1239. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1240. ---- Result should have been (exact matching):
  1241. {13 5 20 20} {55 5 20 20} {97 5 20 20}
  1242. ==== panedwindow-20.74-2-0-0-0 FAILED
  1243.  
  1244.  
  1245.  
  1246. ==== panedwindow-20.78-2-0-0-0 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
  1247. ==== Contents of test case:
  1248.  
  1249. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
  1250. foreach w {.p.f1 .p.f2 .p.f3} {
  1251. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
  1252. }
  1253. pack .p
  1254. update
  1255. set result {}
  1256. foreach w {.p.f1 .p.f2 .p.f3} {
  1257. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1258. }
  1259. destroy .p .p.f1 .p.f2 .p.f3
  1260. set result
  1261.  
  1262. ---- Result was:
  1263. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1264. ---- Result should have been (exact matching):
  1265. {5 13 20 20} {5 55 20 20} {5 97 20 20}
  1266. ==== panedwindow-20.78-2-0-0-0 FAILED
  1267.  
  1268.  
  1269.  
  1270. ==== panedwindow-20.82-2-0-0-1 ComputeGeometry/ArrangePanes, slave coords FAILED
  1271. ==== Contents of test case:
  1272.  
  1273. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
  1274. foreach w {.p.f1 .p.f2 .p.f3} {
  1275. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
  1276. }
  1277. pack .p
  1278. update
  1279. set result {}
  1280. foreach w {.p.f1 .p.f2 .p.f3} {
  1281. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1282. }
  1283. destroy .p .p.f1 .p.f2 .p.f3
  1284. set result
  1285.  
  1286. ---- Result was:
  1287. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1288. ---- Result should have been (exact matching):
  1289. {13 5 20 20} {61 5 20 20} {109 5 20 20}
  1290. ==== panedwindow-20.82-2-0-0-1 FAILED
  1291.  
  1292.  
  1293.  
  1294. ==== panedwindow-20.86-2-0-0-1 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
  1295. ==== Contents of test case:
  1296.  
  1297. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
  1298. foreach w {.p.f1 .p.f2 .p.f3} {
  1299. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
  1300. }
  1301. pack .p
  1302. update
  1303. set result {}
  1304. foreach w {.p.f1 .p.f2 .p.f3} {
  1305. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1306. }
  1307. destroy .p .p.f1 .p.f2 .p.f3
  1308. set result
  1309.  
  1310. ---- Result was:
  1311. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1312. ---- Result should have been (exact matching):
  1313. {5 13 20 20} {5 61 20 20} {5 109 20 20}
  1314. ==== panedwindow-20.86-2-0-0-1 FAILED
  1315.  
  1316.  
  1317.  
  1318. ==== panedwindow-20.90-2-0-3-0 ComputeGeometry/ArrangePanes, slave coords FAILED
  1319. ==== Contents of test case:
  1320.  
  1321. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
  1322. foreach w {.p.f1 .p.f2 .p.f3} {
  1323. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
  1324. }
  1325. pack .p
  1326. update
  1327. set result {}
  1328. foreach w {.p.f1 .p.f2 .p.f3} {
  1329. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1330. }
  1331. destroy .p .p.f1 .p.f2 .p.f3
  1332. set result
  1333.  
  1334. ---- Result was:
  1335. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1336. ---- Result should have been (exact matching):
  1337. {13 5 20 20} {58 5 20 20} {103 5 20 20}
  1338. ==== panedwindow-20.90-2-0-3-0 FAILED
  1339.  
  1340.  
  1341.  
  1342. ==== panedwindow-20.94-2-0-3-0 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
  1343. ==== Contents of test case:
  1344.  
  1345. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
  1346. foreach w {.p.f1 .p.f2 .p.f3} {
  1347. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
  1348. }
  1349. pack .p
  1350. update
  1351. set result {}
  1352. foreach w {.p.f1 .p.f2 .p.f3} {
  1353. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1354. }
  1355. destroy .p .p.f1 .p.f2 .p.f3
  1356. set result
  1357.  
  1358. ---- Result was:
  1359. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1360. ---- Result should have been (exact matching):
  1361. {5 13 20 20} {5 58 20 20} {5 103 20 20}
  1362. ==== panedwindow-20.94-2-0-3-0 FAILED
  1363.  
  1364.  
  1365.  
  1366. ==== panedwindow-20.98-2-0-3-1 ComputeGeometry/ArrangePanes, slave coords FAILED
  1367. ==== Contents of test case:
  1368.  
  1369. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
  1370. foreach w {.p.f1 .p.f2 .p.f3} {
  1371. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
  1372. }
  1373. pack .p
  1374. update
  1375. set result {}
  1376. foreach w {.p.f1 .p.f2 .p.f3} {
  1377. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1378. }
  1379. destroy .p .p.f1 .p.f2 .p.f3
  1380. set result
  1381.  
  1382. ---- Result was:
  1383. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1384. ---- Result should have been (exact matching):
  1385. {13 5 20 20} {61 5 20 20} {109 5 20 20}
  1386. ==== panedwindow-20.98-2-0-3-1 FAILED
  1387.  
  1388.  
  1389.  
  1390. ==== panedwindow-20.102-2-0-3-1 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
  1391. ==== Contents of test case:
  1392.  
  1393. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
  1394. foreach w {.p.f1 .p.f2 .p.f3} {
  1395. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
  1396. }
  1397. pack .p
  1398. update
  1399. set result {}
  1400. foreach w {.p.f1 .p.f2 .p.f3} {
  1401. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1402. }
  1403. destroy .p .p.f1 .p.f2 .p.f3
  1404. set result
  1405.  
  1406. ---- Result was:
  1407. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1408. ---- Result should have been (exact matching):
  1409. {5 13 20 20} {5 61 20 20} {5 109 20 20}
  1410. ==== panedwindow-20.102-2-0-3-1 FAILED
  1411.  
  1412.  
  1413.  
  1414. ==== panedwindow-20.106-2-5-0-0 ComputeGeometry/ArrangePanes, slave coords FAILED
  1415. ==== Contents of test case:
  1416.  
  1417. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
  1418. foreach w {.p.f1 .p.f2 .p.f3} {
  1419. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
  1420. }
  1421. pack .p
  1422. update
  1423. set result {}
  1424. foreach w {.p.f1 .p.f2 .p.f3} {
  1425. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1426. }
  1427. destroy .p .p.f1 .p.f2 .p.f3
  1428. set result
  1429.  
  1430. ---- Result was:
  1431. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1432. ---- Result should have been (exact matching):
  1433. {13 5 20 20} {65 5 20 20} {117 5 20 20}
  1434. ==== panedwindow-20.106-2-5-0-0 FAILED
  1435.  
  1436.  
  1437.  
  1438. ==== panedwindow-20.110-2-5-0-0 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
  1439. ==== Contents of test case:
  1440.  
  1441. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
  1442. foreach w {.p.f1 .p.f2 .p.f3} {
  1443. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
  1444. }
  1445. pack .p
  1446. update
  1447. set result {}
  1448. foreach w {.p.f1 .p.f2 .p.f3} {
  1449. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1450. }
  1451. destroy .p .p.f1 .p.f2 .p.f3
  1452. set result
  1453.  
  1454. ---- Result was:
  1455. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1456. ---- Result should have been (exact matching):
  1457. {5 13 20 20} {5 65 20 20} {5 117 20 20}
  1458. ==== panedwindow-20.110-2-5-0-0 FAILED
  1459.  
  1460.  
  1461.  
  1462. ==== panedwindow-20.114-2-5-0-1 ComputeGeometry/ArrangePanes, slave coords FAILED
  1463. ==== Contents of test case:
  1464.  
  1465. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
  1466. foreach w {.p.f1 .p.f2 .p.f3} {
  1467. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
  1468. }
  1469. pack .p
  1470. update
  1471. set result {}
  1472. foreach w {.p.f1 .p.f2 .p.f3} {
  1473. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1474. }
  1475. destroy .p .p.f1 .p.f2 .p.f3
  1476. set result
  1477.  
  1478. ---- Result was:
  1479. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1480. ---- Result should have been (exact matching):
  1481. {13 5 20 20} {71 5 20 20} {129 5 20 20}
  1482. ==== panedwindow-20.114-2-5-0-1 FAILED
  1483.  
  1484.  
  1485.  
  1486. ==== panedwindow-20.118-2-5-0-1 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
  1487. ==== Contents of test case:
  1488.  
  1489. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
  1490. foreach w {.p.f1 .p.f2 .p.f3} {
  1491. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
  1492. }
  1493. pack .p
  1494. update
  1495. set result {}
  1496. foreach w {.p.f1 .p.f2 .p.f3} {
  1497. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1498. }
  1499. destroy .p .p.f1 .p.f2 .p.f3
  1500. set result
  1501.  
  1502. ---- Result was:
  1503. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1504. ---- Result should have been (exact matching):
  1505. {5 13 20 20} {5 71 20 20} {5 129 20 20}
  1506. ==== panedwindow-20.118-2-5-0-1 FAILED
  1507.  
  1508.  
  1509.  
  1510. ==== panedwindow-20.122-2-5-3-0 ComputeGeometry/ArrangePanes, slave coords FAILED
  1511. ==== Contents of test case:
  1512.  
  1513. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
  1514. foreach w {.p.f1 .p.f2 .p.f3} {
  1515. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
  1516. }
  1517. pack .p
  1518. update
  1519. set result {}
  1520. foreach w {.p.f1 .p.f2 .p.f3} {
  1521. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1522. }
  1523. destroy .p .p.f1 .p.f2 .p.f3
  1524. set result
  1525.  
  1526. ---- Result was:
  1527. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1528. ---- Result should have been (exact matching):
  1529. {13 5 20 20} {68 5 20 20} {123 5 20 20}
  1530. ==== panedwindow-20.122-2-5-3-0 FAILED
  1531.  
  1532.  
  1533.  
  1534. ==== panedwindow-20.126-2-5-3-0 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
  1535. ==== Contents of test case:
  1536.  
  1537. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
  1538. foreach w {.p.f1 .p.f2 .p.f3} {
  1539. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
  1540. }
  1541. pack .p
  1542. update
  1543. set result {}
  1544. foreach w {.p.f1 .p.f2 .p.f3} {
  1545. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1546. }
  1547. destroy .p .p.f1 .p.f2 .p.f3
  1548. set result
  1549.  
  1550. ---- Result was:
  1551. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1552. ---- Result should have been (exact matching):
  1553. {5 13 20 20} {5 68 20 20} {5 123 20 20}
  1554. ==== panedwindow-20.126-2-5-3-0 FAILED
  1555.  
  1556.  
  1557.  
  1558. ==== panedwindow-20.130-2-5-3-1 ComputeGeometry/ArrangePanes, slave coords FAILED
  1559. ==== Contents of test case:
  1560.  
  1561. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h
  1562. foreach w {.p.f1 .p.f2 .p.f3} {
  1563. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 3 -padx 11
  1564. }
  1565. pack .p
  1566. update
  1567. set result {}
  1568. foreach w {.p.f1 .p.f2 .p.f3} {
  1569. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1570. }
  1571. destroy .p .p.f1 .p.f2 .p.f3
  1572. set result
  1573.  
  1574. ---- Result was:
  1575. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1576. ---- Result should have been (exact matching):
  1577. {13 5 20 20} {71 5 20 20} {129 5 20 20}
  1578. ==== panedwindow-20.130-2-5-3-1 FAILED
  1579.  
  1580.  
  1581.  
  1582. ==== panedwindow-20.134-2-5-3-1 ComputeGeometry/ArrangePanes, slave coords, vert FAILED
  1583. ==== Contents of test case:
  1584.  
  1585. panedwindow .p -borderwidth $bd -sashpad $sp -sashwidth $sw -handlesize 6 -showhandle $h -orient vertical
  1586. foreach w {.p.f1 .p.f2 .p.f3} {
  1587. .p add [frame $w -width 20 -height 20 -bg blue] -sticky nsew -pady 11 -padx 3
  1588. }
  1589. pack .p
  1590. update
  1591. set result {}
  1592. foreach w {.p.f1 .p.f2 .p.f3} {
  1593. lappend result [list [winfo x $w] [winfo y $w] [winfo width $w] [winfo height $w]]
  1594. }
  1595. destroy .p .p.f1 .p.f2 .p.f3
  1596. set result
  1597.  
  1598. ---- Result was:
  1599. {0 0 1 1} {0 0 1 1} {0 0 1 1}
  1600. ---- Result should have been (exact matching):
  1601. {5 13 20 20} {5 71 20 20} {5 129 20 20}
  1602. ==== panedwindow-20.134-2-5-3-1 FAILED
  1603.  
  1604.  
  1605.  
  1606. ==== panedwindow-22.16 ArrangePanes, last pane grows FAILED
  1607. ==== Contents of test case:
  1608. panedwindow .p -showhandle false -height 50
  1609. .p add [frame .f1 -width 50 -bg red] [frame .f2 -width 50 -bg white] [frame .f3 -width 50 -bg blue] [frame .f4 -width 50 -bg green]
  1610. .p sash place 1 250 0
  1611. pack .p
  1612. update
  1613. set result [list]
  1614. lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] [winfo width .f4] [winfo width .p]
  1615. .p configure -width 300
  1616. update
  1617. lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] [winfo width .f4] [winfo width .p]
  1618. ---- Result was:
  1619. 1 11 1 1 22 50 150 1 1 211
  1620. ---- Result should have been (exact matching):
  1621. 50 150 1 1 211 50 150 1 89 300
  1622. ==== panedwindow-22.16 FAILED
  1623.  
  1624.  
  1625.  
  1626. ==== panedwindow-24.29.2 ConfigurePanes, -hide works FAILED
  1627. ==== Contents of test case:
  1628. panedwindow .p -showhandle false -width 130 -height 100
  1629. frame .f1 -width 40 -bg red
  1630. frame .f2 -width 40 -bg white
  1631. frame .f3 -width 40 -bg blue
  1632. frame .f4 -width 40 -bg green
  1633. .p add .f1 .f2 .f3 .f4
  1634. pack .p
  1635. update
  1636. set result [list]
  1637. lappend result [winfo ismapped .f1] [winfo ismapped .f2] [winfo ismapped .f3] [winfo ismapped .f4]
  1638. lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] [winfo width .f4] [winfo width .p]
  1639. .p paneconfigure .f2 -hide 1
  1640. update
  1641. lappend result [winfo ismapped .f1] [winfo ismapped .f2] [winfo ismapped .f3] [winfo ismapped .f4]
  1642. lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] [winfo width .f4] [winfo width .p]
  1643. ---- Result was:
  1644. 1 1 1 0 37 40 40 1 128 1 0 1 1 40 40 40 40 128
  1645. ---- Result should have been (exact matching):
  1646. 1 1 1 0 39 40 40 1 130 1 0 1 1 40 40 40 42 130
  1647. ==== panedwindow-24.29.2 FAILED
  1648.  
  1649.  
  1650.  
  1651. ==== panedwindow-24.29.3 ConfigurePanes, -hide works, last pane stretches FAILED
  1652. ==== Contents of test case:
  1653. panedwindow .p -showhandle false -width 200 -height 200 -borderwidth 0
  1654. frame .f1 -width 50 -bg red
  1655. frame .f2 -width 50 -bg green
  1656. frame .f3 -width 50 -bg blue
  1657. .p add .f1 .f2 .f3
  1658. pack .p
  1659. update
  1660. set result [list]
  1661. lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3]
  1662. .p paneconfigure .f2 -hide 1
  1663. update
  1664. lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3]
  1665. ---- Result was:
  1666. 50 50 24 50 50 77
  1667. ---- Result should have been (exact matching):
  1668. 50 50 94 50 50 147
  1669. ==== panedwindow-24.29.3 FAILED
  1670.  
  1671.  
  1672.  
  1673. ==== panedwindow-24.29.4 ConfigurePanes, -hide works, last pane stretches FAILED
  1674. ==== Contents of test case:
  1675. panedwindow .p -showhandle false -width 200 -height 200 -borderwidth 0 -orient vertical
  1676. frame .f1 -height 50 -bg red
  1677. frame .f2 -height 50 -bg green
  1678. frame .f3 -height 50 -bg blue
  1679. .p add .f1 .f2 .f3
  1680. pack .p
  1681. update
  1682. set result [list]
  1683. lappend result [winfo height .f1] [winfo height .f2] [winfo height .f3]
  1684. .p paneconfigure .f2 -hide 1
  1685. update
  1686. lappend result [winfo height .f1] [winfo height .f2] [winfo height .f3]
  1687. ---- Result was:
  1688. 44 50 1 50 50 47
  1689. ---- Result should have been (exact matching):
  1690. 50 50 94 50 50 147
  1691. ==== panedwindow-24.29.4 FAILED
  1692.  
  1693.  
  1694.  
  1695. ==== panedwindow-29.1 resizing width FAILED
  1696. ==== Contents of test case:
  1697. panedwindow .p -bd 5
  1698. frame .f1 -width 100 -height 50 -bg blue
  1699. frame .f2 -width 100 -height 50 -bg red
  1700.  
  1701. .p add .f1 -sticky news
  1702. .p add .f2 -sticky news
  1703. pack .p -side top -fill both -expand 1
  1704. wm geometry . ""
  1705. update
  1706. # Note the width
  1707. set a [winfo width .f2]
  1708. # Increase the size by 10
  1709. regexp {^(\d+)x(\d+)} [wm geometry .] -> w h
  1710. wm geometry . [expr {$w + 10}]x$h
  1711. update
  1712. set b "$a [winfo width .f2]"
  1713. ---- Result was:
  1714. 69 100
  1715. ---- Result should have been (exact matching):
  1716. 100 110
  1717. ==== panedwindow-29.1 FAILED
  1718.  
  1719.  
  1720.  
  1721. ==== panedwindow-29.2 resizing height FAILED
  1722. ==== Contents of test case:
  1723. panedwindow .p -orient vertical -bd 5
  1724. frame .f1 -width 50 -height 100 -bg blue
  1725. frame .f2 -width 50 -height 100 -bg red
  1726.  
  1727. .p add .f1 -sticky news
  1728. .p add .f2 -sticky news
  1729. pack .p -side top -fill both -expand 1
  1730. wm geometry . ""
  1731. update
  1732. # Note the height
  1733. set a [winfo height .f2]
  1734. # Increase the size by 10
  1735. regexp {^(\d+)x(\d+)} [wm geometry .] -> w h
  1736. wm geometry . ${w}x[expr {$h + 10}]
  1737. update
  1738. set b "$a [winfo height .f2]"
  1739. ---- Result was:
  1740. 1 100
  1741. ---- Result should have been (exact matching):
  1742. 100 110
  1743. ==== panedwindow-29.2 FAILED
  1744.  
  1745. place.test
  1746. raise.test
  1747.  
  1748.  
  1749. ==== raise-1.1 preserve creation order FAILED
  1750. ==== Contents of test case:
  1751.  
  1752. raise_setup
  1753. tkwait visibility .raise.e
  1754. raise_getOrder
  1755.  
  1756. ---- Test generated error; Return code was: 1
  1757. ---- Return code should have been one of: 0 2
  1758. ---- errorInfo: bad window path name ""
  1759. while executing
  1760. "winfo name [winfo containing [expr $x+90] [expr $y+70]]"
  1761. (procedure "raise_getOrder" line 4)
  1762. invoked from within
  1763. "raise_getOrder"
  1764. ("uplevel" body line 4)
  1765. invoked from within
  1766. "uplevel 1 $script"
  1767. ---- errorCode: NONE
  1768. ==== raise-1.1 FAILED
  1769.  
  1770.  
  1771.  
  1772. ==== raise-1.2 preserve creation order FAILED
  1773. ==== Contents of test case:
  1774.  
  1775. raise_setup
  1776. testmakeexist .raise.a
  1777. update
  1778. raise_getOrder
  1779.  
  1780. ---- Test generated error; Return code was: 1
  1781. ---- Return code should have been one of: 0 2
  1782. ---- errorInfo: bad window path name ""
  1783. while executing
  1784. "winfo name [winfo containing [expr $x+90] [expr $y+70]]"
  1785. (procedure "raise_getOrder" line 4)
  1786. invoked from within
  1787. "raise_getOrder"
  1788. ("uplevel" body line 5)
  1789. invoked from within
  1790. "uplevel 1 $script"
  1791. ---- errorCode: NONE
  1792. ==== raise-1.2 FAILED
  1793.  
  1794.  
  1795.  
  1796. ==== raise-1.3 preserve creation order FAILED
  1797. ==== Contents of test case:
  1798.  
  1799. raise_setup
  1800. testmakeexist .raise.c
  1801. update
  1802. raise_getOrder
  1803.  
  1804. ---- Test generated error; Return code was: 1
  1805. ---- Return code should have been one of: 0 2
  1806. ---- errorInfo: bad window path name ""
  1807. while executing
  1808. "winfo name [winfo containing [expr $x+90] [expr $y+70]]"
  1809. (procedure "raise_getOrder" line 4)
  1810. invoked from within
  1811. "raise_getOrder"
  1812. ("uplevel" body line 5)
  1813. invoked from within
  1814. "uplevel 1 $script"
  1815. ---- errorCode: NONE
  1816. ==== raise-1.3 FAILED
  1817.  
  1818.  
  1819.  
  1820. ==== raise-1.4 preserve creation order FAILED
  1821. ==== Contents of test case:
  1822.  
  1823. raise_setup
  1824. testmakeexist .raise.e
  1825. update
  1826. raise_getOrder
  1827.  
  1828. ---- Test generated error; Return code was: 1
  1829. ---- Return code should have been one of: 0 2
  1830. ---- errorInfo: bad window path name ""
  1831. while executing
  1832. "winfo name [winfo containing [expr $x+90] [expr $y+70]]"
  1833. (procedure "raise_getOrder" line 4)
  1834. invoked from within
  1835. "raise_getOrder"
  1836. ("uplevel" body line 5)
  1837. invoked from within
  1838. "uplevel 1 $script"
  1839. ---- errorCode: NONE
  1840. ==== raise-1.4 FAILED
  1841.  
  1842.  
  1843.  
  1844. ==== raise-1.5 preserve creation order FAILED
  1845. ==== Contents of test case:
  1846.  
  1847. raise_setup
  1848. testmakeexist .raise.d .raise.c .raise.b
  1849. update
  1850. raise_getOrder
  1851.  
  1852. ---- Test generated error; Return code was: 1
  1853. ---- Return code should have been one of: 0 2
  1854. ---- errorInfo: bad window path name ""
  1855. while executing
  1856. "winfo name [winfo containing [expr $x+90] [expr $y+70]]"
  1857. (procedure "raise_getOrder" line 4)
  1858. invoked from within
  1859. "raise_getOrder"
  1860. ("uplevel" body line 5)
  1861. invoked from within
  1862. "uplevel 1 $script"
  1863. ---- errorCode: NONE
  1864. ==== raise-1.5 FAILED
  1865.  
  1866.  
  1867.  
  1868. ==== raise-2.1 raise internal windows before creation FAILED
  1869. ==== Contents of test case:
  1870.  
  1871. raise_setup
  1872. raise .raise.a
  1873. update
  1874. raise_getOrder
  1875.  
  1876. ---- Test generated error; Return code was: 1
  1877. ---- Return code should have been one of: 0 2
  1878. ---- errorInfo: bad window path name ""
  1879. while executing
  1880. "winfo name [winfo containing [expr $x+90] [expr $y+70]]"
  1881. (procedure "raise_getOrder" line 4)
  1882. invoked from within
  1883. "raise_getOrder"
  1884. ("uplevel" body line 5)
  1885. invoked from within
  1886. "uplevel 1 $script"
  1887. ---- errorCode: NONE
  1888. ==== raise-2.1 FAILED
  1889.  
  1890.  
  1891.  
  1892. ==== raise-2.2 raise internal windows before creation FAILED
  1893. ==== Contents of test case:
  1894.  
  1895. raise_setup
  1896. raise .raise.c
  1897. update
  1898. raise_getOrder
  1899.  
  1900. ---- Test generated error; Return code was: 1
  1901. ---- Return code should have been one of: 0 2
  1902. ---- errorInfo: bad window path name ""
  1903. while executing
  1904. "winfo name [winfo containing [expr $x+90] [expr $y+70]]"
  1905. (procedure "raise_getOrder" line 4)
  1906. invoked from within
  1907. "raise_getOrder"
  1908. ("uplevel" body line 5)
  1909. invoked from within
  1910. "uplevel 1 $script"
  1911. ---- errorCode: NONE
  1912. ==== raise-2.2 FAILED
  1913.  
  1914.  
  1915.  
  1916. ==== raise-2.3 raise internal windows before creation FAILED
  1917. ==== Contents of test case:
  1918.  
  1919. raise_setup
  1920. raise .raise.e
  1921. update
  1922. raise_getOrder
  1923.  
  1924. ---- Test generated error; Return code was: 1
  1925. ---- Return code should have been one of: 0 2
  1926. ---- errorInfo: bad window path name ""
  1927. while executing
  1928. "winfo name [winfo containing [expr $x+90] [expr $y+70]]"
  1929. (procedure "raise_getOrder" line 4)
  1930. invoked from within
  1931. "raise_getOrder"
  1932. ("uplevel" body line 5)
  1933. invoked from within
  1934. "uplevel 1 $script"
  1935. ---- errorCode: NONE
  1936. ==== raise-2.3 FAILED
  1937.  
  1938.  
  1939.  
  1940. ==== raise-2.4 raise internal windows before creation FAILED
  1941. ==== Contents of test case:
  1942.  
  1943. raise_setup
  1944. raise .raise.e .raise.a
  1945. update
  1946. raise_getOrder
  1947.  
  1948. ---- Test generated error; Return code was: 1
  1949. ---- Return code should have been one of: 0 2
  1950. ---- errorInfo: bad window path name ""
  1951. while executing
  1952. "winfo name [winfo containing [expr $x+90] [expr $y+70]]"
  1953. (procedure "raise_getOrder" line 4)
  1954. invoked from within
  1955. "raise_getOrder"
  1956. ("uplevel" body line 5)
  1957. invoked from within
  1958. "uplevel 1 $script"
  1959. ---- errorCode: NONE
  1960. ==== raise-2.4 FAILED
  1961.  
  1962.  
  1963.  
  1964. ==== raise-2.5 raise internal windows before creation FAILED
  1965. ==== Contents of test case:
  1966.  
  1967. raise_setup
  1968. raise .raise.a .raise.d
  1969. update
  1970. raise_getOrder
  1971.  
  1972. ---- Test generated error; Return code was: 1
  1973. ---- Return code should have been one of: 0 2
  1974. ---- errorInfo: bad window path name ""
  1975. while executing
  1976. "winfo name [winfo containing [expr $x+90] [expr $y+70]]"
  1977. (procedure "raise_getOrder" line 4)
  1978. invoked from within
  1979. "raise_getOrder"
  1980. ("uplevel" body line 5)
  1981. invoked from within
  1982. "uplevel 1 $script"
  1983. ---- errorCode: NONE
  1984. ==== raise-2.5 FAILED
  1985.  
  1986.  
  1987.  
  1988. ==== raise-3.1 raise internal windows after creation FAILED
  1989. ==== Contents of test case:
  1990.  
  1991. raise_setup
  1992. update
  1993. raise .raise.a .raise.d
  1994. raise_getOrder
  1995.  
  1996. ---- Test generated error; Return code was: 1
  1997. ---- Return code should have been one of: 0 2
  1998. ---- errorInfo: bad window path name ""
  1999. while executing
  2000. "winfo name [winfo containing [expr $x+90] [expr $y+70]]"
  2001. (procedure "raise_getOrder" line 4)
  2002. invoked from within
  2003. "raise_getOrder"
  2004. ("uplevel" body line 5)
  2005. invoked from within
  2006. "uplevel 1 $script"
  2007. ---- errorCode: NONE
  2008. ==== raise-3.1 FAILED
  2009.  
  2010.  
  2011.  
  2012. ==== raise-3.2 raise internal windows after creation FAILED
  2013. ==== Contents of test case:
  2014.  
  2015. raise_setup
  2016. testmakeexist .raise.a .raise.b
  2017. raise .raise.a .raise.b
  2018. update
  2019. raise_getOrder
  2020.  
  2021. ---- Test generated error; Return code was: 1
  2022. ---- Return code should have been one of: 0 2
  2023. ---- errorInfo: bad window path name ""
  2024. while executing
  2025. "winfo name [winfo containing [expr $x+90] [expr $y+70]]"
  2026. (procedure "raise_getOrder" line 4)
  2027. invoked from within
  2028. "raise_getOrder"
  2029. ("uplevel" body line 6)
  2030. invoked from within
  2031. "uplevel 1 $script"
  2032. ---- errorCode: NONE
  2033. ==== raise-3.2 FAILED
  2034.  
  2035.  
  2036.  
  2037. ==== raise-3.3 raise internal windows after creation FAILED
  2038. ==== Contents of test case:
  2039.  
  2040. raise_setup
  2041. testmakeexist .raise.a .raise.d
  2042. raise .raise.a .raise.b
  2043. update
  2044. raise_getOrder
  2045.  
  2046. ---- Test generated error; Return code was: 1
  2047. ---- Return code should have been one of: 0 2
  2048. ---- errorInfo: bad window path name ""
  2049. while executing
  2050. "winfo name [winfo containing [expr $x+90] [expr $y+70]]"
  2051. (procedure "raise_getOrder" line 4)
  2052. invoked from within
  2053. "raise_getOrder"
  2054. ("uplevel" body line 6)
  2055. invoked from within
  2056. "uplevel 1 $script"
  2057. ---- errorCode: NONE
  2058. ==== raise-3.3 FAILED
  2059.  
  2060.  
  2061.  
  2062. ==== raise-3.4 raise internal windows after creation FAILED
  2063. ==== Contents of test case:
  2064.  
  2065. raise_setup
  2066. testmakeexist .raise.a .raise.c .raise.d
  2067. raise .raise.a .raise.b
  2068. update
  2069. raise_getOrder
  2070.  
  2071. ---- Test generated error; Return code was: 1
  2072. ---- Return code should have been one of: 0 2
  2073. ---- errorInfo: bad window path name ""
  2074. while executing
  2075. "winfo name [winfo containing [expr $x+90] [expr $y+70]]"
  2076. (procedure "raise_getOrder" line 4)
  2077. invoked from within
  2078. "raise_getOrder"
  2079. ("uplevel" body line 6)
  2080. invoked from within
  2081. "uplevel 1 $script"
  2082. ---- errorCode: NONE
  2083. ==== raise-3.4 FAILED
  2084.  
  2085.  
  2086.  
  2087. ==== raise-4.1 raise relative to nephews FAILED
  2088. ==== Contents of test case:
  2089.  
  2090. raise_setup
  2091. update
  2092. frame .raise.d.child
  2093. raise .raise.a .raise.d.child
  2094. raise_getOrder
  2095.  
  2096. ---- Test generated error; Return code was: 1
  2097. ---- Return code should have been one of: 0 2
  2098. ---- errorInfo: bad window path name ""
  2099. while executing
  2100. "winfo name [winfo containing [expr $x+90] [expr $y+70]]"
  2101. (procedure "raise_getOrder" line 4)
  2102. invoked from within
  2103. "raise_getOrder"
  2104. ("uplevel" body line 6)
  2105. invoked from within
  2106. "uplevel 1 $script"
  2107. ---- errorCode: NONE
  2108. ==== raise-4.1 FAILED
  2109.  
  2110.  
  2111.  
  2112. ==== raise-5.1 lower internal windows FAILED
  2113. ==== Contents of test case:
  2114.  
  2115. raise_setup
  2116. update
  2117. lower .raise.d
  2118. raise_getOrder
  2119.  
  2120. ---- Test generated error; Return code was: 1
  2121. ---- Return code should have been one of: 0 2
  2122. ---- errorInfo: bad window path name ""
  2123. while executing
  2124. "winfo name [winfo containing [expr $x+90] [expr $y+70]]"
  2125. (procedure "raise_getOrder" line 4)
  2126. invoked from within
  2127. "raise_getOrder"
  2128. ("uplevel" body line 5)
  2129. invoked from within
  2130. "uplevel 1 $script"
  2131. ---- errorCode: NONE
  2132. ==== raise-5.1 FAILED
  2133.  
  2134.  
  2135.  
  2136. ==== raise-5.2 lower internal windows FAILED
  2137. ==== Contents of test case:
  2138.  
  2139. raise_setup
  2140. update
  2141. lower .raise.d .raise.b
  2142. raise_getOrder
  2143.  
  2144. ---- Test generated error; Return code was: 1
  2145. ---- Return code should have been one of: 0 2
  2146. ---- errorInfo: bad window path name ""
  2147. while executing
  2148. "winfo name [winfo containing [expr $x+90] [expr $y+70]]"
  2149. (procedure "raise_getOrder" line 4)
  2150. invoked from within
  2151. "raise_getOrder"
  2152. ("uplevel" body line 5)
  2153. invoked from within
  2154. "uplevel 1 $script"
  2155. ---- errorCode: NONE
  2156. ==== raise-5.2 FAILED
  2157.  
  2158.  
  2159.  
  2160. ==== raise-5.3 lower internal windows FAILED
  2161. ==== Contents of test case:
  2162.  
  2163. raise_setup
  2164. update
  2165. lower .raise.a .raise.e
  2166. raise_getOrder
  2167.  
  2168. ---- Test generated error; Return code was: 1
  2169. ---- Return code should have been one of: 0 2
  2170. ---- errorInfo: bad window path name ""
  2171. while executing
  2172. "winfo name [winfo containing [expr $x+90] [expr $y+70]]"
  2173. (procedure "raise_getOrder" line 4)
  2174. invoked from within
  2175. "raise_getOrder"
  2176. ("uplevel" body line 5)
  2177. invoked from within
  2178. "uplevel 1 $script"
  2179. ---- errorCode: NONE
  2180. ==== raise-5.3 FAILED
  2181.  
  2182. safe.test
  2183. scale.test
  2184. scrollbar.test
  2185.  
  2186.  
  2187. ==== scrollbar-3.12 ScrollbarWidgetCmd procedure, "cget" option FAILED
  2188. ==== Contents of test case:
  2189.  
  2190. list [catch {.s2 cget -bd} msg] $msg
  2191.  
  2192. ---- Result was:
  2193. 0 1
  2194. ---- Result should have been (exact matching):
  2195. 0 2
  2196. ==== scrollbar-3.12 FAILED
  2197.  
  2198. select.test
  2199.  
  2200.  
  2201. ==== select-10.4 ConvertSelection procedure FAILED
  2202. ==== Contents of test case:
  2203.  
  2204. setup
  2205. setupbg
  2206. set selValue $longValue
  2207. set selInfo ""
  2208. selection handle .f1 {errIncrHandler STRING}
  2209. set result ""
  2210. set pass 0
  2211. lappend result [dobg {selection get}]
  2212. cleanupbg
  2213. lappend result $selInfo
  2214.  
  2215. ---- Result was:
  2216. {selection owner didn't respond} {STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000}
  2217. ---- Result should have been (exact matching):
  2218. {selection owner didn't respond} {STRING 0 4000 STRING 4000 4000 STRING 8000 4000 STRING 12000 4000 STRING 16000 4000 STRING 0 4000 STRING 4000 4000}
  2219. ==== select-10.4 FAILED
  2220.  
  2221. send.test
  2222. spinbox.test
  2223.  
  2224.  
  2225. ==== spinbox-19.8 spinbox widget validation FAILED
  2226. ==== Contents of test case:
  2227.  
  2228. focus -force .e
  2229. # update necessary to process FocusIn event
  2230. update
  2231. set ::vVals
  2232.  
  2233. ---- Result was:
  2234. .e -1 -1 abcd abcd {} focus focusout
  2235. ---- Result should have been (exact matching):
  2236. .e -1 -1 abcd abcd {} focus focusin
  2237. ==== spinbox-19.8 FAILED
  2238.  
  2239.  
  2240.  
  2241. ==== spinbox-19.10 spinbox widget validation FAILED
  2242. ==== Contents of test case:
  2243.  
  2244. focus -force .e
  2245. # update necessary to process FocusIn event
  2246. update
  2247. set ::vVals
  2248.  
  2249. ---- Result was:
  2250. .e -1 -1 abcd abcd {} all focusout
  2251. ---- Result should have been (exact matching):
  2252. .e -1 -1 abcd abcd {} all focusin
  2253. ==== spinbox-19.10 FAILED
  2254.  
  2255.  
  2256.  
  2257. ==== spinbox-19.14 spinbox widget validation FAILED
  2258. ==== Contents of test case:
  2259.  
  2260. focus -force .e
  2261. # update necessary to process FocusIn event
  2262. update
  2263. set ::vVals
  2264.  
  2265. ---- Result was:
  2266. .e -1 -1 abcd abcd {} focusout focusout
  2267. ---- Result should have been (exact matching):
  2268.  
  2269. ==== spinbox-19.14 FAILED
  2270.  
  2271. text.test
  2272. textBTree.test
  2273. textDisp.test
  2274.  
  2275.  
  2276. ==== textDisp-16.25 TkTextYviewCmd procedure, "scroll" option, back pages FAILED
  2277. ==== Contents of test case:
  2278.  
  2279. .t configure -height 1
  2280. update
  2281. .t yview 50.0
  2282. update
  2283. .t yview scroll -1 pages
  2284. set x [.t index @0,0]
  2285. .t configure -height 10
  2286. update
  2287. set x
  2288.  
  2289. ---- Result was:
  2290. 48.0
  2291. ---- Result should have been (exact matching):
  2292. 49.0
  2293. ==== textDisp-16.25 FAILED
  2294.  
  2295.  
  2296.  
  2297. ==== textDisp-27.7 SizeOfTab procedure, center alignment, wrap -none (potential numerical problems) FAILED
  2298. ==== Contents of test case:
  2299.  
  2300. .t delete 1.0 end
  2301. set cm [winfo fpixels .t 1c]
  2302. .t configure -tabs {1c 2c center 3c 4c 5c 6c 7c 8c} -wrap none -width 40
  2303. .t insert 1.0 a\tb\tc\td\te\n012345678934567890a\tbb\tcc\tdd
  2304. set width [expr {$fixedWidth * 19}]
  2305. set tab $cm
  2306. while {$tab < $width} {
  2307. set tab [expr {$tab + $cm}]
  2308. }
  2309. # Now we've calculated to the end of the tab after 'a', add one
  2310. # more for 'bb\t' and we're there, with 4 for the border. Since
  2311. # Tk_GetPixelsFromObj uses the standard 'int(0.5 + float)' rounding,
  2312. # so must we.
  2313. set tab [expr {4 + int(0.5 + $tab + $cm)}]
  2314. update
  2315. set res [.t bbox 2.23]
  2316. lset res 0 [expr {[lindex $res 0] - $tab}]
  2317. set res
  2318.  
  2319. ---- Result was:
  2320. -16 18 7 13
  2321. ---- Result should have been (exact matching):
  2322. -28 18 7 13
  2323. ==== textDisp-27.7 FAILED
  2324.  
  2325.  
  2326.  
  2327. ==== textDisp-29.2 miscellaneous: lines wrap but are still too long FAILED
  2328. ==== Contents of test case:
  2329.  
  2330. catch {destroy .t2}
  2331. toplevel .t2
  2332. wm geometry .t2 +0+0
  2333. text .t2.t -width 20 -height 10 -font $fixedFont -wrap char -xscrollcommand ".t2.s set"
  2334. pack .t2.t -side top
  2335. scrollbar .t2.s -orient horizontal -command ".t2.t xview"
  2336. pack .t2.s -side bottom -fill x
  2337. .t2.t insert end 123
  2338. frame .t2.t.f -width 300 -height 50 -bd 2 -relief raised
  2339. .t2.t window create 1.1 -window .t2.t.f
  2340. .t2.t xview scroll 1 unit
  2341. update
  2342. list [.t2.t xview] [winfo geom .t2.t.f] [.t2.t bbox 1.3]
  2343.  
  2344. ---- Result was:
  2345. {0.02 0.4866666666666667} 300x50+-1+18 {6 68 7 13}
  2346. ---- Result should have been (exact matching):
  2347. {0.023333333333333334 0.49} 300x50+-2+18 {5 68 7 13}
  2348. ==== textDisp-29.2 FAILED
  2349.  
  2350.  
  2351.  
  2352. ==== textDisp-29.2.1 miscellaneous: lines wrap but are still too long FAILED
  2353. ==== Contents of test case:
  2354.  
  2355. catch {destroy .t2}
  2356. toplevel .t2
  2357. wm geometry .t2 +0+0
  2358. text .t2.t -width 20 -height 10 -font $fixedFont -wrap none -xscrollcommand ".t2.s set"
  2359. pack .t2.t -side top
  2360. scrollbar .t2.s -orient horizontal -command ".t2.t xview"
  2361. pack .t2.s -side bottom -fill x
  2362. .t2.t insert end 1\n
  2363. .t2.t insert end [string repeat "abc" 30]
  2364. .t2.t xview scroll 5 unit
  2365. update
  2366. .t2.t xview
  2367.  
  2368. ---- Result was:
  2369. 0.009523809523809525 0.23174603174603176
  2370. ---- Result should have been (exact matching):
  2371. 0.05555555555555555 0.2777777777777778
  2372. ==== textDisp-29.2.1 FAILED
  2373.  
  2374.  
  2375.  
  2376. ==== textDisp-29.2.2 miscellaneous: lines wrap but are still too long FAILED
  2377. ==== Contents of test case:
  2378.  
  2379. catch {destroy .t2}
  2380. toplevel .t2
  2381. wm geometry .t2 +0+0
  2382. text .t2.t -width 20 -height 10 -font $fixedFont -wrap char -xscrollcommand ".t2.s set"
  2383. pack .t2.t -side top
  2384. scrollbar .t2.s -orient horizontal -command ".t2.t xview"
  2385. pack .t2.s -side bottom -fill x
  2386. .t2.t insert end 123
  2387. frame .t2.t.f -width 300 -height 50 -bd 2 -relief raised
  2388. .t2.t window create 1.1 -window .t2.t.f
  2389. .t2.t xview scroll 2 unit
  2390. update
  2391. list [.t2.t xview] [winfo geom .t2.t.f] [.t2.t bbox 1.3]
  2392.  
  2393. ---- Result was:
  2394. {0.02 0.4866666666666667} 300x50+-1+18 {6 68 7 13}
  2395. ---- Result should have been (exact matching):
  2396. {0.04666666666666667 0.5133333333333333} 300x50+-9+18 {}
  2397. ==== textDisp-29.2.2 FAILED
  2398.  
  2399.  
  2400.  
  2401. ==== textDisp-29.2.3 miscellaneous: lines wrap but are still too long FAILED
  2402. ==== Contents of test case:
  2403.  
  2404. catch {destroy .t2}
  2405. toplevel .t2
  2406. wm geometry .t2 +0+0
  2407. text .t2.t -width 20 -height 10 -font $fixedFont -wrap char -xscrollcommand ".t2.s set"
  2408. pack .t2.t -side top
  2409. scrollbar .t2.s -orient horizontal -command ".t2.t xview"
  2410. pack .t2.s -side bottom -fill x
  2411. .t2.t insert end 123
  2412. frame .t2.t.f -width 300 -height 50 -bd 2 -relief raised
  2413. .t2.t window create 1.1 -window .t2.t.f
  2414. .t2.t xview scroll 7 pixels
  2415. update
  2416. list [.t2.t xview] [winfo geom .t2.t.f] [.t2.t bbox 1.3]
  2417.  
  2418. ---- Result was:
  2419. {0.02 0.4866666666666667} 300x50+-1+18 {6 68 7 13}
  2420. ---- Result should have been (exact matching):
  2421. {0.023333333333333334 0.49} 300x50+-2+18 {5 68 7 13}
  2422. ==== textDisp-29.2.3 FAILED
  2423.  
  2424.  
  2425.  
  2426. ==== textDisp-29.2.4 miscellaneous: lines wrap but are still too long FAILED
  2427. ==== Contents of test case:
  2428.  
  2429. catch {destroy .t2}
  2430. toplevel .t2
  2431. wm geometry .t2 +0+0
  2432. text .t2.t -width 20 -height 10 -font $fixedFont -wrap char -xscrollcommand ".t2.s set"
  2433. pack .t2.t -side top
  2434. scrollbar .t2.s -orient horizontal -command ".t2.t xview"
  2435. pack .t2.s -side bottom -fill x
  2436. .t2.t insert end 123
  2437. frame .t2.t.f -width 300 -height 50 -bd 2 -relief raised
  2438. .t2.t window create 1.1 -window .t2.t.f
  2439. .t2.t xview scroll 17 pixels
  2440. update
  2441. list [.t2.t xview] [winfo geom .t2.t.f] [.t2.t bbox 1.3]
  2442.  
  2443. ---- Result was:
  2444. {0.02 0.4866666666666667} 300x50+-1+18 {6 68 7 13}
  2445. ---- Result should have been (exact matching):
  2446. {0.056666666666666664 0.5233333333333333} 300x50+-12+18 {}
  2447. ==== textDisp-29.2.4 FAILED
  2448.  
  2449. textImage.test
  2450.  
  2451.  
  2452. ==== textImage-3.2 delayed image management FAILED
  2453. ==== Contents of test case:
  2454.  
  2455. catch {
  2456. image create photo small -width 5 -height 5
  2457. small put red -to 0 0 4 4
  2458. }
  2459. catch {destroy .t}
  2460. text .t -font test_font -bd 0 -highlightthickness 0 -padx 0 -pady 0
  2461. pack .t
  2462. .t image create end -name test
  2463. update
  2464. set result ""
  2465. lappend result [.t bbox test]
  2466. .t image configure test -image small -align top
  2467. update
  2468. lappend result [.t bbox test]
  2469.  
  2470. ---- Result was:
  2471. {0 7 0 0} {0 0 5 5}
  2472. ---- Result should have been (exact matching):
  2473. {} {0 0 5 5}
  2474. ==== textImage-3.2 FAILED
  2475.  
  2476. textIndex.test
  2477. textMark.test
  2478. textTag.test
  2479. textWind.test
  2480. tk.test
  2481. unixButton.test
  2482. unixEmbed.test
  2483. unixFont.test
  2484.  
  2485.  
  2486. ==== unixfont-1.2 TkpGetNativeFont procedure: native FAILED
  2487. ==== Contents of test case:
  2488.  
  2489. font measure fixed 0
  2490.  
  2491. ---- Result was:
  2492. 12
  2493. ---- Result should have been (exact matching):
  2494. 6
  2495. ==== unixfont-1.2 FAILED
  2496.  
  2497.  
  2498.  
  2499. ==== unixfont-2.6 TkpGetFontFromAttributes: fallback to fixed family FAILED
  2500. ==== Contents of test case:
  2501.  
  2502. lindex [font actual {-family fixed -size 10}] 1
  2503.  
  2504. ---- Result was:
  2505. Fixed
  2506. ---- Result should have been (exact matching):
  2507. fixed
  2508. ==== unixfont-2.6 FAILED
  2509.  
  2510.  
  2511.  
  2512. ==== unixfont-2.8 TkpGetFontFromAttributes: loop over returned font names FAILED
  2513. ==== Contents of test case:
  2514.  
  2515. lindex [font actual {-family fixed -size 31}] 1
  2516.  
  2517. ---- Result was:
  2518. Fixed
  2519. ---- Result should have been (exact matching):
  2520. fixed
  2521. ==== unixfont-2.8 FAILED
  2522.  
  2523.  
  2524.  
  2525. ==== unixfont-2.9 TkpGetFontFromAttributes: reject adobe courier if possible FAILED
  2526. ==== Contents of test case:
  2527.  
  2528. lindex [font actual {-family courier}] 1
  2529.  
  2530. ---- Result was:
  2531. Courier
  2532. ---- Result should have been (exact matching):
  2533. courier
  2534. ==== unixfont-2.9 FAILED
  2535.  
  2536.  
  2537.  
  2538. ==== unixfont-2.10 TkpGetFontFromAttributes: scalable font found FAILED
  2539. ==== Contents of test case:
  2540.  
  2541. lindex [font actual {-family courier -size 37}] 3
  2542.  
  2543. ---- Result was:
  2544. 24
  2545. ---- Result should have been (exact matching):
  2546. 37
  2547. ==== unixfont-2.10 FAILED
  2548.  
  2549.  
  2550.  
  2551. ==== unixfont-5.9 Tk_MeasureChars procedure: TK_PARTIAL_OK FAILED
  2552. ==== Contents of test case:
  2553.  
  2554. .b.c dchars $t 0 end
  2555. .b.c insert $t 0 "0000"
  2556. .b.c index $t @[expr int($ax*2.5)],1
  2557.  
  2558. ---- Result was:
  2559. 4
  2560. ---- Result should have been (exact matching):
  2561. 2
  2562. ==== unixfont-5.9 FAILED
  2563.  
  2564.  
  2565.  
  2566. ==== unixfont-8.4 AllocFont procedure: classify characters FAILED
  2567. ==== Contents of test case:
  2568.  
  2569. set x 0
  2570. incr x [font measure $courier "\u4000"] ;# 6
  2571. incr x [font measure $courier "\002"] ;# 4
  2572. incr x [font measure $courier "\012"] ;# 2
  2573. incr x [font measure $courier "\101"] ;# 1
  2574. set x
  2575.  
  2576. ---- Result was:
  2577. 24
  2578. ---- Result should have been (exact matching):
  2579. 78
  2580. ==== unixfont-8.4 FAILED
  2581.  
  2582.  
  2583.  
  2584. ==== unixfont-8.6 AllocFont procedure: setup widths of special chars FAILED
  2585. ==== Contents of test case:
  2586.  
  2587. set x 0
  2588. incr x [font measure $courier "\001"] ;# 4
  2589. incr x [font measure $courier "\002"] ;# 4
  2590. incr x [font measure $courier "\012"] ;# 2
  2591. set x
  2592.  
  2593. ---- Result was:
  2594. 18
  2595. ---- Result should have been (exact matching):
  2596. 60
  2597. ==== unixfont-8.6 FAILED
  2598.  
  2599.  
  2600.  
  2601. ==== unixfont-9.1 GetControlCharSubst procedure: 2 chars subst FAILED
  2602. ==== Contents of test case:
  2603.  
  2604. .b.c dchars $t 0 end
  2605. .b.c insert $t 0 "0\a0"
  2606. set x {}
  2607. lappend x [.b.c index $t @[expr $ax*0],0]
  2608. lappend x [.b.c index $t @[expr $ax*1],0]
  2609. lappend x [.b.c index $t @[expr $ax*2],0]
  2610. lappend x [.b.c index $t @[expr $ax*3],0]
  2611.  
  2612. ---- Result was:
  2613. 0 2 3 3
  2614. ---- Result should have been (exact matching):
  2615. 0 1 1 2
  2616. ==== unixfont-9.1 FAILED
  2617.  
  2618.  
  2619.  
  2620. ==== unixfont-9.2 GetControlCharSubst procedure: 4 chars subst FAILED
  2621. ==== Contents of test case:
  2622.  
  2623. .b.c dchars $t 0 end
  2624. .b.c insert $t 0 "0\0010"
  2625. set x {}
  2626. lappend x [.b.c index $t @[expr $ax*0],0]
  2627. lappend x [.b.c index $t @[expr $ax*1],0]
  2628. lappend x [.b.c index $t @[expr $ax*2],0]
  2629. lappend x [.b.c index $t @[expr $ax*3],0]
  2630. lappend x [.b.c index $t @[expr $ax*4],0]
  2631. lappend x [.b.c index $t @[expr $ax*5],0]
  2632.  
  2633. ---- Result was:
  2634. 0 2 3 3 3 3
  2635. ---- Result should have been (exact matching):
  2636. 0 1 1 1 1 2
  2637. ==== unixfont-9.2 FAILED
  2638.  
  2639. unixMenu.test
  2640. unixSelect.test
  2641. unixWm.test
  2642.  
  2643.  
  2644. ==== unixWm-40.2 Tk_SetGrid procedure, turning on grid when dimensions already set FAILED
  2645. ==== Contents of test case:
  2646.  
  2647. destroy .t
  2648. toplevel .t
  2649. wm geometry .t 200x100+0+0
  2650. listbox .t.l -height 20 -width 20
  2651. pack .t.l -fill both -expand 1
  2652. update
  2653. .t.l configure -setgrid 1
  2654. update
  2655. wm geometry .t
  2656.  
  2657. ---- Result was:
  2658. 24x6+0+0
  2659. ---- Result should have been (exact matching):
  2660. 20x20+0+0
  2661. ==== unixWm-40.2 FAILED
  2662.  
  2663.  
  2664.  
  2665. ==== unixWm-50.1 Tk_CoordsToWindow procedure, finding a toplevel, x-coords FAILED
  2666. ==== Contents of test case:
  2667.  
  2668. deleteWindows
  2669. toplevel .t -width 300 -height 400 -bg green
  2670. wm geom .t +40+0
  2671. tkwait visibility .t
  2672. toplevel .t2 -width 100 -height 80 -bg red
  2673. wm geom .t2 +140+200
  2674. tkwait visibility .t2
  2675. raise .t2
  2676. set x [winfo rootx .t]
  2677. set y [winfo rooty .t]
  2678. 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 + 199] [expr $y + 250]] [winfo containing [expr $x + 200] [expr $y + 250]] [winfo containing [expr $x + 220] [expr $y + 250]]
  2679.  
  2680. ---- Result was:
  2681. {} {} .t .t .t .t .t .t
  2682. ---- Result should have been (exact matching):
  2683. {} {} .t {} .t2 .t2 {} .t
  2684. ==== unixWm-50.1 FAILED
  2685.  
  2686.  
  2687.  
  2688. ==== unixWm-50.2 Tk_CoordsToWindow procedure, finding a toplevel, y-coords and overrideredirect FAILED
  2689. ==== Contents of test case:
  2690.  
  2691. deleteWindows
  2692. toplevel .t -width 300 -height 400 -bg yellow
  2693. wm geom .t +0+50
  2694. tkwait visibility .t
  2695. toplevel .t2 -width 100 -height 80 -bg blue
  2696. wm overrideredirect .t2 1
  2697. wm geom .t2 +100+200
  2698. tkwait visibility .t2
  2699. raise .t2
  2700. set x [winfo rootx .t]
  2701. set y [winfo rooty .t]
  2702. set y2 [winfo rooty .t2]
  2703. list [winfo containing [expr $x +150] 10] [winfo containing [expr $x +150] [expr $y - 1]] [winfo containing [expr $x +150] $y] [winfo containing [expr $x +150] [expr $y2 - 1]] [winfo containing [expr $x +150] $y2] [winfo containing [expr $x +150] [expr $y2 + 79]] [winfo containing [expr $x +150] [expr $y2 + 80]] [winfo containing [expr $x +150] [expr $y + 450]]
  2704.  
  2705. ---- Result was:
  2706. {} {} {} {} .t2 .t2 {} {}
  2707. ---- Result should have been (exact matching):
  2708. {} {} .t .t .t2 .t2 .t {}
  2709. ==== unixWm-50.2 FAILED
  2710.  
  2711.  
  2712.  
  2713. ==== unixWm-50.3 Tk_CoordsToWindow procedure, finding a toplevel with embedding FAILED
  2714. ==== Contents of test case:
  2715.  
  2716. dobg "
  2717. wm withdraw .
  2718. toplevel .x -width 100 -height 80 -use [winfo id .t.f] -bg yellow
  2719. tkwait visibility .x"
  2720. set result [dobg {
  2721. set x [winfo rootx .x]
  2722. set y [winfo rooty .x]
  2723. list [winfo containing [expr $x - 1] [expr $y + 50]] [winfo containing $x [expr $y +50]]
  2724. }]
  2725. set x [winfo rootx .t]
  2726. set y [winfo rooty .t]
  2727. lappend result [winfo containing [expr $x + 200] [expr $y + 49]] [winfo containing [expr $x + 200] [expr $y +50]]
  2728.  
  2729. ---- Result was:
  2730. {} {} {} {}
  2731. ---- Result should have been (exact matching):
  2732. {} .x .t .t.f
  2733. ==== unixWm-50.3 FAILED
  2734.  
  2735.  
  2736.  
  2737. ==== unixWm-50.4 Tk_CoordsToWindow procedure, window in other application FAILED
  2738. ==== Contents of test case:
  2739.  
  2740. destroy .t
  2741. catch {interp delete slave}
  2742. toplevel .t -width 200 -height 200 -bg green
  2743. wm geometry .t +0+0
  2744. tkwait visibility .t
  2745. interp create slave
  2746. load {} Tk slave
  2747. slave eval {wm geometry . 200x200+0+0; tkwait visibility .}
  2748. set result [list [winfo containing 100 100] [slave eval {winfo containing 100 100}]]
  2749. interp delete slave
  2750. set result
  2751.  
  2752. ---- Result was:
  2753. .t {}
  2754. ---- Result should have been (exact matching):
  2755. {} .
  2756. ==== unixWm-50.4 FAILED
  2757.  
  2758.  
  2759.  
  2760. ==== unixWm-50.5 Tk_CoordsToWindow procedure, handling menubars FAILED
  2761. ==== Contents of test case:
  2762.  
  2763. deleteWindows
  2764. toplevel .t -width 300 -height 400 -bd 2 -relief raised
  2765. frame .t.f -width 150 -height 120 -bg green
  2766. place .t.f -x 10 -y 150
  2767. wm geom .t +0+50
  2768. frame .t.menu -width 100 -height 30 -bd 2 -relief raised
  2769. frame .t.menu.f -width 40 -height 20 -bg purple
  2770. place .t.menu.f -x 30 -y 10
  2771. testmenubar window .t .t.menu
  2772. tkwait visibility .t.menu
  2773. update
  2774. set x [winfo rootx .t]
  2775. set y [winfo rooty .t]
  2776. list [winfo containing $x [expr $y - 31]] [winfo containing $x [expr $y - 30]] [winfo containing [expr $x + 50] [expr $y - 19]] [winfo containing [expr $x + 50] [expr $y - 18]] [winfo containing [expr $x + 50] $y] [winfo containing [expr $x + 11] [expr $y + 152]] [winfo containing [expr $x + 12] [expr $y + 152]]
  2777.  
  2778. ---- Result was:
  2779. {} {} {} {} {} {} {}
  2780. ---- Result should have been (exact matching):
  2781. {} .t.menu .t.menu .t.menu.f .t .t .t.f
  2782. ==== unixWm-50.5 FAILED
  2783.  
  2784.  
  2785.  
  2786. ==== unixWm-50.6 Tk_CoordsToWindow procedure, embedding within one app. FAILED
  2787. ==== Contents of test case:
  2788.  
  2789. deleteWindows
  2790. toplevel .t -width 300 -height 400 -bg orange
  2791. wm geom .t +0+50
  2792. frame .t.f -container 1
  2793. place .t.f -x 150 -y 50
  2794. tkwait visibility .t.f
  2795. toplevel .t2 -width 100 -height 80 -bg green -use [winfo id .t.f]
  2796. tkwait visibility .t2
  2797. update
  2798. set x [winfo rootx .t]
  2799. set y [winfo rooty .t]
  2800. list [winfo containing [expr $x +149] [expr $y + 80]] [winfo containing [expr $x +150] [expr $y +80]] [winfo containing [expr $x +249] [expr $y +80]] [winfo containing [expr $x +250] [expr $y +80]]
  2801.  
  2802. ---- Result was:
  2803. {} {} {} {}
  2804. ---- Result should have been (exact matching):
  2805. .t .t2 .t2 .t
  2806. ==== unixWm-50.6 FAILED
  2807.  
  2808.  
  2809.  
  2810. ==== unixWm-50.7 Tk_CoordsToWindow procedure, more basics FAILED
  2811. ==== Contents of test case:
  2812.  
  2813. destroy .t
  2814. toplevel .t -width 300 -height 400 -bg green
  2815. wm geom .t +0+0
  2816. frame .t.f -width 100 -height 200 -bd 2 -relief raised
  2817. place .t.f -x 100 -y 100
  2818. frame .t.f.f -width 100 -height 200 -bd 2 -relief raised
  2819. place .t.f.f -x 0 -y 100
  2820. tkwait visibility .t.f.f
  2821. set x [expr [winfo rootx .t] + 150]
  2822. set y [winfo rooty .t]
  2823. list [winfo containing $x [expr $y + 50]] [winfo containing $x [expr $y + 150]] [winfo containing $x [expr $y + 250]] [winfo containing $x [expr $y + 350]] [winfo containing $x [expr $y + 450]]
  2824.  
  2825. ---- Result was:
  2826. {} {} {} {} {}
  2827. ---- Result should have been (exact matching):
  2828. .t .t.f .t.f.f .t {}
  2829. ==== unixWm-50.7 FAILED
  2830.  
  2831.  
  2832.  
  2833. ==== unixWm-50.8 Tk_CoordsToWindow procedure, more basics FAILED
  2834. ==== Contents of test case:
  2835.  
  2836. destroy .t
  2837. toplevel .t -width 400 -height 300 -bg green
  2838. wm geom .t +0+0
  2839. frame .t.f -width 200 -height 100 -bd 2 -relief raised
  2840. place .t.f -x 100 -y 100
  2841. frame .t.f.f -width 200 -height 100 -bd 2 -relief raised
  2842. place .t.f.f -x 100 -y 0
  2843. update
  2844. set x [winfo rooty .t]
  2845. set y [expr [winfo rooty .t] + 150]
  2846. list [winfo containing [expr $x + 50] $y] [winfo containing [expr $x + 150] $y] [winfo containing [expr $x + 250] $y] [winfo containing [expr $x + 350] $y] [winfo containing [expr $x + 450] $y]
  2847.  
  2848. ---- Result was:
  2849. {} {} {} {} {}
  2850. ---- Result should have been (exact matching):
  2851. .t .t.f .t.f.f .t {}
  2852. ==== unixWm-50.8 FAILED
  2853.  
  2854.  
  2855.  
  2856. ==== unixWm-50.9 Tk_CoordsToWindow procedure, unmapped windows FAILED
  2857. ==== Contents of test case:
  2858.  
  2859. destroy .t
  2860. destroy .t2
  2861. sleep 500 ;# Give window manager time to catch up.
  2862. toplevel .t -width 200 -height 200 -bg green
  2863. wm geometry .t +0+0
  2864. tkwait visibility .t
  2865. toplevel .t2 -width 200 -height 200 -bg red
  2866. wm geometry .t2 +0+0
  2867. tkwait visibility .t2
  2868. set result [list [winfo containing 100 100]]
  2869. wm iconify .t2
  2870. lappend result [winfo containing 100 100]
  2871.  
  2872. ---- Result was:
  2873. .t .t
  2874. ---- Result should have been (exact matching):
  2875. .t2 .t
  2876. ==== unixWm-50.9 FAILED
  2877.  
  2878.  
  2879.  
  2880. ==== unixWm-50.10 Tk_CoordsToWindow procedure, unmapped windows FAILED
  2881. ==== Contents of test case:
  2882.  
  2883. destroy .t
  2884. toplevel .t -width 200 -height 200 -bg green
  2885. wm geometry .t +0+0
  2886. frame .t.f -width 150 -height 150 -bd 2 -relief raised
  2887. place .t.f -x 25 -y 25
  2888. tkwait visibility .t.f
  2889. set result [list [winfo containing 100 100]]
  2890. place forget .t.f
  2891. update
  2892. lappend result [winfo containing 100 100]
  2893.  
  2894. ---- Result was:
  2895. {} {}
  2896. ---- Result should have been (exact matching):
  2897. .t.f .t
  2898. ==== unixWm-50.10 FAILED
  2899.  
  2900.  
  2901.  
  2902. ==== unixWm-51.6 TkWmRestackToplevel procedure, window to be stacked isn't mapped FAILED
  2903. ==== Contents of test case:
  2904.  
  2905. destroy .t
  2906. toplevel .t -width 200 -height 200 -bg green
  2907. wm geometry .t +0+0
  2908. tkwait visibility .t
  2909. destroy .t2
  2910. toplevel .t2 -width 200 -height 200 -bg red
  2911. wm geometry .t2 +0+0
  2912. winfo containing 100 100
  2913.  
  2914. ---- Result was:
  2915. .
  2916. ---- Result should have been (exact matching):
  2917. .t
  2918. ==== unixWm-51.6 FAILED
  2919.  
  2920.  
  2921.  
  2922. ==== unixWm-51.7 TkWmRestackToplevel procedure, other window isn't mapped FAILED
  2923. ==== Contents of test case:
  2924.  
  2925. foreach w {.t .t2 .t3} {
  2926. destroy $w
  2927. toplevel $w -width 200 -height 200 -bg green
  2928. wm geometry $w +0+0
  2929. }
  2930. raise .t .t2
  2931. sleep 2000
  2932. update
  2933. set result [list [winfo containing 100 100]]
  2934. lower .t3
  2935. sleep 2000
  2936. lappend result [winfo containing 100 100]
  2937.  
  2938. ---- Result was:
  2939. .t3 .t2
  2940. ---- Result should have been (exact matching):
  2941. .t3 .t
  2942. ==== unixWm-51.7 FAILED
  2943.  
  2944. util.test
  2945.  
  2946.  
  2947. ==== util-1.3 Tk_GetScrollInfo procedure FAILED
  2948. ==== Contents of test case:
  2949.  
  2950. .l yview 0
  2951. .l yview moveto .5
  2952. .l yview
  2953.  
  2954. ---- Result was:
  2955. 0.5 0.55
  2956. ---- Result should have been (exact matching):
  2957. 0.5 0.75
  2958. ==== util-1.3 FAILED
  2959.  
  2960.  
  2961.  
  2962. ==== util-1.7 Tk_GetScrollInfo procedure FAILED
  2963. ==== Contents of test case:
  2964.  
  2965. .l yview 0
  2966. .l yview scroll 2 pages
  2967. .l nearest 0
  2968.  
  2969. ---- Result was:
  2970. 2
  2971. ---- Result should have been (exact matching):
  2972. 6
  2973. ==== util-1.7 FAILED
  2974.  
  2975.  
  2976.  
  2977. ==== util-1.8 Tk_GetScrollInfo procedure FAILED
  2978. ==== Contents of test case:
  2979.  
  2980. .l yview 15
  2981. .l yview scroll -2 pages
  2982. .l nearest 0
  2983.  
  2984. ---- Result was:
  2985. 13
  2986. ---- Result should have been (exact matching):
  2987. 9
  2988. ==== util-1.8 FAILED
  2989.  
  2990. visual.test
  2991. visual_bb.test
  2992. winButton.test
  2993. winClipboard.test
  2994. winDialog.test
  2995. winFont.test
  2996. winMenu.test
  2997. winMsgbox.test
  2998. winSend.test
  2999. winWm.test
  3000. window.test
  3001. winfo.test
  3002.  
  3003.  
  3004. ==== winfo-4.5 "winfo containing" command FAILED
  3005. ==== Contents of test case:
  3006.  
  3007. raise .t
  3008. winfo containing [winfo rootx .t.f] [winfo rooty .t.f]
  3009.  
  3010. ---- Result was:
  3011. .
  3012. ---- Result should have been (exact matching):
  3013. .t.f
  3014. ==== winfo-4.5 FAILED
  3015.  
  3016. wm.test
  3017.  
  3018.  
  3019. ==== wm-stackorder-2.1 stacking order FAILED
  3020. ==== Contents of test case:
  3021.  
  3022. toplevel .t ; update
  3023. wm stackorder .
  3024.  
  3025. ---- Result was:
  3026. .t .
  3027. ---- Result should have been (exact matching):
  3028. . .t
  3029. ==== wm-stackorder-2.1 FAILED
  3030.  
  3031.  
  3032.  
  3033. ==== wm-stackorder-2.2 stacking order FAILED
  3034. ==== Contents of test case:
  3035.  
  3036. toplevel .t ; update
  3037. raise .
  3038. raiseDelay
  3039. wm stackorder .
  3040.  
  3041. ---- Result was:
  3042. . .t
  3043. ---- Result should have been (exact matching):
  3044. .t .
  3045. ==== wm-stackorder-2.2 FAILED
  3046.  
  3047.  
  3048.  
  3049. ==== wm-stackorder-2.3 stacking order FAILED
  3050. ==== Contents of test case:
  3051.  
  3052. toplevel .t ; update
  3053. toplevel .t2 ; update
  3054. raise .
  3055. raise .t2
  3056. raiseDelay
  3057. wm stackorder .
  3058.  
  3059. ---- Result was:
  3060. . .t .t2
  3061. ---- Result should have been (exact matching):
  3062. .t . .t2
  3063. ==== wm-stackorder-2.3 FAILED
  3064.  
  3065.  
  3066.  
  3067. ==== wm-stackorder-2.4 stacking order FAILED
  3068. ==== Contents of test case:
  3069.  
  3070. toplevel .t ; update
  3071. toplevel .t2 ; update
  3072. raise .
  3073. lower .t2
  3074. raiseDelay
  3075. wm stackorder .
  3076.  
  3077. ---- Result was:
  3078. .t2 . .t
  3079. ---- Result should have been (exact matching):
  3080. .t2 .t .
  3081. ==== wm-stackorder-2.4 FAILED
  3082.  
  3083.  
  3084.  
  3085. ==== wm-stackorder-2.5 stacking order FAILED
  3086. ==== Contents of test case:
  3087.  
  3088. toplevel .parent ; update
  3089. destroy .parent.child1
  3090. toplevel .parent.child1 ; update
  3091. destroy .parent.child2
  3092. toplevel .parent.child2 ; update
  3093. destroy .extra
  3094. toplevel .extra ; update
  3095. raise .parent
  3096. lower .parent.child2
  3097. raiseDelay
  3098. wm stackorder .parent
  3099.  
  3100. ---- Result was:
  3101. .parent.child2 .parent .parent.child1
  3102. ---- Result should have been (exact matching):
  3103. .parent.child2 .parent.child1 .parent
  3104. ==== wm-stackorder-2.5 FAILED
  3105.  
  3106.  
  3107.  
  3108. ==== wm-stackorder-2.6 stacking order: non-toplevel widgets ignored FAILED
  3109. ==== Contents of test case:
  3110.  
  3111. toplevel .t1
  3112. button .t1.b
  3113. pack .t1.b
  3114. update
  3115. wm stackorder .
  3116.  
  3117. ---- Result was:
  3118. .t1 .
  3119. ---- Result should have been (exact matching):
  3120. . .t1
  3121. ==== wm-stackorder-2.6 FAILED
  3122.  
  3123.  
  3124.  
  3125. ==== wm-stackorder-3.6 unmapped toplevel FAILED
  3126. ==== Contents of test case:
  3127.  
  3128. toplevel .t1 ; update
  3129. toplevel .t1.t2 ; update
  3130. toplevel .t1.t2.t3 ; update
  3131. wm withdraw .t1.t2
  3132. wm stackorder .t1
  3133.  
  3134. ---- Result was:
  3135. .t1.t2.t3 .t1
  3136. ---- Result should have been (exact matching):
  3137. .t1 .t1.t2.t3
  3138. ==== wm-stackorder-3.6 FAILED
  3139.  
  3140.  
  3141.  
  3142. ==== wm-stackorder-4.1 wm stackorder isabove|isbelow FAILED
  3143. ==== Contents of test case:
  3144.  
  3145. toplevel .t ; update
  3146. raise .t
  3147. wm stackorder . isabove .t
  3148.  
  3149. ---- Result was:
  3150. 1
  3151. ---- Result should have been (exact matching):
  3152. 0
  3153. ==== wm-stackorder-4.1 FAILED
  3154.  
  3155.  
  3156.  
  3157. ==== wm-stackorder-4.2 wm stackorder isabove|isbelow FAILED
  3158. ==== Contents of test case:
  3159.  
  3160. toplevel .t ; update
  3161. raise .t
  3162. wm stackorder . isbelow .t
  3163.  
  3164. ---- Result was:
  3165. 0
  3166. ---- Result should have been (exact matching):
  3167. 1
  3168. ==== wm-stackorder-4.2 FAILED
  3169.  
  3170.  
  3171.  
  3172. ==== wm-stackorder-4.3 wm stackorder isabove|isbelow FAILED
  3173. ==== Contents of test case:
  3174.  
  3175. toplevel .t ; update
  3176. raise .
  3177. raiseDelay
  3178. wm stackorder .t isa .
  3179.  
  3180. ---- Result was:
  3181. 1
  3182. ---- Result should have been (exact matching):
  3183. 0
  3184. ==== wm-stackorder-4.3 FAILED
  3185.  
  3186.  
  3187.  
  3188. ==== wm-stackorder-4.4 wm stackorder isabove|isbelow FAILED
  3189. ==== Contents of test case:
  3190.  
  3191. toplevel .t ; update
  3192. raise .
  3193. raiseDelay
  3194. wm stackorder .t isb .
  3195.  
  3196. ---- Result was:
  3197. 0
  3198. ---- Result should have been (exact matching):
  3199. 1
  3200. ==== wm-stackorder-4.4 FAILED
  3201.  
  3202.  
  3203.  
  3204. ==== wm-stackorder-5.1 a menu is not a toplevel FAILED
  3205. ==== Contents of test case:
  3206.  
  3207. toplevel .t
  3208. menu .t.m -type menubar
  3209. .t.m add cascade -label "File"
  3210. .t configure -menu .t.m
  3211. update
  3212. raise .
  3213. raiseDelay
  3214. wm stackorder .
  3215.  
  3216. ---- Result was:
  3217. . .t
  3218. ---- Result should have been (exact matching):
  3219. .t .
  3220. ==== wm-stackorder-5.1 FAILED
  3221.  
  3222.  
  3223.  
  3224. ==== wm-stackorder-6.1 An embedded toplevel does not appear in the stacking order FAILED
  3225. ==== Contents of test case:
  3226.  
  3227. toplevel .real -container 1
  3228. toplevel .embd -bg blue -use [winfo id .real]
  3229. update
  3230. wm stackorder .
  3231.  
  3232. ---- Result was:
  3233. .real .
  3234. ---- Result should have been (exact matching):
  3235. . .real
  3236. ==== wm-stackorder-6.1 FAILED
  3237.  
  3238. xmfbox.test
  3239.  
  3240. Tests ended at Fri Mar 28 14:04:36 ART 2008
  3241. all.tcl: Total 8768 Passed 8021 Skipped 598 Failed 149
  3242. Sourced 87 Test Files.
  3243. Files with failing tests: clipboard.test focus.test font.test listbox.test panedwindow.test raise.test scrollbar.test select.test spinbox.test textDisp.test textImage.test unixFont.test unixWm.test util.test winfo.test wm.test
  3244. Number of tests skipped for each constraint:
  3245. 14 altDisplay
  3246. 3 aqua
  3247. 16 colorsFree
  3248. 3 colorsLeftover
  3249. 21 defaultPseudocolor8
  3250. 5 emptyTest
  3251. 1 hasArial
  3252. 1 hasCourierNew
  3253. 1 hasTimesNew
  3254. 5 haveOtherVisual
  3255. 1 havePseudocolorVisual
  3256. 6 knownBug
  3257. 1 memory
  3258. 104 nonPortable
  3259. 37 nt
  3260. 5 pseudocolor8
  3261. 11 testmetrics
  3262. 1 userInteraction
  3263. 311 win
  3264. 51 winSend
  3265. LD_LIBRARY_PATH="`pwd`:/home/emiliano/tcl_sources/tcl/unix:${LD_LIBRARY_PATH}"; export LD_LIBRARY_PATH; TCL_LIBRARY=/home/emiliano/tcl_sources/tcl/library; export TCL_LIBRARY; TK_LIBRARY=/home/emiliano/tcl_sources/tk/library; export TK_LIBRARY; ./tktest /home/emiliano/tcl_sources/tk/unix/../tests/ttk/all.tcl -geometry +0+0
  3266. Tests running in interp: /home/emiliano/tcl_sources/tk/unix/tktest
  3267. Tests located in: /home/emiliano/tcl_sources/tk/tests/ttk
  3268. Tests running in: /home/emiliano/tcl_sources/tk/unix
  3269. Temporary files stored in /home/emiliano/tcl_sources/tk/unix
  3270. Test files sourced into current interpreter
  3271. Running tests that match: *
  3272. Skipping test files that match: l.*.test
  3273. Only running test files that match: *.test
  3274. Tests began at Fri Mar 28 14:04:36 ART 2008
  3275. combobox.test
  3276. entry.test
  3277.  
  3278.  
  3279. ==== entry-3.2 xview FAILED
  3280. ==== Contents of test case:
  3281.  
  3282. .e delete 0 end;
  3283. .e insert end [string repeat "0" 40]
  3284. update idletasks
  3285. set result [.e xview]
  3286.  
  3287. ---- Result was:
  3288. 0 0.35
  3289. ---- Result should have been (exact matching):
  3290. 0 0.5
  3291. ==== entry-3.2 FAILED
  3292.  
  3293. image.test
  3294. labelframe.test
  3295.  
  3296.  
  3297. ==== labelframe-4.4 Re-manage nonchild slave FAILED
  3298. ==== Contents of test case:
  3299.  
  3300. pack .cb -side right
  3301. list [update; winfo viewable .cb] [winfo manager .cb] [.lf cget -labelwidget]
  3302.  
  3303. ---- Result was:
  3304. 0 pack {}
  3305. ---- Result should have been (exact matching):
  3306. 1 pack {}
  3307. ==== labelframe-4.4 FAILED
  3308.  
  3309. layout.test
  3310. notebook.test
  3311. panedwindow.test
  3312.  
  3313.  
  3314. ==== panedwindow-2.1 ... FAILED
  3315. ==== Contents of test case:
  3316.  
  3317. ttk::panedwindow .pw -orient horizontal
  3318.  
  3319. .pw add [listbox .pw.l1]
  3320. .pw add [listbox .pw.l2]
  3321. .pw add [listbox .pw.l3]
  3322. .pw add [listbox .pw.l4]
  3323.  
  3324. pack .pw -expand true -fill both
  3325. update
  3326. set w1 [winfo width .]
  3327.  
  3328. # This should make the window shrink:
  3329. destroy .pw.l2
  3330.  
  3331. update
  3332. set w2 [winfo width .]
  3333.  
  3334. expr {$w2 < $w1}
  3335.  
  3336. ---- Result was:
  3337. 0
  3338. ---- Result should have been (exact matching):
  3339. 1
  3340. ==== panedwindow-2.1 FAILED
  3341.  
  3342. progressbar.test
  3343. scrollbar.test
  3344. treetags.test
  3345. treeview.test
  3346. ttk.test
  3347. validate.test
  3348.  
  3349. Tests ended at Fri Mar 28 14:04:40 ART 2008
  3350. all.tcl: Total 375 Passed 363 Skipped 9 Failed 3
  3351. Sourced 13 Test Files.
  3352. Files with failing tests: entry.test labelframe.test panedwindow.test
  3353. Number of tests skipped for each constraint:
  3354. 2 NA
  3355. 4 coreEntry
  3356. 3 coreScrollbar
  3357. make: exec() failed (No such file or directory)
  3358. *** Error code 1
  3359.  
  3360. Stop.
  3361. make: stopped in /home/emiliano/tcl_sources/tk/unix
  3362.