suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

..

Browse Source 
original commit: c155fb9cdac2601e2c26c2acf05a2a6c18759cfe
This commit is contained in:
Paul Steckler 2002-09-27 20:48:08 +00:00
parent d8eeb4bb81
commit df6b375ca3
1 changed files with 6 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
collects/help/help.ss
View File

@ -45,23 +45,12 @@
(wait-for-connection help-desk-port)) (wait-for-connection help-desk-port))
(when launch-browser? (when launch-browser?
(with-handlers (help-desk-browser hd-cookie)
([void ; allow browser startup time
(lambda _ (sleep (add1 browser-timeout))
(message-box ; starting an external browser may have failed
"Help Desk" ; so we may have switched to the internal browser
(format (set! internal-browser? (use-plt-browser?)))
(string-append
"Unable to start a browser. "
"Manually start a browser and use the URL "
"http://127.0.0.1:~a/servlets/home.ss.")
(hd-cookie->port hd-cookie))))])
(help-desk-browser hd-cookie)
; allow browser startup time
(sleep (add1 browser-timeout))
; starting an external browser may have failed
; so we may have switched to the internal browser
(set! internal-browser? (use-plt-browser?))))
(cond (cond
[internal-browser? (void)] [internal-browser? (void)]