Dialog and moving focus

[heavybugtracker]

Could you put your screen layout into a View ? If you could, then calling View.show before {f.request-key-focus} will do what you want .

But if you have to put your screen layout within a AppletView(such as within the browser), I don't know how to do this .

Code:

{def f = {TextField}}
{def v =
    {View
        {spaced-vbox
            f,
            {CommandButton
                label="Show dialog",
                {on Action do
                    {dlg.show center?=false, title="Focus Test", modal?=false }
                }
            }
        },
    {on WindowClose do
      {exit 0}
    }
    }
}
{def dlg = {Dialog
               {CommandButton
                   label="Move to focus",
                   {on Action do
                       {after 0s do
                           {v.show}
                           {f.request-key-focus}
                       }
                   }
               }
           }
}

{v.show}