From c8e0ffabc41260c26d452c08d1f34fdc32a9bac3 Mon Sep 17 00:00:00 2001
From: Paul Steckler <steck@stecksoft.com>
Date: Mon, 15 Jul 2002 17:12:41 +0000
Subject: [PATCH] iconic

original commit: 9821598a427dd02baf5bf34e04a3470c8dd6880f
---
 collects/help/help.ss | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/collects/help/help.ss b/collects/help/help.ss
index 63f37c47..9b4161e8 100644
--- a/collects/help/help.ss
+++ b/collects/help/help.ss
@@ -11,6 +11,7 @@
 
   (define launch-browser? #t)
   (define external-connections? #f)
+  (define iconize? #f)
   (define port #f)
 
   (command-line
@@ -21,6 +22,8 @@
      (set! launch-browser? #f)]
     [("-x" "--external-connections") "Allow external connections"
      (set! external-connections? #t)]
+    [("-i" "--iconizer") "Iconize the control panel"
+     (set! iconize? #t)]
     [("-p" "--port") number "Use given port number"
      (with-handlers
       ((void (lambda _
@@ -79,7 +82,13 @@
 		 (stretchable-height #f)))
 
   (send frame center)
-  (send frame show #t))
+  (send frame show #t)
+  (when iconize?
+	(send frame iconize #t)))
+
+
+
+