(FILECREATED "17-Nov-86 00:33:39" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH158.;1
 5961   

      changes to:  (VARS RHTPATCH158COMS))


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

(PRETTYCOMPRINT RHTPATCH158COMS)

(RPAQQ RHTPATCH158COMS
 ((* * Fix to unreported problem in document card MakeFn causing new Document 
			     cards to have wrong size.)
			  (FILES (FROM {QV}<NOTECARDS>1.3K>NEXT>)
				 NCDOCUMENTCARD)
			  (* * Change to NCDOCUMENTCARD)
			  (FNS NC.MakeDocument)))
(* * Fix to unreported problem in document card MakeFn causing new Document cards to have 
wrong size.)


(FILESLOAD (FROM {QV}<NOTECARDS>1.3K>NEXT>)
	   NCDOCUMENTCARD)
(* * Change to NCDOCUMENTCARD)


(DEFINEQ

(NC.MakeDocument

  (LAMBDA (Card Title NoDisplayFlg CardIdentifier)           (* rht: "17-Nov-86 00:30")


          (* * Called from a filebox's title bar. Makes a document by smashing all the descendant cards's text together.

	  Ask user if wants numbered section headings and titles. The former are made from FileBox titles, the latter from 

	  notecard titles. Delete embedded links at the end if the user desires.)




          (* * rht 10/22/84: Hacked to be callable from Programmer's interface.)




          (* * rht 11/17/84: Checks for cancel when choosing rootID and also when setting parameters.)




          (* * rht 8/25/85: Now dumps sketch and graph cards as well as text cards.)




          (* * rht 9/16/85: Now handles cr's around titles using para leading.)




          (* * fgh 11/178/85 Updated to handle Card and NoteFile objects.)




          (* * kirk 27Jun86 Moved NC.RetrieveTitle call so does not break when user Cancels)




          (* * rht 7/31/86: Now checks for card types having ExportSubstanceFn prop.)




          (* * kirk 8/22/86 Fix of free use of NoteFile var)




          (* * rht 10/15/86: Integrated markM's changes and fixed box numbering.)




          (* * rht 11/17/86: Now calls NC.ApplySupersFn rather than NC.MakeNoteCard.)



    (
PROG
 (RootCard RootTitle DocWindow DocCard DocWindowOrCard DocStream HeadingsFromFileboxes 
		      TitlesFromNoteCards BuildBackLinks CopyEmbeddedLinks ExpandEmbeddedLinks 
		      InspectWin RootSubstanceType)
	    (
OR
 NoDisplayFlg (
SPAWN.MOUSE
))
	    (
SETQ
 DocWindowOrCard (NC.ApplySupersFn MakeFn Card "Document" NoDisplayFlg))
	    (if
 NoDisplayFlg
		then
 (
SETQ
 DocWindow NIL)
		       (
SETQ
 DocCard DocWindowOrCard)
	      else
 (
SETQ
 DocWindow DocWindowOrCard)
		     (
SETQ
 DocCard (
NC.CoerceToCard
 DocWindow)))
                                                             (* NC.MakeNoteCard either returned an Card or a window

							     depending on NoDisplayFlg.)

	    (
SETQ
 RootCard (
OR
 (
NC.CoerceToCard
 CardIdentifier)
				   (
NC.SelectNoteCards
 T NIL NC.SelectingCardMenu DocWindow NIL 
			"Please select the Note Card or File Box the document should start from.")))
	    (if
 (
NOT
 RootCard)
		then
 (
NC.DeleteNoteCards
 Card T NIL NIL T T)
		       (
RETURN
 NIL))
	    (
SETQ
 RootTitle (
NC.RetrieveTitle
 RootCard))
	    (
NC.SetTitle
 DocCard (
CONCAT
 "Document from %"" RootTitle "%""))
	    (
AND
 DocWindow (
WINDOWPROP
 DocWindow (
QUOTE
 TITLE)
					   (
NC.RetrieveTitle
 DocCard)))
	    (
SETQ
 DocStream (
NC.FetchSubstance
 DocCard))

          (* * Get MakeDocument parameters from user via inspector window.)



	    (if
 (
NOT
 NoDisplayFlg)
		then
 (
SETQ
 InspectWin (
NC.BuildMakeDocInspector
 DocWindow))
		       (
TOTOPW
 InspectWin)
		       (for
 while
 (
OPENWP
 InspectWin) do
 (
BLOCK
)))
	    (if
 (
EQ
 (
GETPROP
 (
QUOTE
 NC.MakeDocParameters)
				   (
QUOTE
 --DONE--))
			(
QUOTE
 QUIT))
		then
 (
PUTPROP
 (
QUOTE
 NC.MakeDocParameters)
				  (
QUOTE
 --DONE--)
				  (
QUOTE
 --CANCEL--))
		       (
NC.DeleteNoteCards
 Card T NIL NIL T T)
		       (
RETURN
 NIL))
	    (
SETQ
 HeadingsFromFileboxes (
GETPROP
 (
QUOTE
 NC.MakeDocParameters)
						     (
QUOTE
 HeadingsFromFileboxes)))
	    (
SETQ
 TitlesFromNoteCards (
GETPROP
 (
QUOTE
 NC.MakeDocParameters)
						   (
QUOTE
 TitlesFromNoteCards)))
	    (
SETQ
 BuildBackLinks (
GETPROP
 (
QUOTE
 NC.MakeDocParameters)
					      (
QUOTE
 BuildBackLinks)))
	    (
SETQ
 CopyEmbeddedLinks (
GETPROP
 (
QUOTE
 NC.MakeDocParameters)
						 (
QUOTE
 CopyEmbeddedLinks)))
	    (
SETQ
 ExpandEmbeddedLinks (
GETPROP
 (
QUOTE
 NC.MakeDocParameters)
						   (
QUOTE
 ExpandEmbeddedLinks)))

          (* * Call recursive routine to dump filebox.)



	    (
RESETLST
 (
RESETSAVE
 (
CURSOR
 WAITINGCURSOR))
			(
NC.PrintMsg
 DocWindow NIL "Collecting text from descendant cards ... ")

          (* * Clean up the SeenBefore markers placed on the cards and boxes just copied.)



			(
RESETSAVE
 NIL (
QUOTE
 (
PROGN
 (for
 Card in
 (
NC.FetchUserDataProp

									      DocCard
									      (
QUOTE
 SeenCards))
							      do
 (
NC.SetUserDataProp

								     Card
								     (
QUOTE
 SeenBefore)
								     NIL))
							   (
NC.SetUserDataProp
 DocCard
										 (
QUOTE
 SeenCards)
										 NIL))))

          (* * Unbelievably kludgy hack to get around Intermezzo TEdit bug. Just insert and delete a CR.)



			(
TEDIT.INSERT
 DocStream NC.CRString 1)
			(
TEDIT.DELETE
 DocStream 1 1)
			(
NC.DumpCardToDoc
 RootCard DocCard DocStream 0 0 HeadingsFromFileboxes 
					    TitlesFromNoteCards BuildBackLinks CopyEmbeddedLinks 
					    ExpandEmbeddedLinks)
			(
NC.PrintMsg
 DocWindow NIL "Done!"))
	    (
COND

	      ((
NOT
 NoDisplayFlg)
		(
BLOCK
 250)
		(
NC.ClearMsg
 DocWindow T)))
	    (
RETURN
 DocWindowOrCard))))
)
(PUTPROPS RHTPATCH158 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (717 5879 (NC.MakeDocument 727 . 5877)))))
STOP