(module main-pane mzscheme

  (require (lib "string-constant.ss" "string-constants")
	   (lib "plt-browser.ss" "help" "private"))

  (require "remote.ss"
           "util.ss") 

  (provide main-pane)

  (define troubleshooting-link
    `(A ((HREF "/servlets/hd-trouble.ss"))
	"Troubleshooting"))

  (define (main-pane)
    `(TABLE ((CELLSPACING "0")
	     (CELLPADDING "0"))
      (TR 
       (TD
	(H1 "PLT Help Desk")
	(UL
	 (LI
	  (B
	   (A ((HREF "/servlets/howtouse.ss")) "Help Desk"))
	  ":  How to get help"
	  ,@(if (unbox remote-box)
		'()
		`((BR) 
		  'nbsp 'nbsp 'nbsp 'nbsp 'nbsp 'nbsp
		  (FONT ((SIZE "-2"))
			(A ((HREF "/servlets/hd-config.ss")
			    (TARGET "_top"))
			   ,(string-constant plt:hd:configure))
			"," ,troubleshooting-link 
			,@(if (use-plt-browser?)
			      `()
			      `(","
				(A ((HREF "/servlets/toggle-frames.ss")
				    (TARGET "_top"))
				   ,(if (use-frames?)
					(string-constant plt:hd:no-frames)
					(string-constant plt:hd:use-frames))))))))))
	(UL
	 (LI
	  (B
	   (A ((HREF "/servlets/howtoscheme.ss")) "Software"))
	  ": How to run programs"
	  (BR)
	  'nbsp 'nbsp 'nbsp 'nbsp 'nbsp 'nbsp
	  (FONT ((SIZE "-2"))
		(A ((HREF "/doc/tour/")) "Tour") ","
		(A ((HREF "/servlets/scheme/what.ss")) "Languages") ","
		(A ((HREF "/servlets/manuals.ss")) "Manuals") ","
		(A ((HREF "/servlets/releaseinfo.ss")) "Release") ","
		,(manual-entry "drscheme"
			       "frequently asked questions"
			       "FAQ") ","
			       "...")))
	(UL
	 (LI
	  (B
	   (A ((HREF "/servlets/howtoprogram.ss")) "Program Design"))
	  ": Learning to program in Scheme"             
	  (BR) 'nbsp 'nbsp 'nbsp 'nbsp 'nbsp 'nbsp 
	  (FONT ((SIZE "-2"))
		(A ((HREF "/doc/teachpack/")) "Teachpacks") ","
		(A ((HREF "/servlets/research/why.ss")) "Why DrScheme?") ","
		"...")))
	
	(UL
	 (LI
	  (B 
	   (A ((HREF "/servlets/resources.ss")) "External Resources")) 
	  ": Additional information"
	  
	  (BR)
	  'nbsp 'nbsp 'nbsp 'nbsp 'nbsp 'nbsp 
	  (FONT ((SIZE "-2"))
		(A ((HREF "/servlets/resources/teachscheme.ss")) "TeachScheme!") ","
		(A ((HREF "/servlets/resources/libext.ss")) "Libraries") ","
		(A ((HREF "/servlets/resources/maillist.ss")) "Mailing Lists") ","
		"...")))
	(P)
	'nbsp 'nbsp 'nbsp
	(B
	 (A ((HREF "/servlets/acknowledge.ss"))
	    (FONT ((COLOR "limegreen"))
		  "Acknowledgements")))
	'nbsp 'nbsp 'nbsp 'nbsp
	(B
	 (A ((HREF "/servlets/bug-report.ss")
	     (TARGET "_top"))
	    (FONT ((COLOR "limegreen"))
		  "Send a bug report")))
	(P)
	(I "Version: " ,(plt-version)))))))

    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
