Hi zentara,

I need a help regarding configuring this hlist.
The _insertData() is working for the first time, but next
time when it gets invoked thru repeat(),
I am getting the following error :
XS_Tk__Callback_Call error:element "0" already exists at /opt/perl_5.8.8/lib/Tk.pm line 250.

I ma stuck here, please help. Not able to figure ou from the tar files you sent me.

Hi, Yes I know the problem and it is why I mentioned to you the fact that Hlist maintains an internal counter that can't ( as far as I know ) be changed. In essence what it means is that once you itemCreate a path 0 ( or 1,2,3 etc) it is always maintained inside the Hlist. So if you delete path 0 ( or which ever path you please ) you cannot itemCreate it again, you can only itemConfigure it. You can get the number of paths in the Hlist by using my @entries = $h->info('children');

Here is a simple example which shows all the methods fairly clearly.

#!/usr/bin/perl
use strict;
use Tk;
use Tk::HList;

my $mw = MainWindow->new();

#create some sample data
my %data;

foreach (0..100) {
      $data{$_}{'name'} = 'name'.$_;
      $data{$_}{'id'} =   rand(time);
     }
#get random list of keys
my @keys = keys %data; 

#################

my $h = $mw->Scrolled( 'HList', 
                       -header => 1,
                       -columns => 2,
                       -width => 30,
                       -height => 60,
                       -takefocus => 1,
                       -background => 'steelblue',
                   -foreground =>'snow',
               -selectmode => 'single',
                       -selectforeground => 'pink',
                       -selectbackground => 'black',
                #       -browsecmd => \&browseThis,
                   )->pack(-side => "left", -anchor => "n");

my $nameh = $h->header('create', 0, -text => '   Name  ',
                        -borderwidth => 3,
                        -headerbackground => 'steelblue',
            -relief => 'raised');

my $idh = $h->header('create', 1, -text => '      ID      ',
                        -borderwidth => 3,
                        -headerbackground => 'lightsteelblue',
                    -relief => 'raised');


foreach (@keys) {
     my $e = $h->addchild(""); #will add at end
        
     $h->itemCreate ($e, 0,
           -itemtype => 'text',
           -text => $data{$_}{'name'},
            );
                        
     $h->itemCreate($e, 1,
           -itemtype => 'text',
           -text => $data{$_}{'id'},
         );

}

my $button = $mw->Button(-text => 'exit',
                         -command => sub{exit})->pack;

my $sortid = $mw->Button(-text => 'Sort by Id',
                         -command => [\&sort_me,1] )->pack;


MainLoop;
#########################################################

sub sort_me{
  my $col = shift;

  my @entries = $h->info('children');
  my @to_be_sorted =();

 foreach my $entry(@entries){
           push @to_be_sorted,
       [ $h->itemCget($entry,0,'text'),
         $h->itemCget($entry,1,'text')
       ];
           }

  my @sorted = sort{ $a->[$col] cmp $b->[$col] } @to_be_sorted;
            
my $entry = 0;
  foreach my $aref (@sorted){
#    print $aref->[0],' ',$aref->[1],"\n";
    $h->itemConfigure( $entry, 0, 'text' => $aref->[0] );  
    $h->itemConfigure( $entry, 1, 'text' => $aref->[1] ); 
    $entry++;
  }

$mw->update;
}
[download]

---

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh

Hi

Thank you for your reply !
But still one more thing is not working, though I am following the cpan doc for HList. I have tried using both itemExists($entrypath,$col) and info(exists, $entrypath), but of no use.
The scenario is like :
The gui always has two columns , no issue on that. But first time the gui has one row, so entrypath 0 is added and I used itemCreate() to populate values.
Next time due to updation of the input file the gui should have some 3 rows with entirely new data. This time for entrypath 0 , the if(itemExists) returns true and I am using itemConfigure inside the if block. All fine so far. But next iteration for entrypath 1, itemExists should fail and I should be able to go to the else block to add() and itemCreate(), but I am not able to.
I am getting following error :

XS_Tk__Callback_Call error:Entry "1" not found at /user/perl_5.8.8/lib/Tk.pm line 250.
Tk::Error: Entry "1" not found at /opt/perl_5.8.8/lib/Tk.pm line 250.
Tk::Error:: Too many arguments.
Tk callback for .frame1.frame.hlist
Tk::After::repeat at /opt/perl_5.8.8/lib/Tk/After.pm line 79
[repeat,[{},after#12,5000,repeat,\&main::clear_data]]
[repeat,[{},after#12,5000,repeat,&main::clear_data]]: No match.
Here is the code snipppet which is not working


if($hl->itemExists($path,0)){
#if($hl->info(exists, $path)){ # tried both info and itemExist alterna
+tely, but :(
        print "itemexists ...\n";
    $hl->itemConfigure($path,0,-text=> $hash->{$user}->{$tool}->{tool}
+);
    $hl->itemConfigure($path,1,-text=> $hash->{$user}->{$tool}->{issue
+d})
;
    $hl->itemConfigure($path,2,-text=> $hash->{$user}->{$tool}->{inuse
+});

       $hl->itemConfigure($path,3,-text=> $hash->{$user}->{$tool}->{in
+use},
-style => $color);

        }
        else
        {
        print "Inside else ....\n";
        $hl->add($path);
    $hl->itemCreate($path,0,-text=> $hash->{$user}->{$tool}->{tool});
    $hl->itemCreate($path,1,-text=> $hash->{$user}->{$tool}->{issued})
;
    $hl->itemCreate($path,2,-text=> $hash->{$user}->{$tool}->{inuse});

    $hl->itemCreate($path,3,-text=> $hash->{$user}->{$tool}->{inuse},
-style => $color);




        }
[download]