my $entry = $frame -> Entry(
                               -textvariable => $tv, # NOTE
                             ) -> pack(-fill => 'x');