drag icon for CList

i'm trying to set a drag icon widget for a CList from a drag-begin
signal handler, however it doesn't work. the popup window for the icon
widget receives exactly four events - map, expose, configure and unmap,
all at once when the drag happens. the drag displays the default drag
icon. i use the exact same function to set a drag icon widget for a
Tree, and it works. attached is an example of Tree drag icon widget
working and a CList one not working. any ideas about what i am doing
wrong or what should i try?

lanzz
--
$_=q<$_=q<,>;s/,/$_/;print;>;s/,/$_/;

test.pl
Description: Text document