Many thanks for providing the script. I've modified your script using the documented "set-scroll-wheel-map" in place of "set-scrollable-map" and placed the code in the keybindings.scm file that is read on start-up. Unfortunately I don't have it working yet with coot 0.6.1. Not sure what I'm doing wrong. Should script work with only two maps loaded?
-Mark
On Apr 9, 2010, at 4:45 PM, Judit Debreczeni wrote:
>> 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.
|