sub make_ref_reporter { my $thing = shift; sub { ref $thing } }
  $mw->Button(-text => "refthing", -command => &make_ref_reporter($mw));