#!/usr/bin/tclsh
package require Tk

# Bilder laden
image create photo password \
    -file [file join icons change-password-48.gif]
set rolle [image create photo \
    -file [file join icons lookandfeel-directory.gif] ]
set ident [image create photo \
    -data "R0lGODlhMAAwAOf/AAABAAACAAEEAAIFAQQHAgUIBAIJDAcJBQg.....]

# Bilder verwenden
label .password -image password
label .rolle    -image $rolle
label .ident    -image $ident

# Bild mit Text
label .identO -text "Oben"   -image $ident -compound top
label .identL -text "Links"  -image $ident -compound left
label .identZ -text "Mitte"  -image $ident -compound center -fg white
label .identR -text "Rechts" -image $ident -compound right
label .identU -text "Unten"  -image $ident -compound bottom

# Widgets platzieren
grid .rolle   .password .ident 
grid    x     .identO 
grid .identL  .identZ   .identR
grid    x     .identU