grid pack

  


   itk_component add heading_f {
   frame $itk_interior.main.hf \
       -bd 1 \
       -relief solid
      }
  
   itk_component add heading_l {
   label $itk_interior.main.hf.fl \
       -text "Images" \
       -font title_font \
       -anchor w
      } {
   usual
   ignore -font
      }
  

  grid $itk_component(heading_f) -row 0 -column 0  -sticky nswe -padx 7 -pady {7 0}
  pack $itk_component(heading_l) -side left -padx 5 -pady 5 -fill both -expand 1
  #grid $itk_component(session_tree) $itk_component(session_scroll) -sticky news -padx 7 -pady 7
  grid columnconfigure $itk_component(main) 0 -weight 1
  grid rowconfigure $itk_component(main) 1 -weight 1

posted @ 2011-08-01 22:05  greencolor  阅读(158)  评论(0编辑  收藏  举报