invalid command name "toplevel"
    while executing
"toplevel .a "
    (in namespace eval "::request" script line 13)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/local/bin/wish


proc ToTop {w} {
    focus [winfo toplevel $w]
    raise [winfo toplevel $w]
    wm attributes [winfo toplevel $w] -topmost 1
    return -code break
#    wm withdraw [winfo toplevel $w]
#    wm deiconify [winfo toplevel $w]
}

toplevel .a 
pack [frame .a.f -width 200 -height 200 -bg green]
toplevel .b
pack [frame .b.f -width 200 -height 200 -bg blue]
toplevel .c
pack [frame .c.f -width 200 -height 200 -bg yellow]

focus -force .
if {0} {
    while {1} {
	foreach v {a b c} {
	    puts "$v"
	    after 2000
	    ToTop .$v
	}
    }
}

button