Test de scroll bar Tkinter

Bonjour,

Le petit programme ci-dessous me permet de tester les scroll bar sous Tkinter
Il fonctionne lorsque l'on déplace la barre avec la souris

Par contre, si l'on place le curseur dans le canvas, et que l'on tourne la molette, il n'y a pas de défilement, alors que cela fonctionne si l'on remplace le canvas par un widget style Listbox
Si quelqu'un a une idée ....
Merci par avance

from tkinter import *
import tkinter.font

def display_fonts():
	x0, y0 = 15, 25

	for fname in sorted(tkinter.font.families()):
		graph_area.create_text(x0, y0, text = fname, font = (fname,12), anchor = SW)
		y0 += 25

	main_win.title('Fontes ({})'.format(int(y0/25-1)))

WIDTH, HEIGHT = 400, 500
main_win = Tk()
main_win.geometry(str(WIDTH)+'x'+str(HEIGHT)+'+700+40')

f1 = Frame(main_win)
f1.place(x=0,y=0)

graph_area = Canvas(f1, bg='ivory', height=HEIGHT-5,width=WIDTH-50)
graph_area.pack(side = LEFT,fill=X)

scroll = Scrollbar(f1 ,orient='vertical', command=graph_area.yview)
scroll.pack(expand = YES, fill = Y)

graph_area.configure(yscrollcommand=scroll.set)

display_fonts()
graph_area.configure(scrollregion=graph_area.bbox(ALL))

main_win.mainloop()