Curl/示例 5
外观
< Curl
{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}