#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = tkinit;
my $hl = $mw->HList(-itemtype=>'text')->pack;
for my $n (0..5){
     $hl->add($n ,
	     -text=>"Item $n",
	     );
}

$mw->bind('<Key-F1>',sub{$hl->selectionClear;
			 $hl->anchorClear;
			 $hl->selectionSet(0);
			 $hl->anchorSet(0);
		     }
	  );

MainLoop;

# by Christoph