$main_new=$main->Button(-text=>"New",-command=>sub{newnote;},
            -padx=>0,-pady=>0)->pack;