$list->g_bind("<3>", [
sub {my($x,$y) = @_; $listmenu->g_tk___popup($x,$y)}, Tkx::Ev("%X", "%Y")
]);