Posted to tcl by jdc at Tue Aug 07 13:02:14 GMT 2007view raw

  1. set f1 [frame .f1 -bg green]
  2.  
  3. set l1 [label $f1.l1 -text Label-1 -bg red]
  4. set l2 [label $f1.l2 -text Label-2 -bg red]
  5.  
  6. pack $f1 -fill both -expand true
  7. pack $l1 -side top -anchor nw
  8. pack $l2 -side top -anchor se
  9.  
  10. set f2 [frame .f2 -bg blue]
  11.  
  12. set l3 [label $f2.l3 -text Label-3 -bg red]
  13. set l4 [label $f2.l4 -text Label-4 -bg red]
  14.  
  15. pack $f2 -fill both -expand true
  16. pack $l3 -side left -anchor nw
  17. pack $l4 -side left -anchor se
  18.