(FILECREATED " 8-Sep-86 16:12:31" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH105.;1
 5089   

      changes to:  (VARS RHTPATCH105COMS)
		   (FNS NC.MakeTEditCard NC.MakeFileBox))


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

(PRETTYCOMPRINT RHTPATCH105COMS)

(RPAQQ RHTPATCH105COMS
 ((* * Change to NCTEXTCARD)
			  (FNS NC.MakeTEditCard)
			  (* * Change to NCFILEBOXCARD)
			  (FNS NC.MakeFileBox)))
(* * Change to NCTEXTCARD)


(DEFINEQ

(NC.MakeTEditCard

  (LAMBDA (Card Title NoDisplayFlg)                          (* rht: " 8-Sep-86 16:10")

                                                             (* Make up a blank text card and display it.)


          (* * rht 9/10/85: Fixed call to NC.MakeTEditPropsList so prompt window gets fixed up before card is brought up.)




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




          (* * rht 4/11/86: Now passes type to NC.MakeTEditMiddleMenu.)




          (* * rht 5/6/86: Now calls NC.InstallTitleBarLeftMenu and NC.InstallTextTitleBarMiddleMenu.)




          (* * rht 9/8/86: No longer hangs Card off NoteCardObject windowprop. THis is done in NC.MakeNoteCard.)



    (LET (TextStream Window Type)
         (
COND

	   (NoDisplayFlg (
SETQ
 TextStream (
OPENTEXTSTREAM
 "" NIL NIL NIL (
NC.MakeTEditPropsList
)
							      ))
			 (
NC.SetSubstance
 Card TextStream)
			 (
STREAMPROP
 TextStream (
QUOTE
 NoteCardObject)
				       Card)
			 Card)
	   (T (
SETQ
 Window (
CREATEW
 (
NC.DetermineDisplayRegion
 Card NIL)
					(
OR
 Title "Untitled")
					NIL T))
	      (
SETQ
 Type (
NC.RetrieveType
 Card))
	      (
NC.InstallTitleBarLeftMenu
 Window Type)
	      (
NC.InstallTextTitleBarMiddleMenu
 Window Type)
	      (
WINDOWADDPROP
 Window (
QUOTE
 SHRINKFN)
			       (
FUNCTION
 NC.TextCardShrinkFn))
	      (
TEDIT
 NIL Window NIL (
NC.MakeTEditPropsList
 Window))
	      (until
 (
WINDOWPROP
 Window (
QUOTE
 TEXTSTREAM)) do
 (
BLOCK
))
	      (
SETQ
 TextStream (
WINDOWPROP
 Window (
QUOTE
 TEXTSTREAM)))
	      (
NC.SetSubstance
 Card TextStream)
	      (
STREAMPROP
 TextStream (
QUOTE
 NoteCardObject)
			    Card)
	      Window)))))
)
(* * Change to NCFILEBOXCARD)


(DEFINEQ

(NC.MakeFileBox

  (LAMBDA (Card Title DontDisplay)                           (* rht: " 8-Sep-86 16:10")

                                                             (* 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.)




          (* * rht 8/2/86: Now lets NC.MakeTEditPropsList build the props to be passed to TEDIT.)




          (* * rht 9/8/86: Now doesn't create window before calling TEDIT to avoid stupid prompt win popping up.)



    (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"))
					NIL T))
	      (
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 (
NC.MakeTEditPropsList
 Window T))
	      (until
 (
WINDOWPROP
 Window (
QUOTE
 TEXTSTREAM)) do
 (
BLOCK
))
	      (
NC.ActivateCard
 Card)
	      (
COND

		(NC.AlphabetizedFileBoxChildrenFlg (
NCP.CardProp
 Card (
QUOTE
 OrderingFn)
								   (
FUNCTION
 NC.IDAlphOrder))))
	      Window)))))
)
(PUTPROPS RHTPATCH105 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (457 2247 (NC.MakeTEditCard 467 . 2245)) (2284 5007 (NC.MakeFileBox 2294 . 5005)))))
STOP