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

..

Browse Source 
original commit: fd385a13472e28a0ebbdadf53cbeaa00dea9f062
This commit is contained in:
Paul Steckler 2002-09-20 17:55:52 +00:00
parent 117050fbc2
commit b943095385
1 changed files with 84 additions and 89 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
collects/help/help.ss
View File

@ -15,15 +15,15 @@
"help-desk"
(current-command-line-arguments)
(once-each
[("-n" "--no-browser") "Do not launch browser"
[("-n" "--no-browser") "Do not launch browser (ignored for PLT browser)"
(set! launch-browser? #f)]
[("-x" "--external-connections") "Allow external connections"
[("-x" "--external-connections") "Allow external connections (ignored for PLT browser)"
(set! external-connections? #t)]
[("-i" "--iconize") "Iconize the control panel"
(set! iconize? #t)]
[("-q" "--quiet") "Don't show the control panel"
(set! quiet? #t)]
[("-p" "--port") number "Use given port number"
[("-p" "--port") number "Use given port number (ignored for PLT browser)"
(with-handlers
((void (lambda _
(error "Help Desk: expected exact integer for port"))))
@ -35,8 +35,12 @@
(define hd-cookie (start-help-server port external-connections?))
(define help-desk-port (hd-cookie->port hd-cookie))
(define internal-browser? (use-plt-browser?))
(if internal-browser?
(set! launch-browser? #t) ; always launch
; allow server startup time
(wait-for-connection help-desk-port)
(wait-for-connection help-desk-port))
(when launch-browser?
(with-handlers
@ -54,8 +58,10 @@
; allow browser startup time
(sleep 2)))
(if quiet?
(semaphore-wait (make-semaphore 0))
(cond
[internal-browser? (void)]
[quiet? (semaphore-wait (make-semaphore 0))]
[else
(let* ([hd-frame%
(class frame%
(inherit show)
@ -126,16 +132,5 @@
(send frame center)
(send frame show #t)
(when iconize?
(send frame iconize #t)))))
(send frame iconize #t)))]))