Select Code to Download

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

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