The Anova output uses the print method print.anova
you may want to take look at methods(print)
and specifically stats:::print.anova
You will most likely want to create your own print function
print.oneway <- function(object, ...) {
foo
bar
}