"eval destroy" -> "destroy {*}" in testcases/demo's

1 files changed, 42 insertions, 42 deletions

diff --git a/tests/unixEmbed.test b/tests/unixEmbed.test
index 383a5d5..9b39dba 100644
--- a/tests/unixEmbed.test
+++ b/tests/unixEmbed.test
@@ -142,7 +142,7 @@ test unixEmbed-1.5 {TkpUseWindow procedure, creating Container records} -constra
     pack .f1 .f2
     dobg "set w [winfo id .f1]"
     dobg {
-	eval destroy [winfo child .]
+	destroy {*}[winfo children .]
 	toplevel .t -use $w
 	list [testembed] [expr [lindex [lindex [testembed all] 0] 0] - $w]
     }
@@ -162,7 +162,7 @@ test unixEmbed-1.5a {TkpUseWindow procedure, creating Container records} -constr
     pack .f1 .f2
     child alias w winfo id .f1
     child eval {
-        destroy [winfo child .]
+        destroy {*}[winfo children .]
         toplevel .t -use [w]
         list [testembed] [expr {[lindex [lindex [testembed all] 0] 0] - [w]}]
     }
@@ -181,7 +181,7 @@ test unixEmbed-1.6 {TkpUseWindow procedure, creating Container records} -constra
     dobg "set w1 [winfo id .f1]"
     dobg "set w2 [winfo id .f2]"
     dobg {
-	eval destroy [winfo child .]
+	destroy {*}[winfo children .]
 	toplevel .t1 -use $w1
 	toplevel .t2 -use $w2
 	testembed
@@ -203,7 +203,7 @@ test unixEmbed-1.6a {TkpUseWindow procedure, creating Container records} -constr
     child alias w1 winfo id .f1
     child alias w2 winfo id .f2
     child eval {
-        destroy [winfo child .]
+        destroy {*}[winfo children .]
         toplevel .t1 -use [w1]
         toplevel .t2 -use [w2]
         testembed
@@ -240,7 +240,7 @@ test unixEmbed-2.1 {EmbeddedEventProc procedure} -constraints {
     pack .f1
     dobg "set w1 [winfo id .f1]"
     dobg {
-	eval destroy [winfo child .]
+	destroy {*}[winfo children .]
 	toplevel .t1 -use $w1
 	testembed
     }
@@ -264,7 +264,7 @@ test unixEmbed-2.1a {EmbeddedEventProc procedure} -constraints {
     pack .f1
     child alias w1 winfo id .f1
     child eval {
-        destroy [winfo child .]
+        destroy {*}[winfo children .]
         toplevel .t1 -use [w1]
         testembed
     }
@@ -285,7 +285,7 @@ test unixEmbed-2.2 {EmbeddedEventProc procedure} -constraints {
     pack .f1
     dobg "set w1 [winfo id .f1]"
     dobg {
-	eval destroy [winfo child .]
+	destroy {*}[winfo children .]
 	toplevel .t1 -use $w1
 	testembed
 	destroy .t1
@@ -306,7 +306,7 @@ test unixEmbed-2.2a {EmbeddedEventProc procedure} -constraints {
     pack .f1
     child alias w1 winfo id .f1
     child eval {
-        destroy [winfo child .]
+        destroy {*}[winfo children .]
         toplevel .t1 -use [w1]
         testembed
         destroy .t1
@@ -353,7 +353,7 @@ test unixEmbed-3.1 {ContainerEventProc procedure, detect creation} -constraints
     dobg "set w1 [winfo id .f1]"
     set x [testembed]
     dobg {
-	eval destroy [winfo child .]
+	destroy {*}[winfo children .]
 	toplevel .t1 -use $w1
 	wm withdraw .t1
     }
@@ -373,7 +373,7 @@ test unixEmbed-3.1a {ContainerEventProc procedure, detect creation} -constraints
     child alias w1 winfo id .f1
     set x [testembed]
     child eval {
-        destroy [winfo child .]
+        destroy {*}[winfo children .]
         toplevel .t1 -use [w1]
         wm withdraw .t1
     }
@@ -405,7 +405,7 @@ test unixEmbed-3.3 {ContainerEventProc procedure, disallow position changes} -co
     pack .f1
     dobg "set w1 [winfo id .f1]"
     dobg {
-	eval destroy [winfo child .]
+	destroy {*}[winfo children .]
 	toplevel .t1 -use $w1 -bd 2 -relief raised
 	update
 	wm geometry .t1 +30+40
@@ -429,7 +429,7 @@ test unixEmbed-3.3a {ContainerEventProc procedure, disallow position changes} -c
     pack .f1
     child alias w1 winfo id .f1
     child eval {
-        destroy [winfo child .]
+        destroy {*}[winfo children .]
         toplevel .t1 -use [w1] -bd 2 -relief raised
         update
         wm geometry .t1 +30+40
@@ -449,7 +449,7 @@ test unixEmbed-3.4 {ContainerEventProc procedure, disallow position changes} -co
     pack .f1
     dobg "set w1 [winfo id .f1]"
     dobg {
-	eval destroy [winfo child .]
+	destroy {*}[winfo children .]
 	toplevel .t1 -use $w1
 	update
 	wm geometry .t1 300x100+30+40
@@ -473,7 +473,7 @@ test unixEmbed-3.4a {ContainerEventProc procedure, disallow position changes} -c
     pack .f1
     child alias w1 winfo id .f1
     child eval {
-        destroy [winfo child .]
+        destroy {*}[winfo children .]
         toplevel .t1 -use [w1]
         update
         wm geometry .t1 300x100+30+40
@@ -493,7 +493,7 @@ test unixEmbed-3.5 {ContainerEventProc procedure, geometry requests} -constraint
     pack .f1
     dobg "set w1 [winfo id .f1]"
     dobg {
-	eval destroy [winfo child .]
+	destroy {*}[winfo children .]
 	toplevel .t1 -use $w1
     }
     update
@@ -517,7 +517,7 @@ test unixEmbed-3.5a {ContainerEventProc procedure, geometry requests} -constrain
     pack .f1
     child alias w1 winfo id .f1
     child eval {
-        destroy [winfo child .]
+        destroy {*}[winfo children .]
         toplevel .t1 -use [w1]
         .t1 configure -width 300 -height 80
         update
@@ -536,7 +536,7 @@ test unixEmbed-3.6 {ContainerEventProc procedure, map requests} -constraints {
     pack .f1
     dobg "set w1 [winfo id .f1]"
     dobg {
-	eval destroy [winfo child .]
+	destroy {*}[winfo children .]
 	toplevel .t1 -use $w1
 	set x unmapped
 	bind .t1 <Map> {set x mapped}
@@ -562,7 +562,7 @@ test unixEmbed-3.6a {ContainerEventProc procedure, map requests} -constraints {
     pack .f1
     child alias w1 winfo id .f1
     child eval {
-        destroy [winfo child .]
+        destroy {*}[winfo children .]
         toplevel .t1 -use [w1]
         set x unmapped
         bind .t1 <Map> {set x mapped}
@@ -586,7 +586,7 @@ test unixEmbed-3.7 {ContainerEventProc procedure, destroy events} -constraints {
     bind .f1 <Destroy> {set x dead}
     set x alive
     dobg {
-	eval destroy [winfo child .]
+	destroy {*}[winfo children .]
 	toplevel .t1 -use $w1
     }
     update
@@ -612,7 +612,7 @@ test unixEmbed-3.7a {ContainerEventProc procedure, destroy events} -constraints
     bind .f1 <Destroy> {set x dead}
     set x alive
     child eval {
-        destroy [winfo child .]
+        destroy {*}[winfo children .]
         toplevel .t1 -use [w1]
         update
         destroy .t1
@@ -633,7 +633,7 @@ test unixEmbed-4.1 {EmbedStructureProc procedure, configure events} -constraints
     pack .f1
     dobg "set w1 [winfo id .f1]"
     dobg {
-	eval destroy [winfo child .]
+	destroy {*}[winfo children .]
 	toplevel .t1 -use $w1
     }
     update
@@ -659,7 +659,7 @@ test unixEmbed-4.1a {EmbedStructureProc procedure, configure events} -constraint
     pack .f1
     child alias w1 winfo id .f1
     child eval {
-        destroy [winfo child .]
+        destroy {*}[winfo children .]
         toplevel .t1 -use [w1]
         update
         .t1 configure -width 180 -height 100
@@ -679,7 +679,7 @@ test unixEmbed-4.2 {EmbedStructureProc procedure, destroy events} -constraints {
     pack .f1
     dobg "set w1 [winfo id .f1]"
     dobg {
-	eval destroy [winfo child .]
+	destroy {*}[winfo children .]
 	toplevel .t1 -use $w1
     }
     update
@@ -703,7 +703,7 @@ test unixEmbed-4.2a {EmbedStructureProc procedure, destroy events} -constraints
     update
     child alias w1 winfo id .f1
     child eval {
-        destroy [winfo child .]
+        destroy {*}[winfo children .]
         toplevel .t1 -use [w1]
     }
     set x [testembed]
@@ -725,7 +725,7 @@ test unixEmbed-5.1 {EmbedFocusProc procedure, FocusIn events} -constraints {
     update
     dobg "set w1 [winfo id .f1]"
     dobg {
-	eval destroy [winfo child .]
+	destroy {*}[winfo children .]
 	toplevel .t1 -use $w1
 	bind .t1 <FocusIn> {lappend x "focus in %W"}
 	bind .t1 <FocusOut> {lappend x "focus out %W"}
@@ -750,7 +750,7 @@ test unixEmbed-5.1a {EmbedFocusProc procedure, FocusIn events} -constraints {
     update
     child alias w1 winfo id .f1
     child eval {
-        destroy [winfo child .]
+        destroy {*}[winfo children .]
         toplevel .t1 -use [w1]
         bind .t1 <FocusIn> {lappend x "focus in %W"}
         bind .t1 <FocusOut> {lappend x "focus out %W"}
@@ -774,7 +774,7 @@ test unixEmbed-5.2 {EmbedFocusProc procedure, focusing on dead window} -constrai
     update
     dobg "set w1 [winfo id .f1]"
     dobg {
-	eval destroy [winfo child .]
+	destroy {*}[winfo children .]
 	toplevel .t1 -use $w1
     }
     update
@@ -800,7 +800,7 @@ test unixEmbed-5.2a {EmbedFocusProc procedure, focusing on dead window} -constra
     update
     child alias w1 winfo id .f1
     child eval {
-        destroy [winfo child .]
+        destroy {*}[winfo children .]
         toplevel .t1 -use [w1]
         update
         after 200 {destroy .t1}
@@ -822,7 +822,7 @@ test unixEmbed-5.3 {EmbedFocusProc procedure, FocusOut events} -constraints {
     update
     dobg "set w1 [winfo id .f1]"
     dobg {
-	eval destroy [winfo child .]
+	destroy {*}[winfo children .]
 	toplevel .t1 -use $w1
 	bind .t1 <FocusIn> {lappend x "focus in %W"}
 	bind .t1 <FocusOut> {lappend x "focus out %W"}
@@ -850,7 +850,7 @@ test unixEmbed-5.3a {EmbedFocusProc procedure, FocusOut events} -constraints {
     update
     child alias w1 winfo id .f1
     child eval {
-        destroy [winfo child .]
+        destroy {*}[winfo children .]
         toplevel .t1 -use [w1]
         set x {}
         bind .t1 <FocusIn> {lappend x "focus in %W"}
@@ -878,7 +878,7 @@ test unixEmbed-6.1 {EmbedGeometryRequest procedure, window changes size} -constr
     pack .f1
     dobg "set w1 [winfo id .f1]"
     dobg {
-	eval destroy [winfo child .]
+	destroy {*}[winfo children .]
 	toplevel .t1 -use $w1
 	update
 	bind .t1 <Configure> {lappend x {configure .t1 %w %h}}
@@ -902,7 +902,7 @@ test unixEmbed-6.1a {EmbedGeometryRequest procedure, window changes size} -const
     pack .f1
     child alias w1 winfo id .f1
     child eval {
-        destroy [winfo child .]
+        destroy {*}[winfo children .]
         toplevel .t1 -use [w1]
         update
         bind .t1 <Configure> {set x {configure .t1 %w %h}}
@@ -924,7 +924,7 @@ test unixEmbed-6.2 {EmbedGeometryRequest procedure, window changes size} -constr
     place .f1 -width 200 -height 200
     dobg "set w1 [winfo id .f1]"
     dobg {
-	eval destroy [winfo child .]
+	destroy {*}[winfo children .]
 	toplevel .t1 -use $w1
 	update
 	bind .t1 <Configure> {lappend x {configure .t1 %w %h}}
@@ -949,7 +949,7 @@ test unixEmbed-6.2a {EmbedGeometryRequest procedure, window changes size} -const
     update
     child alias w1 winfo id .f1
     child eval {
-        destroy [winfo child .]
+        destroy {*}[winfo children .]
         toplevel .t1 -use [w1]
         update
         bind .t1 <Configure> {set x {configure .t1 %w %h}}
@@ -975,7 +975,7 @@ test unixEmbed-7.1 {TkpRedirectKeyEvent procedure, forward keystroke} -constrain
     pack .f1
     dobg "set w1 [winfo id .f1]"
     dobg {
-	eval destroy [winfo child .]
+	destroy {*}[winfo children .]
 	toplevel .t1 -use $w1
     }
     focus -force .
@@ -1009,7 +1009,7 @@ test unixEmbed-7.1a {TkpRedirectKeyEvent procedure, forward keystroke} -constrai
     pack .f1
     child alias w1 winfo id .f1
     child eval {
-        destroy [winfo child .]
+        destroy {*}[winfo children .]
         toplevel .t1 -use [w1]
     }
     focus -force .
@@ -1038,7 +1038,7 @@ test unixEmbed-7.2 {TkpRedirectKeyEvent procedure, don't forward keystroke width
     pack .f1
     dobg "set w1 [winfo id .f1]"
     dobg {
-	eval destroy [winfo child .]
+	destroy {*}[winfo children .]
 	toplevel .t1 -use $w1
     }
     update
@@ -1071,7 +1071,7 @@ test unixEmbed-7.2a {TkpRedirectKeyEvent procedure, don't forward keystroke widt
     pack .f1
     child alias w1 winfo id .f1
     child eval {
-        destroy [winfo child .]
+        destroy {*}[winfo children .]
         toplevel .t1 -use [w1]
     }
     update
@@ -1104,7 +1104,7 @@ test unixEmbed-8.1 {TkpClaimFocus procedure} -constraints {
     pack .f1 .f2
     dobg "set w1 [winfo id .f1]"
     dobg {
-	eval destroy [winfo child .]
+	destroy {*}[winfo children .]
 	toplevel .t1 -use $w1 -highlightthickness 2 -bd 2 -relief sunken
     }
     focus -force .f2
@@ -1132,7 +1132,7 @@ test unixEmbed-8.1a {TkpClaimFocus procedure} -constraints unix -setup {
     update
     child alias w1 winfo id .f1
     child eval {
-        destroy [winfo child .]
+        destroy {*}[winfo children .]
         toplevel .t1 -use [w1] -highlightthickness 2 -bd 2 -relief sunken
     }
     # This should clear focus from the application embedded in .f1
@@ -1206,7 +1206,7 @@ test unixEmbed-9.2 {EmbedWindowDeleted procedure, check embeddedPtr} -constraint
     update
     dobg "set w1 [winfo id .f1]"
     dobg {
-	eval destroy [winfo child .]
+	destroy {*}[winfo children .]
 	toplevel .t1 -use $w1 -highlightthickness 2 -bd 2 -relief sunken
 	set x {}
 	lappend x [testembed]
@@ -1228,7 +1228,7 @@ test unixEmbed-9.2a {EmbedWindowDeleted procedure, check embeddedPtr} -constrain
     pack .f1
     child alias w1 winfo id .f1
     child eval {
-        destroy [winfo child .]
+        destroy {*}[winfo children .]
         toplevel .t1 -use [w1] -highlightthickness 2 -bd 2 -relief sunken
         set x {}
         lappend x [testembed]