package provide app-listing3 1.0
package require Tk

proc speichern {} {
    puts $::farbe
    .farbe configure -background $::farbe
    set fd [open [file join $starkit::topdir lib app-listing3 farbe.tcl] w]
    puts $fd ".$::farbe invoke"
    close $fd
}

foreach f {red green blue yellow magenta cyan} {
    radiobutton .$f -value $f -variable farbe \
	-command speichern -text $f -anchor w 
    grid .$f -sticky ew
}

frame .farbe -width 50
grid .farbe -row 0 -column 1 -rowspan 6 -sticky ns

source [file join $starkit::topdir lib app-listing3 farbe.tcl]