; Copyright (C) 1992, Digital Equipment Corporation                         
; All rights reserved.                                                      
; See the file COPYRIGHT for a full description.                            
;                                                                           
; Last modified on Fri Dec 23 16:17:56 PST 1994 by heydon                   

(TSplit %tsplit (Which startupScreen)
  (Insert "Macros.fv")
  (MyLabelFont)
  (BgColor HSV 0 0 0.8)
  (ZSplit %mainChild
    (ZBackground
    (Filter %background Passive (Cursor "XC_watch")
      (HTile2
    	;; Drawing half of UI
    	(VBox
    	  ;; Menu bar
    	  (HBox
    	    (Menu (MenuLabel "Juno-2") (VBox
    	      (PopMButton (For aboutWindow) (TextL "About..."))
    	      (MButton %quit (TextL "Quit"))
    	    ))
    	    (Menu (MenuLabel "File") (VBox
    	      (MButton %load (TextL "New / Open..."))
    	      (MButton %save (TextL "Save"))
    	      (PopMButton %saveAs (For saveAsWindow) (TextL "Save As..."))
    	      (Ridge 2)
    	      (PopMButton %module (For moduleWindow) (TextL "Open Module..."))
    	      (Ridge 2)
    	      (MButton %print (TextL "Print"))
    	      (MButton %preview (TextL "Preview"))
              (MButton %savePS (TextL "Save PostScript"))
    	      (PopMButton %savePSas (For savePSWindow)
    		(TextL "Save PostScript As...")
    	      )
    	    ))
    	    (Menu (MenuLabel "Labels") (Radio %labels =letters (VBox
    	      (MButton (Choice %letters CheckMark MenuStyle (TextL "Letters")))
    	      (MButton (Choice %crosses CheckMark MenuStyle (TextL "Crosses")))
    	      (MButton (Choice %nothing CheckMark MenuStyle (TextL "None")))
    	    )))
            (Menu (MenuLabel "Redisplay") (Radio %autoUpdate =autoRun (VBox
    	      (MButton (Choice %autoRun CheckMark MenuStyle
                (TextL "Auto Run")))
    	      (MButton (Choice %autoSolve CheckMark MenuStyle
                (TextL "Auto Solve")))
    	    )))
            ; (Menu (MenuLabel "Test") (VBox
            ;   (PopMButton (For saveAsConfirmWindow) (TextL "Confirm..."))
            ; ))
    	    Fill
    	  ) ;; HBox
    	  (MyRidge)
    	  ;; Toolbox and Drawing
    	  (HBox
    	    (Shape (Height2 0)
    	      (Generic %toolbox)
    	    )
    	    (MyRidge)
    	    (Drawing
    	      (Generic %drawing)
    	    )
    	  )
    	) ;; VBox
    	
    	;; Code half of UI
    	(Sources
    	  (VBox
    	    ;; Menu bar
    	    (HBox
              (Button %run (ButtonLabel "Run"))
    	      (Filter Dormant (Button %solve (ButtonLabel "Solve")))
    	      (Menu (MenuLabel "Edit") (VBox
    		(MButton %fold (TextL "Fold..."))
    		(Ridge 2)
    		(MButton %pushCurrCmd (TextL "Push Current Command"))
    		(MButton %popCurrCmd (TextL "Pop Current Command"))
    	      ))
    	      Fill
    	      (Border (Shape (Width + 0)
    		(Text %currFile
    		  RightAlign
    		  (BgColor "LightGray")
    		  "Untitled.juno"
    		)
    	      ))
    	    ) ;; HBox
    	    (MyRidge)
    	    ;; Module and current command editors
    	    (VTile
    	      (VBox
    		(Module
    		  (Generic %editor)
    		)
    		(MyBar)
    	      )
    	      (VBox
    		(MyBar)
    		(CCmd
    		  (Generic %source)
    		)
    	      )
    	    ) ;; VTile
    	  ) ;; VBox
    	) ;; Sources -- end of code half of UI
      
      ) ;; HTile2
    ) ;; Filter
    ) ;; ZBackground
    ;; Pop-up windows
    (ZChild %stopWindow
      (Button %stop (ButtonLabel "Stop"))
    )
    (MyZChassis %aboutWindow
      (GrowBox FALSE)
      (Title "About Juno-2")
      (CancelName aboutCancel)
      (Child (Insert "AboutBox.fv"))
    )
    (MyZChassis %loadWindow
      (Title "Open File")
      (CancelName loadCancel)
      (Child (Insert "LoadFile.fv"))
    )
    (MyZChassis %saveAsWindow
      (Title "Save File")
      (CancelName saveAsCancel)
      (Child (Insert "SaveFile.fv"))
    )
    (MyZChassis %saveAsConfirmWindow
      (Title "Save Confirmation")
      (CancelBox FALSE)
      (GrowBox FALSE)
      (Child (Insert "SaveConfirm.fv"))
    )
    (MyZChassis %moduleWindow
      (Title "Open Module")
      (CancelName moduleCancel)
      (Child (Insert "LoadModule.fv"))
    )
    (MyZChassis %savePSWindow
      (Title "Save PostScript File")
      (CancelName savePSCancel)
      (Child (Insert "SavePS.fv"))
    )
    (MyZChassis %foldWindow
      (Title "Fold")
      (At (0.5 0.25))
      (CancelName foldCancel)
      (Child (Insert "Fold.fv"))
    )
    (MyZChassis %saveChangesWindow
      (GrowBox FALSE)
      (Title "Save Changes?")
      (At (0.5 0.25))
      (CancelName cancelChanges)
      (Child (Insert "SaveChanges.fv"))
    )
  ) ;; ZSplit

  ;; Startup screen
  (Filter %startupScreen Passive (Cursor "XC_watch")
    (VBox (LabelFont (Family "Times") (PointSize 180))
      Fill 
      (FixedHeight (Pixmap "Juno2Logo.ppm"))
      (Glue 10)
      (FixedHeight "Welcome to Juno-2! Initializing...")
      Fill
    )
  )
) ;; TSplit