(FILECREATED "20-May-86 20:30:09" {QV}<NOTECARDS>1.3K>FGHPATCH040.;1
 3409   

      changes to:  (VARS FGHPATCH040COMS)
		   (FNS NC.MakeFileBox))


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT FGHPATCH040COMS)

(RPAQQ FGHPATCH040COMS
 ((* * Fixes unreported bug whereby which NC.MakeFleBox was not updated to 
			     handle new title bar menu stuff. FROM NCFILEBOXCARD)
			  (FNS NC.MakeFileBox)))
(* * Fixes unreported bug whereby which NC.MakeFleBox was not updated to handle new title bar 
menu stuff. FROM NCFILEBOXCARD)


(DEFINEQ

(NC.MakeFileBox

  (LAMBDA (Card Title DontDisplay)                           (* fgh: "20-May-86 20:25")

                                                             (* Make up a blank contents card, hook it to the user 

							     specified parent contents cards, and display it.)


          (* * rht 12/2/84: In DontDisplay case, changed to return ID rather than TextStream.)




          (* * rht 12/8/84: Massive shaving. Took out code to force filing now (at creation time))




          (* * rht 9/11/85: Took out insertion of spacer when no markers.)




          (* * fgh 11/13/85 Updated to handle Card object.)




          (* * fgh 2/6/86 Chaged calls to NC.FetchDefaultHeight & NC.FetchDefaultWidth)




          (* * fgh 2/6/86 Removed bug where NC.ClearMsg was deleteing card immediately.)




          (* * rht 4/11/86: Now passes Type and Window to NC.MakeTEditLeftMenu.)



    (LET ((Spacer (
CONCAT
 (
CHARACTER
 13)
			    (
CHARACTER
 13)))
	  Window TextStream Type)
         (
SETQ
 TextStream (
OPENTEXTSTREAM
 ""))
         (
COND

	   (NC.MarkersInFileBoxesFlg (
TEDIT.INSERT.OBJECT
 (
NC.MakePlaceMarker
 
									     NC.SubBoxMarkerLabel)
							    TextStream 1)
				     (
TEDIT.INSERT
 TextStream Spacer 2)
				     (
TEDIT.INSERT.OBJECT
 (
NC.MakePlaceMarker
 
									  NC.FiledCardMarkerLabel)
							    TextStream 4)
				     (
TEDIT.INSERT
 TextStream Spacer 5)))
         (
NC.SetSubstance
 Card TextStream)
         (
NC.SetRegion
 Card (
CREATEREGION
 0 0 (
NC.FetchDefaultWidth
 Card)
					      (
NC.FetchDefaultHeight
 Card)))
         (
COND

	   (DontDisplay Card)
	   (T (
SETQ
 Window (
CREATEW
 (
NC.DetermineDisplayRegion
 Card NIL)
					(
NC.SetTitle
 Card (
OR
 Title "Untitled"))))
	      (
SETQ
 Type (
NC.RetrieveType
 Card))
	      (
NC.InstallTextTitleBarMiddleMenu
 Window Type)
	      (
NC.InstallTitleBarLeftMenu
 Window Type)     (* Display the card)

	      (
WINDOWADDPROP
 Window (
QUOTE
 SHRINKFN)
			       (
FUNCTION
 NC.TextCardShrinkFn))
	      (
TEDIT
 TextStream Window NIL (
LIST
 (
QUOTE
 FONT)
						     NC.DefaultFont
						     (
QUOTE
 TITLEMENUFN)
						     (
FUNCTION
 NC.TEditMenuFn)))
	      (until
 (
WINDOWPROP
 Window (
QUOTE
 TEXTSTREAM)) do
 (
BLOCK
))
	      (
NC.ActivateCard
 Card)
	      (
COND

		(NC.AlphabetizedFileBoxChildrenFlg (
NCP.CardProp
 Card (
QUOTE
 OrderingFn)
								   (
FUNCTION
 NC.IDAlphOrder))))
	      (
COND

		((
GETPROMPTWINDOW
 Window NIL NIL T)
		  (
PROG1
 (
DISMISS
 1000)
			   (
NC.ClearMsg
 (
GETPROMPTWINDOW
 Window NIL NIL T)
					  T))))
	      Window)))))
)
(PUTPROPS FGHPATCH040 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (580 3327 (NC.MakeFileBox 590 . 3325)))))
STOP