Hi am writing a Tk routine routine with MListbox, using this to enable users to sort on individual columns is just what I am after, using the -sortable option is great however I need to do some other processing once the sort has taken place. I know I can use a call back using

-comparecmd => \&some_sub

using this seems to only enable sorting on the first column.

ive also tried using sortable and then binding to the header but this seems to disable the sort as well

any pointers as to where this is going wrong would be greatly appreated.

thanks Skywalker

code: 
#!/usr/local/bin/perl

use Tk;
use Tk::MListbox;
use strict;

my $mw = new MainWindow(-title => 'Spooler Queue');

# Mainwindow: sizex/y, positionx/y
$mw->geometry("1200x675+0+175");

my $start = 1;

my @data = <DATA>;

my %spool_list = ();
my $total_spools = 0;
my @user    = ();
my @customers = ();
my $reg_exp = "";
my $delimiter = "\t";
my %hash_store = ();
my $ctr = 0;
my $status_msg = 'Running';
my $timer = 0;
my $thr = undef;
my $thread_running = 1;

#header setup
my @goods_issues_headers = ( "URN",
                             "USER",
                             "PDC",
                             "SPOOL TO",
                             "FILE");

my $scalar_header = scalar @goods_issues_headers;

my $counter = 0;

my $user    = "";
@user       = ();

for my $line (@data){
        chomp $line;
        if($line =~ /^USER/){
            $user = $line;
             next;
        }
        if($line =~/^FILE/){
            $total_spools = sprintf("%05d",$total_spools);
            $spool_list{$total_spools}{USER}      = $user;
               $spool_list{$total_spools}{PDC}      = $user[0];
            $spool_list{$total_spools}{PS}         = $user[1];
            $spool_list{$total_spools}{SPOOL}     = $user[2];
            $spool_list{$total_spools}{MAIL}     = $user[3];
            $spool_list{$total_spools}{LINE}     = $line;
            $total_spools++;
        }else{
            if($line !~ /END PDC/){
                push (@user,$line);
                next;
            }else{
                $total_spools = sprintf("%05d",$total_spools);
                @user = ();
             }
        }
    }
    close (DATA);

#populate list box
    foreach my $spool (sort keys %spool_list){

        my @list = ();

        my $temp = $spool_list{$spool}{USER};
        $temp =~ s/^USER\-\>//;

        push (@list,$spool,$temp);

        my @temp_store = split (/\\|\//,$spool_list{$spool}{PDC});
        my $pdc = pop (@temp_store);
        $pdc =~ s/_PReS_Spooler.pds//;
        push (@list,$pdc);

        push (@list,$spool_list{$spool}{SPOOL});

        @temp_store = split (/\\|\//,$spool_list{$spool}{LINE});
        push (@list,pop (@temp_store));

        push (@customers,[@list]);
    }


#setup the main display grid
    my $grid = $mw->Scrolled('MListbox',
    -sortable    => 1,
    -scrollbars => 'osoe',
    -background => 'white',
    -foreground => 'black',
    -textwidth => 25,
    -highlightthickness => 2,
    -width => 1,
    -selectmode => 'single',
    -bd=>2,
    -columns=>[
        [qw/-text URN -textwidth 10/,
           -comparecmd => \&test],
        [qw/-text USER -textwidth 20/,
            -comparecmd => \&test],
        [qw/-text PDC -textwidth 30/,
            -comparecmd => \&test],
        [qw/-text SPOOL -textwidth 30/,
            -comparecmd => \&test],
        [qw/-text FILE -textwidth 120/,
            -comparecmd => \&test],
    ],
    -relief=>'sunken')->pack(-side   => 'left',
            -fill   => 'both',
            -expand =>  1 );

 #keep querry grid upto date
    &populate_grid($grid,scalar @goods_issues_headers-1,\@customers);

MainLoop();

#manage the goods issues display widget
sub populate_grid{
     my ($widget,$headersize,$customers) = @_;

     my @customers_array = @{$customers};

    my @rowline = ();
    foreach my $row_number ( 0 .. $#customers_array ) {
        push (@rowline,$customers_array[$row_number]->[0]);
        foreach my $x ( 1 .. $headersize ) {
            push (@rowline,$customers_array[$row_number]->[$x]);
        }
        $grid->insert('end',[@rowline]);
        @rowline= ();
    }

}

#sort selected column and also do some other processing
sub test{

    #do some extra processing when the header is clicked
    if($start){
        print "Sorted\n";
    }
    return ($_[0] <=> $_[1]);
}

__DATA__
USER->John
PDC->{1}J:/j01111.pds
COMPILER->PS
SPOOL->J:/Postscript to PDF/in
DELETE->MAIL DATE:20/12/2008
FILE->J:/J02226_GASTROANB_LOOKED_UP_CU_GASTROANB-STL_PROOFS.CSV
FILE->J:/J02226_GASTROCDMMP_LOOKED_UP_CU_GASTROCDMMP-STL_PROOFS.CSV
END PDC
USER->Paul
PDC->{1}J:/j02222.pds
COMPILER->PS
SPOOL->J:/Postscript to PDF/out
DELETE->MAIL DATE:20/12/2008
FILE->J:/J02226_GASTROANB_LOOKED_UP_CU_GASTROANB-STL_PROOFS.CSV
FILE->J:/J02226_GASTROCDMMP_LOOKED_UP_CU_GASTROCDMMP-STL_PROOFS.CSV
END PDC
USER->Singo
PDC->{1}J:/J02226 Dendrtie DJ9485 December UTD Mailing/Layout/j03333.p
+ds
COMPILER->PS
SPOOL->C:/temp
DELETE->MAIL DATE:20/12/2008
FILE->J:/J02226_GASTROANB_LOOKED_UP_CU_GASTROANB-STL_PROOFS.CSV
FILE->J:/J02226_GASTROCDMMP_LOOKED_UP_CU_GASTROCDMMP-STL_PROOFS.CSV
END PDC

[download]

In reply to Mlistbox Sort by skywalker

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.