Are you using Tk::DragDrop or implementing your own drag/drop methods? Where is the relevant parts of your code? What have to tried in attempting to get this to work?

The following very simple test case seems to display the desired functionality to me:

#!/usr/bin/winperl
use warnings;
use strict;

use Tk;
use Tk::HList;

my $mw = MainWindow->new();
my $hl = $mw->Scrolled('HList',
  -itemtype => 'text',
)->pack();

foreach(qw(Foo Bar Baz Quux Wibble Zod Beezel Narf Fobble)) {
  $hl->add($_, -text => $_);
}

MainLoop;
[download]

When I run that, and click-and-drag the mouse, the list scrolls automatically. Therefore PodMaster's reply to your previous post was correct, in that this functionality appears to be built-in.

It's entirely possible that your drag-and-drop code is somehow overriding the default behavior, probably by rebinding the Motion event. However, it's impossible to say for sure, since you don't post any of your code.

If you would like further assistance, I recommend that you post a reduced test-case from your code that exhibits the problem you're trying to solve (see Ovid's excellent node Before You Post ...).

bbfu
Black flowers blossom
Fearless on my breath