There is an on dialog rclick event, it won't trigger over buttons etc though.
on *:dialog:Name:rclick:*:echo -a * $devent : $dname $did