preview-mode: Fix in colorizeDir

"Actually, it's oversimplified.  It has to have

(case (and ev (ly:event-property ev 'direction))

or it will bomb out in the cases of coloring grobs not traceable to a
music event." (David Kastrup)