my %context;

...
$button->bind('<ButtonRelease-1>' => sub{chg_btn(\%context, @_});