$mw->Button(...)->pack;       # Tk
$mw->new_button(...)->g_pack; # Tkx