PDFが正常に表示されないことをハンドリングするには

[umemura]

EmbeddedBrowserEvent というイベントでハンドリングできるみたい。

Code:

{import * from CURL.GUI.EMBEDDED-BROWSER}
{define-proc public {proc-test
                        e:EmbeddedBrowserEvent,
                        ebg:EmbeddedBrowserGraphic
                    }:void
    {type-switch e
    case error:BrowseErrorEvent do
        {popup-message "正しくPDFが表示されてないので閉じる"}
    case finish:BrowseFinishEvent do
        {if finish.location-url.extension != ".pdf" then
            {popup-message "正しくPDFが表示されてないので閉じる"}
        }
    case doc-nfinish:DocumentFinishEvent do
        {if doc-nfinish.location-url.extension != ".pdf" then
            {popup-message "正しくPDFが表示されてないので閉じる"}
        }
    }
}
{def eb =
    {try
        {EmbeddedBrowserGraphic
            {on e:EmbeddedBrowserEvent at ebg:EmbeddedBrowserGraphic do
                {proc-test e, ebg}
            }
        }
    catch ex:Exception do
        null
    }
}
{VBox    eb,
    {CommandButton
        label = "pdfを表示",
        {on Action do
            def u = "http://www.contiriccardo.it/realtime.pdf"
            {eb.browse-url
                {parse-url u}
            }
        }
    }
}