(FILECREATED "15-Oct-86 11:23:54" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH118.;1
 2161   

      changes to:  (VARS RHTPATCH118COMS))


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

(PRETTYCOMPRINT RHTPATCH118COMS)

(RPAQQ RHTPATCH118COMS
 ((* * Fix outdated function call in NCSKETCHCARD)
			  (FNS NC.PutSketchSubstance)))
(* * Fix outdated function call in NCSKETCHCARD)


(DEFINEQ

(NC.PutSketchSubstance

  (LAMBDA (Card Stream)                                      (* rht: "15-Oct-86 11:21")


          (* Put the sketch substance for card ID to the database. Store the global sketch descriptor, the scale and region 

	  viewed for ID and any cached bit maps.)




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




          (* * fgh 11/20/85 NoteCards now takes care of setting the start and end pointers for the substance.)




          (* * rht 1/23/86: Now takes Stream as arg instead of computing from Card.)




          (* * fgh 2/6/86 Now returns version number.)




          (* * fgh&rht 8/25/86 Changed call to NC.PutCachedMap to remove use of SCREENELT record.)




          (* * rht&pmi 10/15/86: Changed outdated SK.REGION.VIEWED call to SKETCH.REGION.VIEWED.)



    (LET ((Substance (
NC.FetchSubstance
 Card))
	  (Window (
NC.FetchWindow
 Card)))
         (
HPRINT
 Substance Stream NIL T)
         (
PRINT
 (
OR
 (
AND
 Window (
SCALE.FROM.SKW
 Window))
			(
NC.FetchScale
 Card))
		  Stream)
         (
PRINT
 (
OR
 (
AND
 Window (
SKETCH.REGION.VIEWED
 Window))
			(
NC.FetchRegionViewed
 Card))
		  Stream)
         (
AND
 Window (for
 Element in
 (
SKETCH.LIST.OF.ELEMENTS
 (
INSURE.SKETCH
 Substance)
								      (
FUNCTION
 (LAMBDA (Element)
									  (
EQ
 (


									     
GETSKETCHELEMENTPROP

										  Element
										  (
QUOTE
 TYPE))
										(
QUOTE
 MAP))))
								      T)
			  do
 (
NC.PutCachedMap
 Element Window Stream)))
         (
PRINT
 (
QUOTE
 ###ENDSKETCH###)
		  Stream)
     0)))
)
(PUTPROPS RHTPATCH118 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (402 2079 (NC.PutSketchSubstance 412 . 2077)))))
STOP