sub service_for_mw_button_press {
  my ($mw) = shift;
  my $top_level = $mw->Toplevel