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

..

Browse Source 
original commit: 696062bf25ee378257a4a7a194fda517cb25ee5a
This commit is contained in:
Paul Steckler 2002-11-14 18:43:04 +00:00
parent c67d9ebdd7
commit 2d9cb67e59
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/help/help.ss
View File

@ -8,7 +8,7 @@
"private/plt-browser.ss") "private/plt-browser.ss")
(define launch-browser? #t) (define launch-browser? #t)
(define external-connections? #f) (define remote-connections? #f)
(define iconize? #f) (define iconize? #f)
(define quiet? #f) (define quiet? #f)
(define port #f) (define port #f)
@ -19,8 +19,8 @@
(once-each (once-each
[("-n" "--no-browser") "Do not launch browser (ignored for PLT browser)" [("-n" "--no-browser") "Do not launch browser (ignored for PLT browser)"
(set! launch-browser? #f)] (set! launch-browser? #f)]
[("-x" "--external-connections") "Allow external connections (ignored for PLT browser)" [("-r" "--remote-connections") "Allow remote connections (ignored for PLT browser)"
(set! external-connections? #t)] (set! remote-connections? #t)]
[("-i" "--iconize") "Iconize the control panel" [("-i" "--iconize") "Iconize the control panel"
(set! iconize? #t)] (set! iconize? #t)]
[("-q" "--quiet") "Don't show the control panel" [("-q" "--quiet") "Don't show the control panel"
@ -34,7 +34,7 @@
(raise 'not-exact-integer)) (raise 'not-exact-integer))
(set! port port-val)))])) (set! port port-val)))]))
(define hd-cookie (start-help-server port external-connections?)) (define hd-cookie (start-help-server port remote-connections?))
(unless hd-cookie (exit)) (unless hd-cookie (exit))
(define help-desk-port (hd-cookie->port hd-cookie)) (define help-desk-port (hd-cookie->port hd-cookie))