> Does anyone have a script to assign a key to step the map number connected to
> the scroll wheel? The scheme commands exist and I thought someone may have
> done this already. It seems like an obvious shortcut.
>
> Thanks, Mark
If you mean stepping to another map and making that scrollable, this
might do what you want:
---
(add-key-binding "Step scrollable map number" "M" (lambda()
(let ((maps (map-molecule-list))
(current (scroll-wheel-map)))
(if (not (null? maps))
(let ((l (memq current maps)))
(if (> (length l) 1) (set-scrollable-map (cadr l))
(set-scrollable-map (car maps))))))))
---
(Strangely, this doesn't update the scrolling radio button in the
display manager...)
If it's just about changing the current scrollable map's contour
level, that can already be done with + and - on the keyboard.
JED.
