$lb->tagBind ('cr_link', "<Button-1>", [ \&show_cr, "cr_link" ]);