#!/usr/bin/wish -f

proc blinken {widget ressource1 an1 aus1 ressource2 an2 aus2 intervall} {
    $widget config $ressource1 $an1
    $widget config $ressource2 $an2
    after $intervall [list blinken $widget $ressource1 \
	    $aus1 $an1 $ressource2 $aus2 $an2 $intervall]
}

message .msg -width 6c -justify center -relief groove -bd 2 \
	-font -adobe-helvetica-medium-r-*-*-14-*-*-*-*-*-*-* \
	-text "TELEPHON KLINGELT"

blinken .msg -bg white black -fg black white 300
pack .msg
after 10000 destroy .
