Hi Fellow Monks,

I'm here to seek your guidance on using tags to bind text in Tk::Hlist.
Here is a small snippet of code of what I'm trying to achieve.

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

my $mw = MainWindow->new();
$mw->resizable(0,0);

#create some sample data 
my %data;
my $tag = "tag000";

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

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

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

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

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

$h->header('create', 2, -text => '  Priority  ',
                        -borderwidth => 3,
                        -headerbackground => 'lightgreen',
                        -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'},
         );

     $h->itemCreate($e, 2,
           -itemtype => 'text',
           -text => $data{$_}{'priority'},
         );
         
    $h->tagConfigure( $tag, -foreground => 'blue' );
            $h->tagBind( $tag,
                '<Any-Enter>' => [ \&manipulate_link, $tag, 'raised', 
+'hand2' ]
            );
            $h->tagBind( $tag,
                '<Any-Leave>' => [ \&manipulate_link, $tag, 'flat', 'x
+term' ] );
            $h->tagBind( $tag,
                '<Button-1>' => [ \&manipulate_link, $tag, 'sunken' ] 
+);
            $h->tagBind( $tag,
                '<ButtonRelease-1>' =>
                  [ \&manipulate_link, $tag, 'raised', undef, \&printm
+e ] );
            $tag++;           

}

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

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

my $sortpriority = $mw->Button(-text => 'Sort by Priority',
                         -command => [\&sort_me,2] )->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'),
             $h->itemCget($entry,2,'text'),
           ];
           }

  my @sorted = sort{ $a->[$col] cmp $b->[$col]  || #primary sort ascii
+ 
                     $a->[1] <=> $b->[1]           #secondary sort num
+eric 
                       } @to_be_sorted;

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

$mw->update;
}

sub printme {
    local ($,) = " ";
    print "printme:", @_, "\n";
}

sub manipulate_link {

    # manipulate the link as you press the mouse key

    my ($a)      = shift;
    my ($tag)    = shift;
    my ($relief) = shift;
    my ($cursor) = shift;
    my ($after)  = shift;

    # by configuring the relief (to simulate a button press)
    $a->tagConfigure( $tag, -relief => $relief, -borderwidth => 1 );

    # by changing the cursor between hand and xterm
    $a->configure( -cursor => $cursor ) if ($cursor);

    # and by scheduling the specified action to run "soon"
    if ($after) {
        my ($s) = $a->get( $a->tagRanges($tag) );
        $mw->after( 200, [ $after, $a, $s, $tag, @_ ] ) if ($after);
    }
}
__END__
[download]

When I run the code, it gives me the following error :

Failed to AUTOLOAD 'Tk::HList::tagConfigure' at F:/Installation_Direct
+ory/Dwimpe
rl/perl/site/lib/Tk/Derived.pm line 469
[download]

Any idea on how I can overcome this issue ?

---

---

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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:
	&		&
	<		&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.