画面遷移時の初期フォーカス

[umemura]

これならいけそうです。

どうしても画面レイアウトを作るときにFrameを使うクセがあるのですが、

画面はDialogで作成する、という前提にしたほうがよさそうな気がしてきました。

Code:

{def d =
    {View
        {on WindowClose do
            {exit}
        }
    }
}
{let cnt:int = 0}
{define-proc {get-screen}:Dialog
    set cnt = cnt + 1
    {return
        {Dialog
            {VBox
                {TextField
                    value = cnt & "番目"
                },
                {CommandButton
                    takes-focus? = false,
                    {on Action do
                        {d.add replace? = true, {get-screen}}
                    }
                }
            },
            ||表示時に左上のコントロールにフォーカスを当てる
            {on AttachEvent at d:Dialog do
                {d.become-active}
            }
        }
    }
}
{do
    {d.add {get-screen}}
    {d.show}
}