Mouse wheel setup

foreach(x list("Layout" "Schematics" "Symbol")
    hiSetBindKeys(x
        list(
            list("None<Btn4Down>"       "geScroll(nil \"n\" nil)"                       )
            list("None<Btn5Down>"       "geScroll(nil \"s\" nil)"                       )
            list("Shift<Btn4Down>"      "geScroll(nil \"w\" nil)"                       )
            list("Shift<Btn5Down>"      "geScroll(nil \"e\" nil)"                       )
            list("Ctrl<Btn4Down>"       "hiZoomRelativeScale(getCurrentWindow() 1.25)"  )
            list("Ctrl<Btn5Down>"       "hiZoomRelativeScale(getCurrentWindow() 0.80)"  )
        )
    )
)