Justifying text with the -width option

[Roger Oberholtzer]

On Tue, 2003-12-30 at 03:00, Kurt Wall wrote:

> > 
> > set id [ open "|dir -1 " ]
> > set i 0
> > frame .a.b
> > while { [gets $id f ] >= 0} {
> > label .a.b.$i -text $f -width 30
> >                          ^
> >                       The Problem
> > pack .a.b.$i -anchor w
> > incr i }
> > pack .a.b
> 
> Tcl?

Pretty, huh?

-- 
Roger Oberholtzer <roger at opq.se>