fields script + radiobutton

package require Tk

proc fields {w contents} {
    frame $w
    set n 0
    foreach i $contents {
	if [string match $* $i] {
	    ttk::entry $w.$n -textvariable [string range $i 1 end] -width 10
	} elseif [string match @$* $i] {
	    ttk::radiobutton $w.$n \
		-variable [lindex [split [string range $i 2 end] ","] 0] \
		-value [lindex [split [string range $i 2 end] ","] 1] \
		-text [lindex [split [string range $i 2 end] ","] 1]
        } elseif [string match '$* $i] {
	    ttk::label $w.$n -textvariable [string range $i 2 end] -wraplength 550
        } else {
	    ttk::label $w.$n -text $i -wraplength 550
        }
        incr n
    }
    eval pack [winfo children $w] -side left -anchor w
    set w
}

pack [fields .f1 {tekst $entry}]
pack [fields .f2 {tekst @$rbvar,Yes @$rbvar,No @$rbvar,Maybe @$rbvar,Never}]

set rbvar No