Select Code to Download

sub selectProjectDialog_newtest
{
...
    $scrolled1->Subwidget('listbox')->bind('<MouseWheel>',[ \&wheel_br
+owse, $scrolled1, Tk::Ev('D')]);
}