(FILECREATED "28-Jan-84 21:34:47" {PHYLUM}<BLUEBONNET>DMRUSSELL>STARTBLUEBONNET.;4
 3241   

      changes to:  (FNS StartBluebonnet)

      previous date: "26-SEP-83 16:07:23" {PHYLUM}<BLUEBONNET>DMRUSSELL>STARTBLUEBONNET.;3)


(PRETTYCOMPRINT STARTBLUEBONNETCOMS)

(RPAQQ STARTBLUEBONNETCOMS
 [(FNS * STARTBLUEBONNETFNS)
			    (P (LOAD? 'HEADLINE.DCOM])

(RPAQQ STARTBLUEBONNETFNS
 (SaveBluebonnet StartBluebonnet))
(DEFINEQ

(SaveBluebonnet

  [LAMBDA NIL                                                (* edited: "20-SEP-83 21:55")

    (MAKEFILE (QUOTE PROCESSWFFS))
    (MAKEFILE (QUOTE COPYJOBDATA))
    (MAKEFILE (QUOTE DESCRIBEJOB))
    (MAKEFILE (QUOTE PLANNER))
    (MAKEFILE (QUOTE 8200INTERFACE))
    (MAKEFILE (QUOTE 8200SERVER))
    (MAKEFILE (QUOTE STARTBLUEBONNET))
    (MAKEFILE (QUOTE MONITOR])

(StartBluebonnet

  [LAMBDA (initializePanelFlg)                               (* JG "28-Jan-84 21:34")


          (* Start Bluebonnet. If initializePanelFlg is set or CopyJob is unbound, then create a description panel.

	  Otherwise, use CopyJob:descriptionPanel. Reinitialize CopyJob to be the default job. Display the greeting and 

	  start button for the user.)



    (PROG (job)
          [if
 ~ (BOUNDP 'CommentWindow)
	      then
 CommentWindow←
		   (CREATEW (create
 REGION
				    LEFT ← 711
				    BOTTOM ← 400
				    WIDTH ← 304
				    HEIGHT ← 400)
			    "Comments")
		   (DSPFONT Gacha12Bold CommentWindow)
		   (WINDOWPROP CommentWindow 'RIGHTBUTTONFN (FUNCTION (LAMBDA NIL NIL]
          (job← (DefineDefaultJob))
          (job:descriptionPanel← (if
 initializePanelFlg or
 ~ (BOUNDP 'CopyJob)
				     then
 (InitiateDescriptionPanel job)
				   else
 CopyJob:descriptionPanel))
          (CopyJob←job)                                      (* If we%'re simulating, Init the list of reasons why 

							     the 8200 is in the NotReady state.

							     (Used in Simulate8200StateChange))

          (if
 Simulate8200
	      then
 NotReadyReasons←NIL)
          (WINDOWPROP CopyJob:descriptionPanel 'CopyJob CopyJob)
          (CLOSEW CopyJob:descriptionPanel)
          (CLOSEW CommentWindow)
          (CLOSEW PROMPTWINDOW)
          (if
 BluebonnetTrace
	      then
 (PAGEHEIGHT 0)
	    else
 (CARET 'OFF))
          [BILLBOARD '(("Push this button to start the" NIL)
		      ("Bluebonnet Expert Help System." NIL]
          (ADDMENU [create
 MENU
			   ITEMS ← '(("Start" NIL "Release this button to start Bluebonnet"))
			   ITEMWIDTH ← 100
			   ITEMHEIGHT ← 100
			   CENTERFLG ← T
			   MENUOUTLINESIZE ← 30
			   MENUFONT ← (FONTCREATE '(TIMESROMAND 36))
			   WHENSELECTEDFN ← (FUNCTION (LAMBDA (item menu key)
			       (CLOSE.HEADLINES)
			       (DELETEMENU menu T)           (* Close up simulation stuff.)

			       (if
 Simulate8200
				   then
 (CreateSimulate8200Menu)
					(CLOSEW SimulationStatusWindow))
			       (EVAL.AS.PROCESS '(UpdateJobDescriptionPanel (fetch
 descriptionPanel
									       of
 CopyJob)
									    T))
			       (OPENW CommentWindow]
		   NIL
		   (create
 POSITION
			   XCOORD ← 425
			   YCOORD ← 300])
)
(LOAD? 'HEADLINE.DCOM)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (428 3196 (SaveBluebonnet 438 . 829) (StartBluebonnet 831 . 3194)))))
STOP