suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjust Active-X example to work with newer IE

Browse Source
This commit is contained in:
Matthew Flatt 2015-06-05 09:14:41 -06:00
parent 35c3554343
commit e1e89adf62
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/racket-doc/scribblings/foreign/active-x.scrbl
View File

@ -36,9 +36,11 @@ the ``Sysmon'' ActiveX control that is included with Windows.
(lambda (doc url) (semaphore-post ready))
ex)
;; Navigate to an empty URL to get an initial document:
(com-invoke ie "Navigate" "")
(semaphore-wait ready)
;; Navigate to get an initial document:
(com-invoke ie "Navigate" "about:blank")
(define READYSTATE_COMPLETE 4)
(unless (= (com-get-property ie "READYSTATE") READYSTATE_COMPLETE)
(semaphore-wait ready))
(define doc (com-get-property ie "Document"))
;; Install HTML to show the ActiveX control: