Re: Focus problems...

From: Harvey J. Stein <abel_at_netvision.net.il>
Date: Thu, 24 Oct 1996 11:32:39 +0200

Erick Gallesio writes:
> > "Harvey J. Stein" writes
>
> [lines deleted]
>
> > Basically, it seems like giving the above command to wipe out the
> > "all" binding doesn't work until one of the widgets has been given
> > focus. <Key-Tab>" "")
> >
> [lines deleted}
> > So, what's the explanation for this?
> >
>
> This is a autoload problem. The defaults bindings were set in the file
> focus.stk
> which is autoloaded when the first focus is used. So your first bind command
> is not effective. Simply add
>
> (autoload "focus" Tk:focus-next Tk:focus-prev)
> (bind "all" "<Tab>" (lambda (|W|) (focus (Tk:focus-next |W|))))
> (bind "all" "<Shift-Tab>" (lambda (|W|) (focus (Tk:focus-prev |W|))))
>
> at the end of tk-init.stk and everything is OK.

What about if I just add

    (require "focus")

to my application? Or will this interact badly with autoloading?

Thanks,

Harvey J. Stein
Berger Financial Research
abel_at_netvision.net.il
Received on Thu Oct 24 1996 - 11:34:38 CEST