$mw->bind('<MouseWheel>',    [ sub { $Config{text_widget}->yviewScroll(-($_[1]/120)*3, 'units') }, Ev('D') ] );