set buttons ""
foreach i {error gray25 gray50 hourglass info questhead question warning} {
    lappend buttons [button .$i -bitmap $i]
}
eval pack $buttons -side left -expand y -fill both