$zoom_factor_entry = $draw_bar -> Entry ( "-width" => 2, "-textvariable" => \$zoom_step, ) -> pack( "-side" => 'left', "-padx" => 3);