made help button in create executable work

svn: r1559

collects/drscheme/private/language.ss

@@ -619,6 +619,7 @@
                               (string-constant help)
                               type/base/help-panel
                               (λ (x y)
+                                (send dlg show #f)
                                 (drscheme:help-desk:goto-help "drscheme" "Executables"))))
 
         (define button-panel (instantiate horizontal-panel% ()

collects/help/help-desk.ss

@@ -14,7 +14,7 @@
   (provide/contract 
    (set-bug-report-info! any/c)
    (find-doc-names (-> (listof (cons/c path? string?))))
-   (goto-manual-link (any/c string? string? . -> . any))
+   (goto-manual-link (string? string? . -> . any))
    
    (goto-hd-location ((symbols 'hd-tour 'release-notes 'plt-license) . -> . any))
    (new-help-desk (-> (is-a?/c help-desk-frame<%>)))

collects/help/private/gui.ss

@@ -500,6 +500,9 @@
         (let ([loc (get-hd-location sym)])
           (goto-url loc)))
       
+      (define (goto-manual-link manual index-key)
+        (goto-url (prefix-with-server (finddoc-page-anchor manual index-key))))
+      
       (define (search-for-docs search-string search-type match-type lucky? docs)
         (let ([fr (or (find-help-desk-frame)
                       (new-help-desk))])

collects/help/private/manuals.ss

@@ -25,8 +25,6 @@
                     [find-doc-directories (-> (listof path?))]
                     [find-doc-directory (path? . -> . (union false/c path?))]
                     [find-doc-names (-> (listof (cons/c path? string?)))]
-                    
-                    [goto-manual-link (any/c string? string? . -> . any)]
                     [get-index-file (path? . -> . (union false/c path?))])
   
   (provide find-manuals)
@@ -52,9 +50,6 @@
           (make-sec "Writing extensions" #rx"Tools|Inside|Foreign" '())
           (make-sec "Other" #rx"" '())))
   
-  (define (goto-manual-link cookie manual index-key)
-    (error 'goto-manual-link "broken ~s ~s ~s\n" cookie manual index-key))
-    
   ;; Creates a "file:" link into the indicated manual.
   ;; The link doesn't go to a particular anchor,
   ;; because "file:" does not support that.

collects/help/private/sig.ss

@@ -9,5 +9,6 @@
      find-help-desk-frame
      show-help-desk
      goto-hd-location
+     goto-manual-link
      search-for-docs
      search-for-docs/in-frame)))

collects/help/private/standard-urls.ss

@@ -34,6 +34,7 @@
    (get-hd-location ((lambda (sym) (memq sym hd-location-syms))
                      . -> . 
                      string?))
+   [prefix-with-server (string? . -> . string?)]
    [make-docs-plt-url (string? . -> . string?)]
    [make-docs-html-url (string? . -> . string?)])