Curlのデュアルディスプレイ対応について

[dyoshida]

下記のような簡単なコードだと、各View内を右クリックした際は
それぞれのディスプレイのView上に表示されるようですが、
問題のアプリはどんな感じのコードでしょうか？

Code:

{curl 8.0 applet}
{curl-file-attributes character-encoding = "utf8"}

{import Display from CURL.GRAPHICS.DISPLAY}
{import * from CURL.GUI.BASE}

{define-proc {create-view no:int, d:Display}:View
    def v = {View
                {RectangleGraphic
                    width=50mm, height=20mm,
                    {context-popup
                        menu-pane =
                            {MenuPane
                                {MenuAction
                                    label="Display" & no
                                }
                            }
                    }
                },
                visibility = "normal",
                {on WindowClose do
                    {exit}
                }
            }
    {v.set-window-position d.x, d.y}    
    {return v}
}

{View
    {Frame
        {CommandButton
            label = "Create Views",
            {on Action at v:Visual do
                let no:int = 0
                {for d in {Display.get-displays} do
                    {inc no}
                    {create-view no, d}
                }
            }
        }
    },
    visibility = "normal",
    {on WindowClose do
        {exit}
    }
}