diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/event.test | 5 | ||||
-rw-r--r-- | tests/text.test | 20 | ||||
-rw-r--r-- | tests/ttk/treeview.test | 7 | ||||
-rw-r--r-- | tests/unixWm.test | 10 | ||||
-rw-r--r-- | tests/wm.test | 6 |
5 files changed, 40 insertions, 8 deletions
diff --git a/tests/event.test b/tests/event.test index f08bac0..4cbd529 100644 --- a/tests/event.test +++ b/tests/event.test @@ -856,7 +856,9 @@ test event-9.1 {enter . window by destroying a toplevel - bug b1d115fa60} -setup _pause 200 toplevel .top2 -width 200 -height 200 wm geometry .top2 +[expr {[winfo rootx .]+50}]+[expr {[winfo rooty .]+50}] + update idletasks wm deiconify .top2 + update idletasks raise .top2 _pause 400 event generate .top2 <Motion> -warp 1 -x 50 -y 50 @@ -864,6 +866,7 @@ test event-9.1 {enter . window by destroying a toplevel - bug b1d115fa60} -setup bind . <Enter> {lappend res %W} set res [list ] destroy .top2 + update idletasks _pause 200 set res } -cleanup { @@ -884,7 +887,9 @@ test event-9.2 {enter toplevel window by destroying a toplevel - bug b1d115fa60} _pause 200 toplevel .top2 -width 200 -height 200 wm geometry .top2 +[expr {[winfo rootx .top1]+50}]+[expr {[winfo rooty .top1]+50}] + update idletasks wm deiconify .top2 + update idletasks raise .top2 _pause 400 event generate .top2 <Motion> -warp 1 -x 50 -y 50 diff --git a/tests/text.test b/tests/text.test index 3f03418..11d8b57 100644 --- a/tests/text.test +++ b/tests/text.test @@ -6674,7 +6674,7 @@ test text-27.15b {<<Selection>> virtual event on <<PasteSelection>> inside widge bind .t <<Selection>> "set ::retval <<Selection>>_fired" update set ::retval no_<<Selection>>_event_fired - event generate .t <<PasteSelection>> -x 15 -y 3 + event generate .t <<PasteSelection>> -x 15 -y [lindex [.t dlineinfo 1.0] 1] update set ::retval } -cleanup { @@ -6688,7 +6688,7 @@ test text-27.15c {No <<Selection>> virtual event on <<PasteSelection>> outside w bind .t <<Selection>> "set ::retval <<Selection>>_fired" update set ::retval no_<<Selection>>_event_fired - event generate .t <<PasteSelection>> -x 15 -y 80 + event generate .t <<PasteSelection>> -x 15 -y [lindex [.t dlineinfo 2.0] 1] update set ::retval } -cleanup { @@ -7789,6 +7789,22 @@ test text-37.1 "bug #dd9667635d: text anchor not set" -setup { interp bgerror {} $save unset -nocomplain save ::my_error } -result {} + + +test text-38.1 {Extending selection with mouse going outside the widget - Bug a9cf210a42} -setup { + pack [text .t -width 40 -height 10] + for {set n 1} {$n <= 5} {incr n} { + .t insert end "This is line $i of text\n" + } + update +} -body { + event generate .t <Button-1> -x 50 -y 50 + event generate .t <B1-Motion> -x 50 -y -50 + .t index sel.first +} -cleanup { + destroy .t +} -result {1.0} + # cleanup cleanupTests diff --git a/tests/ttk/treeview.test b/tests/ttk/treeview.test index da25c1c..5f2cc84 100644 --- a/tests/ttk/treeview.test +++ b/tests/ttk/treeview.test @@ -1369,6 +1369,13 @@ test treeview-bc602049ab "treeview with custom background does not change size w image delete tvbg } -result {1} +test treeview-6ee162c3d9 "style configure Treeview -rowheight 0" -setup { + tvSetupWithItems +} -body { + ttk::style configure Treeview -rowheight 0 ; # shall not crash + update +} -result {} + test treeview-column0-leak "Test for leak in tree column" -setup { destroy .ttt set heading [string range _Hej_ 1 3] diff --git a/tests/unixWm.test b/tests/unixWm.test index 17e8bc0..105edf4 100644 --- a/tests/unixWm.test +++ b/tests/unixWm.test @@ -2067,7 +2067,9 @@ test unixWm-51.5 {TkWmRestackToplevel procedure, basic tests} {unix nonPortable} } {.raise1 .raise3} deleteWindows test unixWm-51.6 {TkWmRestackToplevel procedure, window to be stacked isn't mapped} unix { + wm geometry . +300+300 destroy .t + update idletasks toplevel .t -width 200 -height 200 -bg green tkwait visibility .t wm geometry .t +0+0 @@ -2530,17 +2532,17 @@ test unixWm-59.3 {exit processing} unix { # the only thing we can really test here is the syntax. # if {[tk windowingsystem] eq "aqua"} { - set result_60_1 {-alpha 1.0 -fullscreen 0 -modified 0 -notify 0\ - -titlepath {} -topmost 0 -transparent 0\ - -type unsupported} + set match_60_1 glob + set result_60_1 {-alpha 1.0 -appearance auto -buttons {close miniaturize zoom} -fullscreen 0 -isdark [01] -modified 0 -notify 0 -titlepath {} -topmost 0 -transparent 0 -stylemask {titled closable miniaturizable resizable} -class nswindow -tabbingid .t -tabbingmode auto -type unsupported} } else { + set match_60_1 exact set result_60_1 {-alpha 1.0 -fullscreen 0 -topmost 0 -type {} -zoomed 0} } test unixWm-60.1 {wm attributes - test} -constraints unix -body { destroy .t toplevel .t wm attributes .t -} -result $result_60_1 +} -match $match_60_1 -result $result_60_1 test unixWm-60.2 {wm attributes - test} -constraints unix -body { destroy .t diff --git a/tests/wm.test b/tests/wm.test index f3436e1..9d60eb4 100644 --- a/tests/wm.test +++ b/tests/wm.test @@ -204,10 +204,12 @@ test wm-attributes-1.2.3 {usage} -constraints win -returnCodes error -body { test wm-attributes-1.2.4 {usage} -constraints {unix notAqua} -returnCodes error -body { wm attributes . _ } -result {bad attribute "_": must be -alpha, -fullscreen, -topmost, -type, or -zoomed} +if {[tk windowingsystem] eq "aqua"} { + set result_1_2_5 {bad attribute "_": must be -alpha, -appearance, -buttons, -fullscreen, -isdark, -modified, -notify, -titlepath, -topmost, -transparent, -stylemask, -class, -tabbingid, -tabbingmode, or -type} +} else {set result_1_2_5 {bad attribute "_": must be -alpha, -fullscreen, -modified, -notify, -titlepath, -topmost, -transparent, or -type}} test wm-attributes-1.2.5 {usage} -constraints aqua -returnCodes error -body { wm attributes . _ -} -result {bad attribute "_": must be -alpha, -fullscreen, -modified, -notify, -titlepath, -topmost, -transparent, or -type} - +} -result $result_1_2_5 ### wm client ### test wm-client-1.1 {usage} -returnCodes error -body { |