常に最前面に表示

[復活の帝王]

独立型アプレットにおいて、一般的なアプリによくある「常に最前面に表示」をしたいのですが、どうすれば可能でしょうか？

[onyo]

復活の帝王さま

最前面にしたい Viewで ViewDeactivateEvent イベントをハンドルし
{View.set-topmost true} にすると、常に最前面になるかとおもいます。

Code:

{let v:View = {View
                  || Replace {Frame} with your code.
                  {Frame width = 8cm, height = 8cm},
                  visibility = "normal",
                  {on WindowClose do
                      {exit}
                  },
                  {on e:ViewDeactivateEvent do
                      {v.set-topmost true}
                  }
              }
}
{v.raise}

こんな感じです。

[fukuta]

ViewDeactivateEvent などで制御する必要はありません。

Code:

{do
    def v = {View
                || Replace {Frame} with your code.
                {Frame width = 8cm, height = 8cm},
                visibility = "normal",
                {on e:WindowClose do
                    {exit}
                }
            }
    {v.set-topmost true}
}

[復活の帝王]

onyo様、fukuta様

ありがとうございました。やってみます。