$w->bind('<Button>',-command=>sub{print "test"});