[racket] How to check if a key is pressed within interaction block, and not declaration one.

This is a bug that I fixed in March, I believe. You can either wait
for the next release or use one of the nightly builds.

Sorry for the inconvenience.

Robby

On Wed, Jul 11, 2012 at 6:35 PM, Oleg Gunkin <oleg.gunkin at gmail.com> wrote:
> I use the following language declaration:
> #lang s-exp framework/keybinding-lang
>
> And when I start Dr. Racket, I get:
>
> Error when installing the keybindings C:\Users\oleg\Documents\racket-keys.rkt:
>
> link: reference (phase 0) to a variable in module "C:\Program
> Files\Racket\collects\drracket\tool-lib.rkt" that is uninitialized
> (phase level 0); reference appears in module:
> "C:\Users\oleg\Documents\racket-keys.rkt" in: drracket:rep:text<%>
>
>
> On Wed, Jul 11, 2012 at 4:17 PM, Robby Findler
> <robby at eecs.northwestern.edu> wrote:
>> When you say "crashes Dr. Racket", what do you mean? (What is the
>> precise error message?)
>>
>> Are you using this as a keybinding file?
>>
>> On Wed, Jul 11, 2012 at 3:02 PM, Oleg Gunkin <oleg.gunkin at gmail.com> wrote:
>>> Basically, I want to change up/down key behaviour within interaction
>>> window to "put-next-sexp"/ "put-previous-sexp" instead moving the
>>> cursor, but only for interaction block.
>>>
>>> This is what I came up with:
>>>
>>> (require drracket/tool-lib)
>>>
>>> (define (rebind key function original-function)
>>>   (keybinding
>>>    key
>>>    (lambda (editor event)
>>>      (send
>>>       (send editor get-keymap)
>>>       call-function
>>>       (if (is-a? editor drracket:rep:text<%>)
>>>           function
>>>           original-function)
>>>       editor event #t))))
>>>
>>> (rebind "down" "put-next-sexp" "next-line")
>>> (rebind "up" "put-previous-sexp" "previous-line")
>>>
>>> However, (is-a? editor drracket:rep:text<%>) together with (require
>>> drracket/tool-lib) crashes Dr. Racket. Is there an alternative way to
>>> do this?
>>> ____________________
>>>   Racket Users list:
>>>   http://lists.racket-lang.org/users
> ____________________
>   Racket Users list:
>   http://lists.racket-lang.org/users