(FILECREATED "26-Mar-85 15:14:38" {PHYLUM}<BLUEBONNET>ORIGINAL>STARTBLUEBONNET.;15
 4124   

      changes to:  (FNS SaveBluebonnet)

      previous date: "13-Oct-84 23:03:52" {PHYLUM}<BLUEBONNET>ORIGINAL>STARTBLUEBONNET.;13)


(PRETTYCOMPRINT STARTBLUEBONNETCOMS)

(RPAQQ STARTBLUEBONNETCOMS
 [(FNS * STARTBLUEBONNETFNS)
			    (P (LOAD? 'HEADLINE.DCOM))
			    (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
				      (ADDVARS (NLAMA)
					       (NLAML)
					       (LAMA])

(RPAQQ STARTBLUEBONNETFNS
 (SaveBluebonnet StartBluebonnet))
(DEFINEQ

(SaveBluebonnet

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

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

(StartBluebonnet

  [LAMBDA (initializePanelFlg)                               (* JG "13-Oct-84 22:22")


          (* 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)
          (
SETQ
 job (
DefineDefaultJob
))
          (if
 (
NOT
 in.Trillium)
	      then
 [if
 (
NOT
 (
BOUNDP
 'CommentWindow))
		       then
 (
SETQ
 CommentWindow
			      (
CREATEW
 (create
 REGION
					       LEFT ← 711
					       BOTTOM ← 400
					       WIDTH ← 304
					       HEIGHT ← 400)
				       "Comments"))
			    (
DSPFONT
 Gacha12Bold CommentWindow) 

          (* * (WINDOWPROP CommentWindow (QUOTE RIGHTBUTTONFN) (FUNCTION (LAMBDA NIL NIL))))


]
		   [if
 (
NOT
 (
BOUNDP
 'CopyJob))
		       then
 (replace
 descriptionPanel of
 job
			       with
 (if
 [
OR
 initializePanelFlg (
NOT
 (
BOUNDP
 'CopyJob]
					then
 (
InitiateDescriptionPanel
 job)
				      else
 (fetch
 descriptionPanel of
 CopyJob]
		   (
WINDOWPROP
 (fetch
 descriptionPanel of
 job)
			       'CopyJob
			       job)
		   (
CLOSEW
 (fetch
 descriptionPanel of
 job))
		   (
CLOSEW
 CommentWindow))
          (
SETQ
 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
 (
SETQ
 NotReadyReasons NIL))
          (
CLOSEW
 PROMPTWINDOW)
          (if
 in.Trillium
	      then
 (
FRAME.GOTO
 DescriptionPanel initializePanelFlg)
		   (
DO.FRAME.CHANGE
)
		   (
BbTr.UpdateJobDescriptionPanel
 (
FIND.FRAME
 (
FIND.INTERFACE
 'BbTr)
							       'DescriptionPanel)
						   CopyJob)
	    else
 (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: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 )
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (564 3947 (SaveBluebonnet 574 . 942) (StartBluebonnet 944 . 3945)))))
STOP