Hi I am trying to reconfigure a multicolumn listbox using the Tk::Columns module. The first column in my list widget contains numerical values and the rest alphabetic values so I am trying to make the sort the first column numeric and the rest of the columns alphanumic. I assume the easiest way is to just set all the columns originally to alphabetic and then configure the first column to sort numerically. But the code posted below does not work. So if anyone knows how I can reconfigure the sortcommand for an individual column.

$maindata = $mwmidfr->Columns('-columnlabels'     => \@headers,
                              '-listforeground'   => 'black',
                              '-listbackground'   => 'tan',
                              '-buttonbackground' => 'red',
                              '-buttonforeground' => 'yellow',
                              '-selectmode'       => 'extended',
                              '-selectcommand'    => \&modify,
                              '-zoom'             => '1',
                              '-sortcommand'      => '$a cmp $b',
                              '-sort'             => 'true')->pack();

$maindata->configure(0, '-sortcommand' => '$a <=> $b');
[download]

Also, I originally tried to use $Columns->addcolumn(-options) to add each column individually but the headers would contain two lines for the label the first line what I wanted ie "Item" but the second line for each one would be "(No Title)." If there was just a way to get rid of the (No Title) that would of worked fine. Thanks for any help.