diff options
Diffstat (limited to 'tests/ttk/panedwindow.test')
| -rw-r--r-- | tests/ttk/panedwindow.test | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/ttk/panedwindow.test b/tests/ttk/panedwindow.test index 190e6b5..47764a2 100644 --- a/tests/ttk/panedwindow.test +++ b/tests/ttk/panedwindow.test @@ -1,5 +1,5 @@ # -# $Id: panedwindow.test,v 1.2 2006/11/07 03:45:28 jenglish Exp $ +# $Id: panedwindow.test,v 1.3 2007/06/09 21:45:45 jenglish Exp $ # package require Tk 8.5 @@ -156,10 +156,11 @@ test panedwindow-4.2 "forget forgotten" -body { # proc checkorder {winlist} { set pos -1 + set positions [list] foreach win $winlist { - set nextpos [winfo y $win] + lappend positions [set nextpos [winfo y $win]] if {$nextpos <= $pos} { - error "window $win out of order" + error "window $win out of order ($positions)" } set pos $nextpos } |