package require Tk 8.4 foreach f {n o s w} { image create photo $f -file $f.gif } label .n -text N -image n -compound bottom -relief ridge label .o -text O -image o -compound left -relief ridge label .s -text S -image s -compound top -relief ridge label .w -text W -image w -compound right -relief ridge grid x .n -row 0 -column 1 grid .w x .o grid x .s . configure -bg white wm title . "Text und Bild"