(pack
   (label '.lab1 :text "This is a label1" :relief "sunken"))