Curl/Example 5

From Wikibooks, open books for an open world
Jump to: navigation, search
{curl 5.0, 6.0 script}
{import * from CURL.GUI.STANDARD}
{import ActiveXObject from CURL.GRAPHICS.ACTIVEX}
{let expl:ActiveXObject= {ActiveXObject ProgId="Shell.Explorer" }}
{let expl2:ActiveXObject= {ActiveXObject ProgId="Shell.Explorer" }}
{{View
    {paragraph
        {ActiveXGraphic
            border-width = 1pt, border-color = "green",
            expl, width = 10cm, height = 5cm}
        {ActiveXGraphic
            border-width = 1pt, border-color = "blue",
            expl2, width = 10cm, height = 5cm}
    }
}.show}
{do {expl.Navigate
"http://km0330.keymachine.de/friedger/curlchat/start-chat.curl"}}
{do {expl2.Navigate "http://www.google.com"}}
{event-loop}