update
This commit is contained in:
@@ -10,7 +10,7 @@ exec wish "$0" ${1+"$@"}
|
||||
|
||||
package require Tk
|
||||
|
||||
foreach i [winfo child .] {
|
||||
foreach i [winfo children .] {
|
||||
catch {destroy $i}
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user