diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2004-06-06 11:28:13 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2004-06-06 11:28:13 (GMT) |
| commit | 6942d1174b14dc8d29cb5be46707909e718e89c7 (patch) | |
| tree | d2f35138ea70cadaa4597513ef9e217b990b561f /tests/frame.test | |
| parent | e714b0e05289940aa0261f2a715125eba685e7db (diff) | |
| download | tk-6942d1174b14dc8d29cb5be46707909e718e89c7.zip tk-6942d1174b14dc8d29cb5be46707909e718e89c7.tar.gz tk-6942d1174b14dc8d29cb5be46707909e718e89c7.tar.bz2 | |
Fix frame-2.8 for ![info exists env(DISPLAY)]
Diffstat (limited to 'tests/frame.test')
| -rw-r--r-- | tests/frame.test | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/frame.test b/tests/frame.test index 96ce0a4..75e77c8 100644 --- a/tests/frame.test +++ b/tests/frame.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: frame.test,v 1.11 2004/06/04 19:55:31 dgp Exp $ +# RCS: @(#) $Id: frame.test,v 1.12 2004/06/06 11:28:14 patthoyts Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -187,9 +187,10 @@ test frame-2.8 {toplevel configuration options} haveDISPLAY { catch {destroy .t} toplevel .t -width 200 -height 100 -screen $env(DISPLAY) wm geometry .t +0+0 - list [.t configure -screen] \ - [catch {.t configure -screen another} msg] $msg -} [list [list -screen screen Screen {} $env(DISPLAY)] 1 {can't modify -screen option after widget is created}] + set cfg [string compare [.t configure -screen] \ + "-screen screen Screen {} $env(DISPLAY)"] + list $cfg [catch {.t configure -screen another} msg] $msg +} {0 1 {can't modify -screen option after widget is created}} test frame-2.9 {toplevel configuration options} { catch {destroy .t} list [catch {toplevel .t -width 200 -height 100 -screen bogus} msg] $msg |