Posted to tcl by jdc at Fri Jul 20 13:32:04 GMT 2007view raw
- 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