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

iconic

Browse Source 
original commit: 9821598a427dd02baf5bf34e04a3470c8dd6880f
This commit is contained in:
Paul Steckler 2002-07-15 17:12:41 +00:00
parent 6d309cd4be
commit c8e0ffabc4
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/help/help.ss
View File

@ -11,6 +11,7 @@
(define launch-browser? #t) (define launch-browser? #t)
(define external-connections? #f) (define external-connections? #f)
(define iconize? #f)
(define port #f) (define port #f)
(command-line (command-line
@ -21,6 +22,8 @@
(set! launch-browser? #f)] (set! launch-browser? #f)]
[("-x" "--external-connections") "Allow external connections" [("-x" "--external-connections") "Allow external connections"
(set! external-connections? #t)] (set! external-connections? #t)]
[("-i" "--iconizer") "Iconize the control panel"
(set! iconize? #t)]
[("-p" "--port") number "Use given port number" [("-p" "--port") number "Use given port number"
(with-handlers (with-handlers
((void (lambda _ ((void (lambda _
@ -79,7 +82,13 @@
(stretchable-height #f))) (stretchable-height #f)))
(send frame center) (send frame center)
(send frame show #t)) (send frame show #t)
(when iconize?
(send frame iconize #t)))