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

toplevel .tmp

set w ".tmp"

set f [open "couleurs_rasmol.lookup" a+] 

foreach c {DimGray LightGray red blue yellow green magenta orange cyan forestgreen pink goldenrod seagreen coral violet} {
	set lrgb [winfo rgb $w $c]
	set r [lindex $lrgb 0]
	set g [lindex $lrgb 1]
	set b [lindex $lrgb 2]

	set ri [expr $r/256]
	set gi [expr $g/256]
	set bi [expr $b/256]

	puts $f "$c \[$ri,$gi,$bi\]"
}

close $f

exit