1 files changed, 4 insertions, 16 deletions

diff --git a/tests/place.test b/tests/place.test
index ddfa64c..7262888 100644
--- a/tests/place.test
+++ b/tests/place.test
@@ -17,11 +17,11 @@ testConstraint memory [llength [info commands memory]]
 # few of the features are tested.
 
 # Widgets used in tests 1.* - 8.*
-toplevel .t -width 300 -height 200 -bd 0
+toplevel .t -width 300 -height 200 -borderwidth 0
 wm geom .t +0+0
-frame .t.f -width 154 -height 84 -bd 2 -relief raised
+frame .t.f -width 154 -height 84 -borderwidth 2 -relief raised
 place .t.f -x 48 -y 38
-frame .t.f2 -width 30 -height 60 -bd 2 -relief raised
+frame .t.f2 -width 30 -height 60 -borderwidth 2 -relief raised
 update
 
 test place-1.1 {Tk_PlaceCmd procedure, "info" option} -setup {
@@ -52,7 +52,6 @@ test place-1.3 {Tk_PlaceCmd procedure, "info" option} -setup {
     destroy ".t.a.b"
 } -result {-in {.t.a b} -x 1 -relx 0.2 -y 2 -rely 0.2 -width {} -relwidth 0.3 -height 4 -relheight {} -anchor w -bordermode ignore}
 
-
 test place-2.1 {ConfigureSlave procedure, -height option} -body {
     place .t.f2 -height abcd
 } -returnCodes error -result {bad screen distance "abcd"}
@@ -73,7 +72,6 @@ test place-2.3 {ConfigureSlave procedure, -height option} -setup {
     winfo height .t.f2
 } -result {60}
 
-
 test place-3.1 {ConfigureSlave procedure, -relheight option} -body {
     place .t.f2 -relheight abcd
 } -returnCodes error -result {expected floating-point number but got "abcd"}
@@ -94,7 +92,6 @@ test place-3.3 {ConfigureSlave procedure, -relheight option} -setup {
     winfo height .t.f2
 } -result {60}
 
-
 test place-4.1 {ConfigureSlave procedure, bad -in options} -setup {
     place forget .t.f2
 } -body {
@@ -119,7 +116,6 @@ test place-4.4 {ConfigureSlave procedure, bad -in option} -setup {
     place .t.f2 -in .
 } -returnCodes error -result {can't place .t.f2 relative to .}
 
-
 test place-5.1 {ConfigureSlave procedure, -relwidth option} -body {
     place .t.f2 -relwidth abcd
 } -returnCodes error -result {expected floating-point number but got "abcd"}
@@ -160,7 +156,6 @@ test place-6.3 {ConfigureSlave procedure, -width option} -setup {
     winfo width .t.f2
 } -result {30}
 
-
 test place-7.1 {ReconfigurePlacement procedure, computing position} -setup {
     place forget .t.f2
 } -body {
@@ -199,7 +194,7 @@ test place-7.5 {ReconfigurePlacement procedure, position rounding} -setup {
 test place-7.6 {ReconfigurePlacement procedure, position rounding} -setup {
     destroy .t.f3
 } -body {
-    frame .t.f3 -width 100 -height 100 -bg #f00000 -bd 0
+    frame .t.f3 -width 100 -height 100 -background red -borderwidth 0
     place .t.f3 -x 0 -y 0
     raise .t.f2
     place forget .t.f2
@@ -239,7 +234,6 @@ test place-7.10 {ReconfigurePlacement procedure, computing size} -setup {
     list [winfo width .t.f2] [winfo height .t.f2]
 } -result {30 60}
 
-
 test place-8.1 {MasterStructureProc, mapping and unmapping slaves} -setup {
     place forget .t.f2
     place forget .t.f
@@ -277,7 +271,6 @@ test place-8.2 {MasterStructureProc, mapping and unmapping slaves} -setup {
 } -result {1 0 42 32 0 1}
 destroy .t
 
-
 test place-9.1 {PlaceObjCmd} -body {
     place
 } -returnCodes error -result {wrong # args: should be "place option|pathName args"}
@@ -363,7 +356,6 @@ test place-9.12 {PlaceObjCmd, slaves errors} -setup {
     destroy .foo
 } -returnCodes error -result {wrong # args: should be "place slaves pathName"}
 
-
 test place-10.1 {ConfigureSlave} -setup {
     destroy .foo
 } -body {
@@ -397,7 +389,6 @@ test place-10.4 {ConfigureSlave} -setup {
     destroy .foo
 } -returnCodes error -result {value for "-y" missing}
     
-
 test place-11.1 {PlaceObjCmd, slaves command} -setup {
     destroy .foo
 } -body {
@@ -417,7 +408,6 @@ test place-11.2 {PlaceObjCmd, slaves command} -setup {
     destroy .foo .bar
 } -result [list .bar]
 
-
 test place-12.1 {PlaceObjCmd, forget command} -setup {
     destroy .foo
 } -body {
@@ -432,7 +422,6 @@ test place-12.1 {PlaceObjCmd, forget command} -setup {
     destroy .foo
 } -result {1 0}
 
-
 test place-13.1 {test respect for internalborder} -setup {
     destroy .pack
 } -body {
@@ -452,7 +441,6 @@ test place-13.1 {test respect for internalborder} -setup {
     destroy .pack
 } -result {196x188+2+10 177x186+5+7}
 
-
 test place-14.1 {memory leak testing} -constraints memory -setup {
     destroy .f
     proc getbytes {} {