where's the regexmatch?
also why add if ($devent == sclick) {
just using on :dialog:calc:sclick::{ 's shorter