Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
my $top = new MainWindow(-title => ("\u$title" . " X") ); my $hlist = $top->Scrolled("HList", -header => 1, -columns => 7, -scrollbars => 'osoe', -width => 50, -selectbackground => 'darkgreen', )->pack(-expand => 1, -fill => 'both'); my $option = 0; foreach (qw(jobID user state queue cpu-time memory jobName)) { $hlist->header('create', $option++, -text => $_); } my $option = 0; $hlist->add($jobID); foreach ($jobID, $user, $state, $queue, $cpu, $mem, $name) { $hlist->itemCreate($jobID, $option++, -text => $_); }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: PerlTk; text justification in an hlist
by PodMaster (Abbot) on Jan 29, 2004 at 21:06 UTC | |
by Anonymous Monk on Jan 29, 2004 at 21:27 UTC | |
by PodMaster (Abbot) on Jan 29, 2004 at 22:20 UTC | |
by Anonymous Monk on Jan 30, 2004 at 16:29 UTC |