#!/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 \
	-font -adobe-helvetica-bold-r-*-*-18-*-*-*-*-*-*-* \
	-text "EINHEIT !"

blinken .msg -bg red white -fg white red 200
pack .msg
after 2000 destroy .
