$case_numbertf = $page1 -> Entry(-textvariable => \$case_number) ->place(-x=> 380, -y=> 30);